Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

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

02. VISÃO GERAL

Este ponto de entrada permite informar participantes / transporte na geração do SPEDFISCAL.

03. ESPECIFICAÇÃO

Parâmetros do ponto de entrada

NomeTipoDescrição
PARAMIXBArray of Record

[1] = Alias da tabela temporária de processamento do SPED.

[2] = Dados do cabeçalho do documento fiscal.

Importante

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
aRetArray of Record

Retorno contendo dados do participante. Obs.: retorno da function InfPartDoc(cAlias).

04. EXEMPLO DE UTILIZAÇÃO

SPEDPTMS
#include "totvs.ch"

User Function SPEDPTMS()

	Local aAreaSA1	:= SA1->(GetArea())
	Local cAlias   	:= PARAMIXB[1]
	Local aDoc    	:= PARAMIXB[2]
	Local aRet     	:= {}

    //conteudo do array de docto fiscal
    //01 - Doc. Fiscal
    //02 - Serie NF
    //03 - Cliente/Fornecedor
    //04 - Codigo Loja
    //05 - Data Docto.
    //06 - Data Emissao
    //07 - Data Canc.
    //08 - Formulario Proprio
    //09 - CFOP
    //10 - Reservado
    //11 - Aliq. ICMS
    //12 - Nro. PDV
    //13 - Base  ICMS
    //14 - Aliq. ICMS
    //15 - Valor ICMS
    //16 - Valor Isento ICMS
    //17 - Outros ICMS
    //18 - ICMS Retido ST
    //19 - Conta Contabil
    //20 - Tipo Lancamento
    //21 - Tipo Frete
    //22 - Filial
    //23 - Estado
    //24 - Observacao
    //25 - Chave NFE
    //26 - Tipo Emissao
    //27 - Prefixo
    //28 - Duplicata
    //29 - Cupom Fiscal
    //30 - Transportadora
    //31 - Peso Bruto
    //32 - Peso Liquido
    //33 - Veiculo1
    //34 - Veiculo2
    //35 - Veiculo3
    //36 - Optante Simples Nacional
    //37 - Regime Paraiba
    //-- Tratamento especifico

	If SA1->(dbSeek(xFilial("SA1") + "00000101"))
		aAdd(aRet,InfPartDoc("SA1"))
	EndIf

	If SA1->(dbSeek(xFilial("SA1") + "00000101"))
		aAdd(aRet,InfPartDoc("SA1"))
	EndIf

	RestArea(aAreaSA1)

Return aRet

05. DEMAIS INFORMAÇÕES

Não há.