Perguntas P.E. na Nota Fiscal de Entrada

Pega este exemplo, assim que confirmar a nota abre uma janela solicitando dados, edita a janela para o cara preencher o que vc precisa e busca a se2 e grava os dados ok.

User Function SF1100I()
Local aAreaSE1:=SE1->(GetArea())
Private cMennota := Space(200)
Private cNumDi := Space(10)
Private dDtDi := CtoD('')
Private cUfDes := Space(02)
Private cLcDes := Space(60)
Private dDtDes := CtoD('')

/*
**************************************************************************************
* P.E.p/ grav.dos campos: SF1->F1_OBSERV, F1_PESOLIQ,F1_PESOBRU,F1_VOLUME E F1_ESPECIE
**************************************************************************************
*/

If SF1->F1_FORMUL <> "S"
Return
Endif

@ 100,000 TO 400,500 DIALOG oDlg1 TITLE "Dados adicionais para Nota Fiscal de Entrada"

@ 005,010 SAY "Mensagem" SIZE 100,30
@ 020,010 SAY "

---

IMPORTAÇÃO

---

" SIZE 100,30
@ 035,010 SAY "Numero D.I.:" SIZE 100,30
@ 050,010 SAY "Data D.I.:" SIZE 100,30
@ 065,010 SAY "Uf Desembaraço: " SIZE 100,30
@ 080,010 SAY "Local Desembaraço: " SIZE 100,30
@ 095,010 SAY "Data Desembaraço: " SIZE 100,30

@ 005,055 GET cMennota Picture "@S80!" SIZE 180,30

@ 035,055 GET cNumDi Picture "@!" SIZE 070,30
@ 050,055 GET dDtDi Picture "99/99/99" SIZE 070,30
@ 065,055 GET cUfDes Picture "@!" F3 '12' SIZE 070,30
@ 080,055 GET cLcDes Picture "@!" SIZE 100,30
@ 095,055 GET dDtDes Picture "99/99/99" SIZE 070,30

@ 135,160 BUTTON "_Ok " SIZE 35,15 ACTION Processa({|| Grava()},,"Gravando....")
@ 135,210 BUTTON "_Sair" SIZE 35,15 ACTION Close(oDlg1)

ACTIVATE DIALOG oDlg1 CENTERED

Return(.T.)

/*
*********************************
* FUNÇÃO PARA GRAVAÇÃO DOS DADOS
*********************************
*/

Static Function Grava()
DbSelectArea("SF1")
DbSetOrder(1)

Reclock("SF1",.F.)
SF1->F1_MENNOTA := cMennota
SF1->F1_DI := cNumDi
SF1->F1_DTDI := dDtDi
SF1->F1_UFDES := cUfDes
SF1->F1_LCDES := cLcDes
SF1->F1_DTDES := dDtDes
Msunlock()

Close(oDlg1)

Return