Page tree
Skip to end of metadata
Go to start of metadata
Abrangências:Microsiga Protheus 11 - 12
Versões:Microsiga Protheus 11 - 12
Compatível Países:Brasil
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Português (Brasil)

 

Descrição:

Ponto de entrada disponibilizado para geração manual do registro 1400 do Sped Fiscal.


Importante

Ao utilizar esse ponto de entrada as informações do registro 1400 não são mais geradas pelo padrão do Protheus assim como suas respectivas validações ficando essas por conta do código fonte empregado neste ponto de entrada.

 
Programa Fonte
SPEDFISCAL.PRW

Sintaxe
SPED1400 - Geração manual do registro 1400 ( [ aReg1400 ] )
 

Parâmetros:

 

 Nome  Tipo  Descrição  Default  Obrigatório  Referência 
 dDataDe  Data  Data de           
 dDataAte        Data  Data até           
 cFilDe  Caracter  Filial de          
 cFilAte  Caracter  Filial Até          
 aLisFil             Array of Record  Lista filiais selecionadas quando utilizado pergunta seleciona filiais = SIM          
 aMyReg1400     Array of Record  Dados do registro 1400          

OBS:= Quando pergunta seleciona filiais = SIM varia veis cFilDe  e cFilAte são preenchidas com de branco a zz, devendo assim validar array aLisFil contendo a lista de filiais selecionadas.

 

Retorno

Array{}

 

Exemplo

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

 

Variáveis

 Nome Tipo Escopo Pode Alterar Descrição 
 aMyReg1400 Array of Record Global Sim   
  • No labels