| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Serviços |
| Módulo: | Fiscal |
| Programa: | SPEDFISCAL |
Este ponto de entrada permite informar participantes / transporte na geração do SPEDFISCAL.
| Nome | Tipo | Descrição |
|---|---|---|
| PARAMIXB | Array 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.
| Nome | Tipo | Descrição |
|---|---|---|
| aRet | Array of Record | Retorno contendo dados do participante. Obs.: retorno da function InfPartDoc(cAlias). |
#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
Não há.