Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

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

02. DESCRIÇÃO

Ponto de Entrada utilizado para processamento do registro C120.
Será utilizado nos casos em que o usuário não possui integração com SIGAEIC e não utiliza tabela CD5 (Complemento de Importação).

03. ESPECIFICAÇÃO

  • Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
aCmpAntSFT[1]Array of RecordConteúdo do campo FT_NFISCAL


aCmpAntSFT[2]Array of RecordConteúdo do campo FT_SERIE


aCmpAntSFT[3]Array of RecordConteúdo do campo FT_CLIEFOR


aCmpAntSFT[4]Array of RecordConteúdo do campo FT_LOJA


aCmpAntSFT[23]Array of RecordConteúdo do campo FT_ENTRADA


  • Retorno:
NomeTipoDescriçãoDefaultObrigatórioReferência
aRetorno[1]Array of Record

O array será composto por n dimensões (espelhada pelos itens da nota) e dentro de cada uma dessas possuirá 5 posições, com o conteúdo do campos para preenchimento do registro C120.




04. EXEMPLO DE UTILIZAÇÃO

#INCLUDE "PROTHEUS.CH" 
#INCLUDE "RWMAKE.CH"

User Function SPDIMP()
	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	cChave		:=	""
	Local	lTipoEx		:=	.F.
	Local	aRetorno	:=	{}
	Local	aAreaSFT	:=	SFT->(GetArea())
	Local	aAreaSA2	:=	SA2->(GetArea())
	
	If SA2->(DbSeek(xFilial("SA2")+cFornec+cLoja))	
		lTipoEx	:=	(SA2->A2_TIPO == "X")
	Endif
	
	If lTipoEx		
		cChave	:=	xFilial("SFT")+"E"+DTOS(dEntr)+cSerie+cDoc+cFornec+cLoja		
		If SFT->(DbSeek(cChave))		
			While SFT->FT_FILIAL+SFT->FT_TIPOMOV+DTOS(SFT->FT_ENTRADA)+SFT->FT_SERIE+SFT->FT_NFISCAL+SFT->FT_CLIEFOR+SFT->FT_LOJA == cChave			
				aAdd(aRetorno,{ "0",;			//02 - COD_DOC_IMP							 
								"000001",;		//03 - NUM_DOC_IMP							 
								6.50,;			//04 - PIS_IMP							 
								30.00,;		    //05 - COF_IMP							 
								"CONCE0001"})	//06 - NUM_ACDRAW						
							
				SFT->(DbSkip())		
			End	
		Endif
	Endif
	
	RestArea(aAreaSFT)
	RestArea(aAreaSA2)
	
Return aRetorno