Histórico da Página

...

#INCLUDE "FONT.CH"
#INCLUDE "PROTHEUS.CH"
User Function CT105LOK()
Local aCpoOrig := {"CT2_ITEMD","CT2_CLVLDB"}
Local nx:=0
Local lRet:=.T.
For nX := 1 TO len(aCpoOrig)
If Empty(&("TMP->"+aCpoOrig[nx])) .and. TMP->CT2_DC !='4'
SX3->(dbSetOrder(2))
SX3->(MsSeek(aCpoOrig[nx]))
SX2->(dbSetOrder(1))
SX2->(MsSeek(SX3->X3_ARQUIVO))
HELP(" ",1,"OBRIGAT2",,aCpoOrig[nx]+CRLF+ "Campo:" +" "+ X3DESCRIC()+CRLF+"Linha :" + TMP->CT2_LINHA,3,1) //"Campo: "###"Linha: "
lRet:=.F.
Exit
Endif
Next
Return lRet

...