Perguntas Ponto de Entrada FA60FIL Bordero Contas a Receber

Bom dia amigo, gostaria de agradecer sua ajuda, porem ainda nao consegui.
Eu pensei em fazer um Gatilho,Exec alguma coisa da qual preencha o campo E1_SITUACA COM ' ' se o campo A1_BCO1 estiver com 999.
Mas nao consegui obter uma solucao.

Eu coloquei direto esse posicione no campo E1_PORTADO POREM ELE NAO PREENCHEU ao criar um titulo no SE1 ,coloquei da Forma que voce me disse e coloquei tambem da forma que esta abaixo mas nao deu certo.

if(!Inclui,Posicione("SA1",1,xFilial("SA1")+SE1->(E1_CLIENTE+E1_LOJA),'A1_BCO1'),"")

Achei outra forma de fazer, foi feito um ponto de entrada diretamente na nota de saida, porem estou com dificuldade em um DBSEEK. Alguem poderia me ajudar segue abaixo o código e o erro que ele deu ao executar.


_nBco1:= SA1->A1_BCO1

IF _nBco1='999'


dbSelectArea("SE1")
SE1->(dbSetOrder(2))
If dbSeek(xFilial("SE1"))
RecLock("SE1",.T.)
SE1->E1_SITUACA :='1'
SE1->E1_PORTADO :='999'
MsUnLock()
ENDIF
ENDIF
Return



THREAD ERROR (BRUNO.SOUZA, WKS0043) 11/12/2014 08:38:47
DB error (Insert): -37 File: SE1010 - Error : 2601 (23000) - [Microsoft][ODBC SQL Server Driver][SQL Server]Cannot insert duplicate key row in object 'dbo.SE1010' with unique index 'SE1010_UNQ'.( SQL Statement : INSERT INTO dbo.SE1010(E1_PORTADO,E1_SITUACA,E1_USERLGI,E1_MSFIL,E1_MSEMP,R_E_C_N_O_) VALUES ( '999','1',' 0# 1@ 70w 80E ','03','02',185969) ) ( From tISAMFile::Write )

Deu Certo Luiz, muito obrigado, pois eu nao sabia a forma correta de fazer esse DBSEEK.