Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Serviços |
Módulo: | Fiscal |
Programa: | SPEDFISCAL.PRW |
Idiomas: | Todos |
Ponto de entrada disponibilizado para geração manual do Registro 1400 do Sped Fiscal.
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. |
Nome | Tipo | Descrição |
---|---|---|
PARAMIXB | Array 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) |
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. |
Nome | Tipo | Descrição |
---|---|---|
aMyReg1400 | Array of Record | Dados do Registro 1400 |
#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 |
Não há.