Histórico da Página
01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Serviços |
Módulo: | Fiscal |
...
Ponto de Entrada para gerar os registros 1390 (Controle de Produção de Usina) e 1391 (Produção Diária da Usina) para o SPED Fiscal.
03. ESPECIFICAÇÃO
Parâmetros do ponto de entrada:
Nome | Tipo | Descrição |
---|---|---|
PARAMIXB | Array of Record | Array com dados de processamento com 5 elementos [1] = Alias da tabela; [2] = Data de; [3] = Data Até; [4] = Array do registro 0200; [5] = Array do registro 0190; |
Retorno:
Nome | Tipo | Descrição |
---|---|---|
Array of Record | Retorna Array reg0200 com produtos utilizados Importante: Quando ponto de entrada é executado Array reg0200 ja possui todos produtos já processados no SPED FISCAL, deve apenas adicionar novos produtos no array reg0200 Após execução do ponto SPED1390 será impresso Array reg0200 conforme retornado do ponto de entrada. |
04. EXEMPLO DE UTILIZAÇÃO
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH" #INCLUDE "RWMAKE.CH" User Function SPED1390() Local cAlias := (ParamIxb[1]) Local dDataDe := (ParamIxb[2]) Local dDataAte := (ParamIxb[3]) Local aReg0200 := (ParamIxb[4]) Local aReg0190 := (ParamIxb[5]) Local aReg1390 := {} Local aReg1391 := {} Local nPos1390 := 0 Local nPos1391 := 0 Local cProd := "AT0000000000000000000000000002" aAdd(aReg1390, {}) nPos1390 := Len(aReg1390) aAdd(aReg1390[nPos1390], "1390") aAdd(aReg1390[nPos1390], "03") aAdd(aReg1391, {}) nPos1391 := Len(aReg1391) aAdd(aReg1391[nPos1391], nPos1390) aAdd(aReg1391[nPos1391], "1391") aAdd(aReg1391[nPos1391], "30072012") aAdd(aReg1391[nPos1391], 1000.00) aAdd(aReg1391[nPos1391], 1000.00) aAdd(aReg1391[nPos1391], 1000.00) aAdd(aReg1391[nPos1391], ) aAdd(aReg1391[nPos1391], 1000.00) aAdd(aReg1391[nPos1391], 10.00) aAdd(aReg1391[nPos1391], 50.00) aAdd(aReg1391[nPos1391], ) aAdd(aReg1391[nPos1391], ) aAdd(aReg1391[nPos1391], 0) aAdd(aReg1391[nPos1391], 0) aAdd(aReg1391[nPos1391], 0) aAdd(aReg1391[nPos1391], 0) aAdd(aReg1391[nPos1391], 0) aAdd(aReg1391[nPos1391], "SPED1390") aAdd(aReg1391[nPos1391], cProd) aAdd(aReg1391[nPos1391], 02) aAdd(aReg1391[nPos1391], 1234) //geracao do 0200 SPEDSeek("SB1", , xFilial("SB1") + cProd) SFRG0200(cAlias, @aReg0200, @aReg0190, dDataDe, dDataAte, , cProd) GrRegDep(cAlias, aReg1390, aReg1391) Return aReg0200 |
05. DEMAIS INFORMAÇÕES
Não e aplica.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas