Histórico da Página

Programa Fonte

SPEDFISCAL.PRW

#INCLUDE "PROTHEUS.CH" 
#INCLUDE "RWMAKE.CH"
User Function SPDPINFO()
Local	cDoc		:=	PARAMIXB[1] //FT_NFISCAL
Local	cSerie		:=	PARAMIXB[2] //FT_SERIE
Local	cFornec		:=	PARAMIXB[3] //FT_CLIEFOR
Local	cLoja		:=	PARAMIXB[4] //FT_LOJA
Local	dEntr		:=	PARAMIXB[5] //FT_ENTRADA
Local	cEntSai		:=	PARAMIXB[6] //Entr/Saida	 	
Local	cChave		:=	""
Local	nX			:=	0
Local	aRetorno	:=	{}
Local	aAreaSFT	:=	SFT->(GetArea())
If cEntSai == "1"
	cChave	:=	xFilial("SFT")+"E"+DTOS(dEntr)+cSerie+cDoc+cFornec+cLoja
Else
	cChave	:=	xFilial("SFT")+"S"+DTOS(dEntr)+cSerie+cDoc+cFornec+cLoja
Endif
If SFT->(DbSeek(cChave))
	For nX := 1 To 2
		If nX == 1
			aAdd(aRetorno,{ "000001",;		//02 - COD_INF
			"INFORMACOES COMPLEMENTARES ABC"})	//03 - TXT_COMPL
		Elseif nX == 2			
			aAdd(aRetorno,{ "000002",;		//02 - COD_INF
			"INFORMACOES COMPLEMENTARES 123 "})	//03 - TXT_COMPL		
		Endif
	Next nX
Endif
RestArea(aAreaSFT)
Return aRetorno