PE - SPDPINFO - Informações Complementares - Registro C195

01. DADOS GERAIS

Linha do Produto	Microsiga Protheus®
Segmento	Serviços
Módulo	Fiscal

02. VISÃO GERAL

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.

Importante!

Programa Fonte

SPEDFISCAL.PRW

03. ESPECIFICAÇÃO

Sintaxe

Informações Complementares - Registro C195

SPDPINFO( [ PARAMIXB[1] ], [ PARAMIXB[2] ], [ PARAMIXB[3] ], [ PARAMIXB[4] ], [ PARAMIXB[5] ], [ PARAMIXB[6] ] ) --> aRetorno

Parâmetros do ponto de entrada

Nome	Tipo	Descrição
PARAMIXB[1]	Caractere	Documento Fiscal - FT_NFISCAL
PARAMIXB[2]	Caractere	Série - FT_SERIE
PARAMIXB[3]	Caractere	Código do participante - FT_CLIEFOR
PARAMIXB[4]	Caractere	Loja do participante - FT_LOJA
PARAMIXB[5]	Caractere	Data de entrada - FT_ENTRADA
PARAMIXB[6]	Caractere	1 - Entrada; 2 - Saída

Retorno

Nome	Tipo	Descrição
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

04. EXEMPLO DE UTILIZAÇÃO

O exemplo abaixo é meramente ilustrativo

SPDPINFO

#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

05. DEMAIS INFORMAÇÕES

Não há.

Árvore de páginas