Perguntas cabeçalho nota fiscal de entrada

Valter bom dia, até aonde eu sei não é possível acrescentar diretamente no cabeçalho da nota fiscal de entrada novos campos, o que você poderá fazer é utilizar um ponto de entrada para abrir uma janela para o usuário preencher o campo observação que vc precisa.

Qualquer coisa me fala se vai utilizar isso ai posso te passar alguma coisa ok.

#include "rwmake.ch"
#INCLUDE "ap5mail.ch"

/*/
_____________________________________________________________________________
¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
¦¦+

---

+¦¦
¦¦¦Funçao ¦ SF1100I ¦ Autor ¦ Luiz Alberto ¦ Data ¦ 03/02/10 ¦¦¦
¦¦+

---

+

---

¦¦¦
¦¦¦Descriçào ¦ Ponto de Entrada para gravar informacoes Nota Entrada¦¦
¦¦¦ ¦¦¦
¦¦+

---

+

---

¦¦¦
¦¦¦ Uso ¦ ¦¦¦
¦¦+

---

+¦¦
¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
/*/
// Ponto de Entrada na Geracao da Nota Fiscal de Devolução

User Function SF1100I()

Local aAreaSE1:=SE1->(GetArea())
//Local aAreaSE2:=SE2->(GetArea())

Local _lResult := .f. // Resultado da tentativa de comunicacao com servidor de E-Mail
Local cTitulo1
Local cTitulo2
Local cError := ""
Local lRet := .F.
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
**************************************************************************************
*/

@ 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