Histórico da Página

#include "totvs.ch"   

User Function SPED1400()

Local dDataDe       := ParamIXB[1] // Parametro data De
Local dDataAte      := ParamIXB[2] // Parametro data até
Local cFilDe        := ParamIXB[3] // Parametro Filial De
Local cFilAte       := ParamIXB[4] // Parametro Filial Até
Local aLisFil       := ParamIXB[5] // Lista de filiais selecionadas (Pergunta: Seleciona Filial = SIM)
Local aMyReg1400    := {}          //  DADOS DO REGISTRO 1400
Local nPos          := 0

aAdd(aMyReg1400, {})

nPos := Len(aMyReg1400)  

aAdd (aMyReg1400[nPos], "1400")       //01 - REG
aAdd (aMyReg1400[nPos], "SPDIPAM12")  //02 - COD_ITEM_IPM  
aAdd (aMyReg1400[nPos], "3530805")    //03 - MUN  
aAdd (aMyReg1400[nPos], 1000)         //04 - VALOR

Return aMyReg1400