Perguntas cabeçalho nota fiscal de entrada

Valter posso fazer sim cara, só que até o fim do dia tudo bem ?, faz um favor, atualiza seu perfil com foto ok.

Obrigado.

Valter Prontinho, eu nao testei mas esta blz, vc vai precisar criar o campo F1_MENOBS na tabela SF1 com Caracter de 200 ok.

Acrescenta este fonte no seu projeto e compila, ele vai abrir uma janela assim que vc der um ok na entrada da nota fiscal.

Abraços.


#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 cMenObs := Space(200)

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

@ 100,000 TO 200,500 DIALOG oDlg1 TITLE "Observacoes Nota Fiscal de Entrada"

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

@ 005,055 GET cMenObs Picture "@S80!" SIZE 180,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_MENOBS := cMenObs
Msunlock()

Close(oDlg1)

Return