Perguntas Ponto de Entrada FA050INC

Boa tarde,


Preciso pegar o recno de um registro que esta sendo incluindo no contas a pagar através da rotina FINA050. Tentei pelo codigo abaixo mas não obtive sucesso. Como fazer esse procedimento.

USER FUNCTION FA050INC
Local TudoOk := .F.
private cData := DATE() // retorna da data AAAAMMDD
private cHora := SUBSTR(Time(), 1, 2) // retorna a hora
private cMinutos := SUBSTR(Time(), 4, 2) // retorna os minutos
private cHoraTexto := cHora+":"+cMinutos
private cFilial:= xFilial("SE2") // BUSCA A FILIAL
private cUsuario:= cUserName
private cHost :=GetComputerName()



RecLock("SZ6",.T.)
SZ6->Z6_FILIAL := cFilial
SZ6->Z6_DATA := cData
SZ6->Z6_HORA := cHoraTexto
SZ6->Z6_USUARIO := cUsuario
SZ6->Z6_TIPO := "1"
SZ6->Z6_COD := SE2->(RECNO())
SZ6->Z6_HOST:=cHost
SZ6->Z6_ORIGEM:="CONTAS A PAGAR - SE2"
SZ6->(MsUnLock()) // Confirma e finaliza a operacao

Flavio,
Esse PE é utilizado na validação, ou seja, ainda não foi gravado o registro, portanto não é possível recuperar o RECNO.

Tente utilizando o PE FA050GRV
Abraço!

Boa tarde,

Funcionou 100%.

Obrigado.