Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Fiscal
Programa:SPEDFISCAL.PRW
Idiomas:Todos

02. VISÃO GERAL

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 serã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.


03. ESPECIFICAÇÃO

Parâmetros do ponto de entrada

NomeTipoDescrição
PARAMIXBArray of Record

[1] = Data de (Data)

[2] = Data até (Data)

[3] = Filial de (Caracter)

[4] = Filial Até (Caracter)

[5] = Lista filiais selecionadas quando utilizado pergunta seleciona filiais = SIM (Array of Record)

[6] = Dados do registro 1400 (Array of Record)

Aviso

Quando a pergunta "seleciona filiais" estiver igual a SIM, as variáveis cFilDe e cFilAte serão preenchidas com "de branco a zz", sendo necessário validar o array aLisFil, que deverá conter a lista de filiais selecionadas.

Retorno

NomeTipoDescrição
aMyReg1400Array of Record

Dados do Registro 1400

04. EXEMPLO DE UTILIZAÇÃO


SPED1400
#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

05. DEMAIS INFORMAÇÕES

Não há.