01. DADOS GERAIS

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


02. DESCRIÇÃO

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:

NomeTipoDescrição
PARAMIXBArray 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:

NomeTipoDescriçã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


#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     := "RV0000000000000000000000000001"
 
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")        // campo 01
aAdd(aReg1391[nPos1391], "30072024")    // campo 02
aAdd(aReg1391[nPos1391], 1000.00)       // campo 03
aAdd(aReg1391[nPos1391], 1000.00)       // campo 04
aAdd(aReg1391[nPos1391], 1000.00)       // campo 05
aAdd(aReg1391[nPos1391], )              // campo 06
aAdd(aReg1391[nPos1391], 1000.00)       // campo 07
aAdd(aReg1391[nPos1391], 10.00)         // campo 08
aAdd(aReg1391[nPos1391], 50.00)         // campo 09
aAdd(aReg1391[nPos1391], )              // campo 10
aAdd(aReg1391[nPos1391], )              // campo 11
aAdd(aReg1391[nPos1391], 0)             // campo 12
aAdd(aReg1391[nPos1391], 0)             // campo 13
aAdd(aReg1391[nPos1391], 0)             // campo 14
aAdd(aReg1391[nPos1391], 0)             // campo 15
aAdd(aReg1391[nPos1391], 0)             // campo 16
aAdd(aReg1391[nPos1391], "SPED1390")    // campo 16
aAdd(aReg1391[nPos1391], cProd)         // campo 18
aAdd(aReg1391[nPos1391], 04)            // campo 19
aAdd(aReg1391[nPos1391], 04)            // campo 20
// Geração dos novos campos
aAdd(aReg1391[nPos1391], 01)            // campo 21
aAdd(aReg1391[nPos1391], 03)            // campo 22
aAdd(aReg1391[nPos1391], 00)            // campo 23

 
//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.