Page History

Ponto de Entrada utilizado para gerar o registro C195 de forma alternativa à tabela CDT (Complementos Fiscais).Automaticamente será gerado um registro 0460 referente ao código de Informação Complementar utilizado.

SPEDFISCAL.PRW

SPDPINFO - Informações Complementares - Registro C195 ( [ PARAMIXB[1] ], [ PARAMIXB[2] ], [ PARAMIXB[3] ], [ PARAMIXB[4] ], [ PARAMIXB[5] ], [ PARAMIXB[6] ] ) --> aRetorno

(array_of_record)
• Retorna em cada dimensão do array um registro C195 a ser criado em referência a nota fiscal que está sendo processada.

#INCLUDE "PROTHEUS.CH" #INCLUDE "RWMAKE.CH"User Function SPDPINFO()Local	cDoc		:=	PARAMIXB[1] //FT_NFISCALLocal	cSerie		:=	PARAMIXB[2] //FT_SERIELocal	cFornec		:=	PARAMIXB[3] //FT_CLIEFORLocal	cLoja		:=	PARAMIXB[4] //FT_LOJALocal	dEntr		:=	PARAMIXB[5] //FT_ENTRADALocal	cEntSai		:=	PARAMIXB[6] //Entr/Saida	 	Local	cChave		:=	""Local	nX			:=	0Local	aRetorno	:=	{}Local	aAreaSFT	:=	SFT->(GetArea())If cEntSai == "1"	cChave	:=	xFilial("SFT")+"E"+DTOS(dEntr)+cSerie+cDoc+cFornec+cLojaElse	cChave	:=	xFilial("SFT")+"S"+DTOS(dEntr)+cSerie+cDoc+cFornec+cLojaEndif	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 nXEndifRestArea(aAreaSFT)Return aRetorno