Perguntas Ponto de Entrada PE01NFESEFAZ para NFESEFAZ

#Include "PROTHEUS.CH"

User Function DTSAIDA()


Private oDlg
Private oButton1
Private oGet1
Private cGet1 := Date()
Private oGroup1
Private oSay1
Private oSay2
Private bStatus := .T.

While bStatus

DEFINE MSDIALOG oDlg TITLE "Data de saida" FROM 000, 000 TO 160, 350 COLORS 0, 16777215 PIXEL

@ 004, 003 GROUP oGroup1 TO 052, 168 PROMPT " Data de saida da NF " OF oDlg COLOR 0, 16777215 PIXEL
@ 016, 009 SAY oSay1 PROMPT "Informe no campo abaixo a data de saida da nota fiscal de numero " SIZE 153, 020 OF oDlg COLORS 0, 16777215 PIXEL
@ 035, 009 SAY oSay2 PROMPT "Data de saida" SIZE 045, 007 OF oDlg COLORS 0, 16777215 PIXEL
@ 033, 045 MSGET oGet1 VAR cGet1 SIZE 113, 010 OF oDlg COLORS 0, 16777215 PIXEL
@ 059, 130 BUTTON oButton1 PROMPT "Confirmar" SIZE 037, 012 OF oDlg PIXEL Action(Confirmar())

ACTIVATE MSDIALOG oDlg CENTERED

If bStatus

Alert("Operação não permitida...")

Endif

Enddo

Return cGet1

Static Function Confirmar

oDlg:End()
bStatus:=.F.

Return

#include "protheus.ch"

/*

———————————————————
PE01NFESEFAZ
———————————————————
Parametros :ParamIXB

ParamIXB[01] aProd
ParamIXB[02] cMensCli
ParamIXB[03] cMensFis
ParamIXB[04] aDest
ParamIXB[05] aNota
ParamIXB[06] aInfoItem
ParamIXB[07] aDupl
ParamIXB[08] aTransp
ParamIXB[09] aEntrega
ParamIXB[10] aRetirada
ParamIXB[11] aVeiculo
ParamIXB[12] aReboque
———————————————————
Partida : NFESEFAZ (P.E.)
———————————————————

*/

****************************
User Function PE01NFESEFAZ()
****************************
                                       


aRet := ParamIXB

cTipo := If(aRet[5, 4] = "1", "S", "E") //Tipo de Nota: 1 – Saída, 2 – Entrada
cDoc := aRet[5, 2] //Número da Nota
cSerie := aRet[5, 1] //Série da Nota



If cTipo = "S"

    aRet[09] := U_DTSAIDA()


EndIf

Return(aRet)