Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS


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

02. DESCRIÇÃO

Este ponto de entrada altera o conteúdo dos registros M300 e M700, que contém os valores diferidos de PIS e COFINS em períodos anteriores na geração do SPED-PIS/COFINS.

03. ESPECIFICAÇÃO

Parâmetros do ponto de entrada:

Nome

Tipo

Descrição

PARAMIXB    Array of Record

[1] = Array contendo:

01 - REG
02 - COD. CONTRIBUICAO
03 - VALOR APURADO
04 - NAT. CREDITO DIFERIDO
05 - VALOR CRED. DESCONTAR
06 - VALOR CONTRIBUICAO A RECOLHER
07 - PERIODO DA APURACAO
08 - DATA RECEBIMENTO


[2] = Array contendo:

01 - REG
02 - COD. CONTRIBUICAO
03 - VALOR APURADO
04 - NAT. CREDITO DIFERIDO
05 - VALOR CRED. DESCONTAR
06 - VALOR CONTRIBUICAO A RECOLHER
07 - PERIODO DA APURACAO
08 - DATA RECEBIMENTO


[3] = Data inicial para o processamento
[4] = Data final para o processamento

Retorno:

Nome

Tipo

Descrição


Array of Record

Array com a primeira posição contendo o array do registro M300 e a segunda posição contendo o M700 (ambos na mesma estrutura passada como parâmetro).

Importante

Trabalha em conjunto aos pontos de entrada SPDPCDC e SPDPCDP.

04. EXEMPLO DE UTILIZAÇÃO


SPDPCANT.PRW
User Function SPDPCANT()

    Local aM300 	:= PARAMIXB[1]
    Local aM700 	:= PARAMIXB[2]
    Local dDataIni 	:= PARAMIXB[3]
    Local dDataFim 	:= PARAMIXB[4]
    Local lCondicao := .T.	

    If lCondicao		
        aAdd(aM300, {})		
        nPos := Len(aM300)		
        aAdd (aM300[nPos],"M300")				//01 - REG		
        aAdd (aM300[nPos],"02")					//02 - COD. CONTRIBUICAO (preencher conforme tabela descrita no layout)		
        aAdd (aM300[nPos],20)					//03 - VALOR APURADO		
        aAdd (aM300[nPos],"")					//04 - NAT. CREDITO DIFERIDO		
        aAdd (aM300[nPos],"")					//05 - VALRO CRED. DESCONTAR		
        aAdd (aM300[nPos],20)			 		//06 - VALOR CONTRIBUICAO A RECOLHER		
        aAdd (aM300[nPos],"022012")				//07 - PERIODO DA APURACAO (MMAAAA)		
        aAdd (aM300[nPos],"15022012")			//08 - DATA RECEBIMENTO		

        aAdd(aM700, {})		
        nPos := Len(aM700)		
        aAdd (aM700[nPos],"M700")				//01 - REG		
        aAdd (aM700[nPos],"02")					//02 - COD. CONTRIBUICAO (preencher conforme tabela descrita no layout)		
        aAdd (aM700[nPos],20)					//03 - VALOR APURADO		
        aAdd (aM700[nPos],"")					//04 - NAT. CREDITO DIFERIDO		
        aAdd (aM700[nPos],"")					//05 - VALRO CRED. DESCONTAR		
        aAdd (aM700[nPos],20)			 		//06 - VALOR CONTRIBUICAO A RECOLHER		
        aAdd (aM700[nPos],"022012")				//07 - PERIODO DA APURACAO (MMAAAA)		
        aAdd (aM700[nPos],"15022012")			//08 - DATA RECEBIMENTO    
    EndIf

Return {aM300, aM700}


05. DEMAIS INFORMAÇÕES

Não se aplica.