Page tree
Skip to end of metadata
Go to start of metadata

Ponto-de-Entrada: SPDPISIC - Informações Complementares - Registro C110

 

Abrangências:Microsiga Protheus 10 , Microsiga Protheus 11
Versões:Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países:Brasil
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil)

 

Descrição:
Ponto de Entrada utilizado para gerar o registro C110 de forma alternativa à tabela CDT (Complementos Fiscais).Automaticamente será gerado um registro 0450 referente ao código de Informação Complementar utilizado.
Eventos
 
Programa Fonte
SPEDPISCOF.PRW
Sintaxe

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

Parâmetros:

 

 Nome  Tipo  Descrição  Default  Obrigatório  Referência 
 PARAMIXB[1]  Caracter  FT_NFISCAL          
 PARAMIXB[2]  Array of Record  FT_SERIE          
 PARAMIXB[3]  Array of Record  FT_CLIEFOR          
 PARAMIXB[4]  Array of Record  FT_LOJA          
 PARAMIXB[5]  Array of Record  FT_ENTRADA          
 PARAMIXB[6]  Array of Record  Indica se operação é de entrada ou saída.          

 

Retorno
aRetorno
    (array_of_record)
  • Retorna em cada dimensão do array um registro C110 a ser criado em referência a nota fiscal que está sendo processada.
Observações
 
Exemplos
#INCLUDE "PROTHEUS.CH" #INCLUDE "RWMAKE.CH"User Function SPDPISIC()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"})		//03 - TXT_COMPL		Elseif nX == 2			aAdd(aRetorno,{ "000002",;				//02 - COD_INF			 		"INFORMACOES COMPLEMENTARES 2"})	//03 - TXT_COMPL		Endif	Next nXEndifRestArea(aAreaSFT)Return aRetorno
Variáveis

 

 Nome  Tipo  Escopo  Pode Alterar  descrição 
    Array of Record  Global  Não