Histórico da Página

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}