SPDPCANT - PIS e COFINS diferido em períodos anteriores -- 116618

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.

SPEDPISCOF.PRW

SPDPCANT - PIS e COFINS diferido em períodos anteriores ( < aM300> , < aM700> , < dDataIni> , < aDataFim> ) --> aArray

aArray(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).

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    EndIfReturn {aM300, aM700 }