Perguntas PONTO DE ENTRADA - DOCTO DE ENTRADA

#INCLUDE "PROTHEUS.CH"

User Function MT100TOK()

Local lRet := ParamIXB[1]
Local cTransp := space(6)
Local _oDlg := MsDialog():New(0,0,100,150,OemToAnsi("Transportadora"),,,,,,,,oMainWnd,.T.)
Local _oGet := TGet():New(08,25,{|| @cTransp},_oDlg,,,,,,,advfont,,,.T.,,,,,,,.F.,.F.,,)
Local _oSay := TSay():New(10,03,{|| "Transp:"},_oDlg,,advfont,,,,.T.)
Local _oBtOk := TButton():New(40,08,"Cancela",_oDlg,{|| _oDlg:End()},,,,advfont,,.T.)
Local _oBtCan := TButton():New(40,35,"Ok",_oDlg,{|cTransp| gravaF1(cTransp)},,,,advfont,,.T.)

_oGet:bF3:= {|| CONPAD1(,,,"SA4",@cTransp)}
_oDlg:Activate(,,,.T.)

Return lRet
Static Function gravaF1(cTransp)

Local aAreaSF1 := SF1->(GetArea())

If(M->(FieldPos("F1_TRANSP")) > 0)
M->F1_TRANSP := cTransp
Else
RecLock("SF1",.F.)
SF1->F1_TRANSP := cTransp
SF1->(MsUnlock())
EndIf

Daniel ele é especifico para documento de entrada, assim que der OK ele executa este ponto.