Perguntas PONTO DE ENTRADA - DOCTO DE ENTRADA

muito obrigado pela atenção

Amigos
Poderiam me ajudar
Fiz uns ajustes neste que o Luiz fez nao nao esta gravando na SF1...
Ele nao fecha no Confirma e nao grava...


#INCLUDE "PROTHEUS.CH"

User Function MT100TOK()

Local aArea := GetArea()
Local lRet := ParamIXB[1]
Local dData := ctod("")
Local dDT := ""
Local oDT

Local _oDlg := MsDialog():New(153,180,230,395,OemToAnsi("Data de Recebimento"),,,,,,,,oMainWnd,.T.)
Local _oGet := TGet():New(005,035,{|| @dData},_oDlg,065,010,,,,,advfont,,,.T.,,,,,,,.F.,.F.,,)
Local _oSay := TSay():New(007,010,{|| "Data:"},_oDlg,,advfont,,,,.T.)
Local oBtOK := TButton():New(025, 003,"Confirma",_oDlg,{|dData| gravaF1(dData)} ,045,012,,advfont,,.T.)
Local oBtFim := TButton():New(025, 060,"Cancela" ,_oDlg,{|| _oDlg:End()} ,045,012,,advfont,,.T.)

ACTIVATE DIALOG _oDlg CENTERED

RestArea(aArea)
Return lRet

Static Function gravaF1(dData)

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

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

Luiz, depois que clica em OK nao fecha!!!
Seus botoes nao estam invertidas as funções?

Luiz Alberto escreveu: #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

Luiz eu mudei ele um pouco mas nao esta gravando a Data de Recebimento
Poderia me ajudar

#INCLUDE "PROTHEUS.CH"

User Function MT100TOK()

Local aArea := GetArea()
Local lRet := ParamIXB[1]
Local dData := ctod("")
Local dDT := ""
Local oDT

If lMT100TOK
_oDlg := MsDialog():New(153,180,230,395,OemToAnsi("Data de Recebimento"),,,,,,,,oMainWnd,.T.)
_oGet := TGet():New(005,035,{|| @dData},_oDlg,065,010,,,,,advfont,,,.T.,,,,,,,.F.,.F.,,)
_oSay := TSay():New(007,010,{|| "Data:"},_oDlg,,advfont,,,,.T.)
oBtOK := TButton():New(025, 003,"Confirma",_oDlg,{|dData| gravaF1(dData)} ,045,012,,advfont,,.T.)
oBtFim := TButton():New(025, 060,"Cancela" ,_oDlg,{|| _oDlg:End()} ,045,012,,advfont,,.T.)

ACTIVATE DIALOG _oDlg CENTERED
EndIf

lMT100TOK := .F.
RestArea(aArea)
Return lRet

Static Function gravaF1(dData)

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

If(M->(FieldPos("F1_XDTRECE")) > 0)
M->F1_XDTRECE := dData
_oDlg:End()
Else
RecLock("SF1",.F.)
SF1->F1_XDTRECE := dData
SF1->(MsUnlock())
_oDlg:End()
EndIf