run Prgfin/fgl/fgl905zb.py (Input 1,

Input table tt_input_leitura_sdo,

output table tt_retorna_sdo_ctbl,

output table tt_log_erros).

Parâmetros

Parâmetro	Descrição
num_vers_integr_api	Versão de Integração da API;
tt_input_leitura_sdo	Tabela temporária que contém todas as faixas de dados para que seja realizada a leitura na tabela de saldos;
tt_retorna_sdo_ctbl	Retorna os dados referentes ao saldo de acordo com as faixas passadas na temp-table anterior;
tt_log_erros	Retorna para o usuário, as informações de erros ocorridos durante o processo de leitura de saldo;

Retorno

A API retornará informações nas tabelas temporárias tt_log_erros e tt_retorna_sdo_ctbl.

Tabelas Temporárias

O programa que irá executar a API de leitura de saldos deverá conter e criar as seguintes tabelas temporárias:

Nos atributos das tabelas temporárias de entrada e saída:

1) Tabela leitura saldo

Tabela Temporária	Descrição	Entrada/Saída
tt_input_leitura_sdo		Entrada

Evolução

Atributo	Tipo	Formato	Descrição	Obrigatório	Evoluçã
ttv_cod_label	character	x(8)	Nome do atributo que será atribuído para ttv_des_conteudo. É possível criar as seguintes informações para busca de saldo: "Empresa" , "Cenário", "Finalidade Econômica" , "Plano Contas", "Plano Centro Custo" , "Considera apenas Ccusto Sintético" , "Conta e Ccusto", Faixas de Leitura de Saldos : "Data Inicial", "Data Final", "Conta Contabil Inicial" , "Conta Contabil Final" , "Projeto Inicial" , "Projeto Final" , "Estabelecimento Inicial" , "Estabelecimento Final" , "UN Inicial" , "UN Final, "Centro Custo Inicial" , "Centro Custo Final" , Faixas de PARTE FIXA E EXCEÇÃO : "Parte Fixa Conta Contábil", "Parte Fixa Centro Custo", "Parte Fixa Projeto", "Exceção Conta Contábil", "Exceção Centro Custo", "Exceção Projeto", Parâmetros Execução Orçamentária: "Unidade Orçamentária", "Valores Empenhados", "Cenário Orctário", "Unidade Orçamentária2", "Sequencia Orcto Contábil", "Versão Orçamento Contábil". Além das faixas, é necessário criar os seguintes registros na temp-table: "Apuração de Resultados", "Leitura", "Condição".
ttv_des_conteudo	character	x(40)	Valor do atributo: Considera apuração de resultado – (SIM/NÃO); Considera apenas Ccusto Sintético – (SIM/NÃO); Leitura – (FOR EACH, FIND FIRST, FIND LAST); Condição – (IGUAL, MENOR, MENOR OU IGUAL, MAIOR OU IGUAL E MENOR OU IGUAL). Conta e Ccusto = “” Valores Empenhados – yes Observações: A condição de leitura MAIOR OU IGUAL E MENOR OU IGUAL utilizar somente com a forma de leitura FOR EACH e informar atributos “Data Final” e “Data Inicial”. Não informando a forma e condição de leitura, assume Leitura = “FOR EACH” e Condição = “ IGUAL”. As condições de leitura (IGUAL, MENOR, MENOR OU IGUAL) são utilizadas para validação do atributo “Data Final” informado no arquivo.
ttv_num_seq_1	integer	>>>,>>9	Número seqüencial que identifica o conjunto a que pertence o atributo
ttv_num_seq_2	integer	>>>>,>>9	Segundo número seqüencial que identifica o conjunto do atributo

...

def temp-table tt_input_leitura_sdo no-undo

field ttv_cod_label label as character format "x(8)" label "Label" column-label "Label"

field ttv_des_conteudo as conteudo as character format "x(40)" label "Texto" column-label "Texto"

...

field ttv_num_seq_2 as integer format ">>>>,>>9"

index tt_ID ID is primary

ttv_num_seq_1 ascending 1 ascending.

2) Tabela retorna saldo contábil

Atributo

Tabela Temporária	Descrição	Entrada/Saída
tt_retorna_sdo_ctbl		Saída

(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.

Atributo	Tipo	Formato	Descrição	Obrigatório	Tipo	Formato	Descrição	Obrigatório	Evolução
tta_num_seq	integer	>>>,>>9	Número de seqüência do Registro
tta_cod_empresa	character	x(3)	Código da Empresa
tta_cod_finalid_econ	character	x(10)	Código da Finalidade Econômica
tta_cod_plano_cta_ctbl	character	x(8)	Código do Plano de Contas
tta_cod_cta_ctbl	character	x(20)	Código da Conta Contábil
tta_cod_plano_ccusto	character	x(8)	Código do Plano Centros Custo
tta_cod_ccusto	character	x(11)	Código do Centro de Custo
tta_cod_proj_financ	character	x(20)	Código do Projeto
tta_cod_cenar_ctbl	character	x(8)	Código Cenário Contábil
tta_cod_estab	character	x(3) / x(5)*	Código Estabelecimento
tta_cod_unid_negoc	character	x(3)	Código Unidade Negócio
tta_dat_sdo_ctbl	date	99/99/9999	Data do Saldo Contábil
tta_val_sdo_ctbl_db	decimal	->>,>>>,>>>,>>9.99	Valor do Movimento de Débito
tta_val_sdo_ctbl_cr	decimal	->>,>>>,>>>,>>9.99	Valor do Movimento de Crédito
val_sdo_ctbl_fim fim	decimal	->>,>>>,>>>,>>9.99	Valor do Saldo Contábil Final
tta_val_apurac_restdo	decimal	->>,>>>,>>>,>>9.99	Valor Apuração de Resultado
tta_val_apurac_restdo_db	decimal	->>,>>>,>>>,>>9.99	Valor Apuração Resultado Débito
tta_val_apurac_restdo_cr	decimal	->>,>>>,>>>,>>9.99	Valor Apuração Resultado Crédito
tta_val_apurac_restdo_acum	decimal	->>>,>>>,>>>,>>9.99	Valor Apuração Resultado Final
tta_val_sdo_ctbl_db_sint	decimal	->>,>>>,>>>,>>9.99	Valor Movimento Débito Sintético
tta_val_sdo_ctbl_cr_sint	decimal	->>,>>>,>>>,>>9.99	Valor Movimento Crédito Sintético
tta_val_sdo_ctbl_fim_sint	decimal	->>>,>>>,>>>,>>9.99	Valor Saldo Sintético
tta_val_apurac_restdo_sint	decimal	->>,>>>,>>>,>>9.99	Valor Apuração de Resultado Sintético
tta_val_apurac_restdo_sint_db	decimal	->>,>>>,>>>,>>9.99	Valor Apuração de Resultado Sintético Débito
tta_val_apurac_restdo_sint_cr	decimal	->>,>>>,>>>,>>9.99	Valor Apuração de Resultado Sintético Crédito
tta_val_apurac_restdo_sint_acum	decimal	->>>,>>>,>>>,>>9.99	Valor Apuração Resultado Final Sintético
tta_val_movto_empenh	decimal	->>,>>>,>>>,>>9.99	Valor Movimento Empenhado
tta_qtd_sdo_ctbl_db	decimal	>>>,>>>,>>9.99	Quantidade Débito
tta_qtd_sdo_ctbl_cr	decimal	>>>,>>>,>>9.99	Quantidade Crédito
tta_qtd_sdo_ctbl_fim	decimal	->>>,>>>,>>9.99	Quantidade Final
ttv_val_movto_ctbl	decimal	>>>,>>>,>>>,>>9.99	Valor movimento contábil
tta_qtd_movto_empenh	decimal	->>>>,>>9.9999	Quantidade Movimento Empenhado

def temp-table tt_retorna_sdo_ctbl no-undo

field tta_num_seq as seq as integer format ">>>,>>9" initial 0 label "Sequência" column-label "NumSeq"

field tta_cod_empresa as empresa as character format "x(3)" label "Empresa" column-label "Empresa"

field tta_cod_finalid_econ econ as character format "x(10)" label "Finalidade" column-label "Finalidade"

field tta_cod_plano_cta_ctbl ctbl as character format "x(8)" label "Plano Contas" column-label "Plano Contas"

field tta_cod_cta_ctbl ctbl as character format "x(20)" label "Conta Contábil" column-label "Conta Contábil"

field tta_cod_plano_ccusto ccusto as character format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"

field tta_cod_ccusto ccusto as Character format "x(11)" label "Centro Custo" column-label "Centro Custo"

field tta_cod_proj_financ as financ as character format "x(20)" label "Projeto" column-label "Projeto"

field tta_cod_cenar_ctbl ctbl as character format "x(8)" label "Cenário Contábil" column-label "Cenário Contábil"

field tta_cod_estab as estab as character format "x(35)" label "Estabelecimento" column-label "Estab"

field tta_cod_unid_negoc as negoc as character format "x(3)" label "Unid Negócio" column-label "Un Neg"

field tta_dat_sdo_ctbl ctbl as date format "99/99/9999" initial ? label "Data Saldo Contábil" column-label "Data Saldo Contábil"

field tta_val_sdo_ctbl_db as db as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Movto Débito" column-label "Movto Débito"

field tta_val_sdo_ctbl_cr cr as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Movto Crédito" column-label "Movto Crédito"

field tta_val_sdo_ctbl_fim as decimal format fim as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Saldo Contábil Final" column-label "Saldo Contábil Final"

field tta_val_apurac_restdo restdo as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Apuração Resultado" column-label "Apuração Resultado"

field tta_val_apurac_restdo_db db as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Apuração Restdo DB" column-label "Apuração Restdo DB"

field tta_val_apurac_restdo_cr as cr as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Apuração Restdo CR" column-label "Apuração Restdo CR"

field tta_val_apurac_restdo_acum acum as decimal format "->>>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Apuracao Final" column-label "Apuracao Final"

field tta_val_sdo_ctbl_db_sint sint as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Movto Débito Sint" column-label "Movto Débito Sint"

field tta_val_sdo_ctbl_cr_sint as sint as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Movto Crédito Sint" column-label "Movto Crédito Sint"

field tta_val_sdo_ctbl_fim_sint as sint as decimal format "->>>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Saldo Sintético" column-label "Saldo Sintético"

field tta_val_apurac_restdo_sint as decimal sint as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Apuracao Resultado" column-label "Apuracao Resultado"

field tta_val_apurac_restdo_sint_db as db as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Apur Restdo Sint DB" column-label "Apur Restdo Sint DB"

field tta_val_apurac_restdo_sint_cr cr as decimal format "->>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Apur Restdo Sint CR" column-label "Apur Restdo Sint CR"

field tta_val_apurac_restdo_sint_acum as decimal format "->>>>,>>>,>>>,>>9.99" decimals 2 initial 0 label "Apur Result Sint" column-label "Apur Result Sint"

field tta_val_movto_empenh empenh as decimal format "->>,>>>,>>>,>>9.99" decimals 9 initial 0 label "Movto Empenhado" column-label "Movto Empenhado"

field tta_qtd_sdo_ctbl_db as db as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Quantidade DB" column-label "Quantidade DB"

field tta_qtd_sdo_ctbl_cr as decimal format ">>>,>>>,>>9.99" decimals 2 initial 0 label "Quantidade CR" column-label "Quantidade CR"

field tta_qtd_sdo_ctbl_fim fim as decimal format "->>>,>>>,>>9.99" decimals 2 initial 0 label "Quantidade Final" column-label "Quantidade Final"

field ttv_val_movto_ctbl as decimal format ">>>,>>>,>>>,>>9.99" decimals 2

field tta_qtd_movto_empenh empenh as decimal format "->>>>,>>9.9999" decimals 4 initial 0 label "Qtde Movto Empenhado" column-label "Qtde Movto Empenhado"

...

tta_cod_plano_cta_ctbl ascendingctbl ascending

tta_cod_cta_ctbl ctbl ascending

index tt_id id is primary unique

tta_cod_empresa empresa ascending

tta_cod_finalid_econ econ ascending

tta_cod_plano_cta_ctbl ctbl ascending

tta_cod_cta_ctbl ascendingctbl ascending

tta_cod_plano_ccusto ccusto ascending

tta_cod_ccusto ascendingccusto ascending

tta_cod_proj_financ financ ascending

tta_cod_cenar_ctbl ascendingctbl ascending

tta_cod_estab estab ascending

tta_cod_unid_negoc negoc ascending

tta_dat_sdo_ctbl ascendingctbl ascending

tta_num_seq seq ascending

index tt_id2

tta_cod_empresa empresa ascending

tta_cod_finalid_econ ascendingecon ascending

tta_cod_plano_cta_ctbl ascendingctbl ascending

tta_cod_cta_ctbl ctbl ascending

tta_cod_proj_financ financ ascending

tta_cod_cenar_ctbl ascending

tta_cod_estab ctbl ascending tta_cod_estab ascending

tta_cod_unid_negoc negoc ascending

tta_dat_sdo_ctbl ctbl ascending

index tt_seq

tta_num_seq ascending

.

seq ascending.

3) Tabela de erros

Tabela Temporária	Descrição	Entrada/Saída
tt_log_erros	Retorna os erros do processo.	Saída

Atributo	Tipo	Formato	Descrição	Obrigatório	Evolução
ttv_num_seq	integer	>>>,>>9	Seqüência
ttv_num_cod_erro	integer	>>>>,>>9	Número
ttv_des_erro	character	x(50)	Inconsistência
ttv_des_ajuda	character	x(50)	Ajuda

def temp-table tt_log_erros no-undo

field ttv_num_seq as _num_seq as integer format ">>>,>>9" label "Seqüência" column-label "Seq"

field ttv_num_cod_erro as integer format ">>>>,>>9" label "Número" column-label "Número"

field ttv_des_erro erro as character format "x(50)" label "Inconsistência" column-label "Inconsistência"

field ttv_des_ajuda as ajuda as character format "x(50)" label "Ajuda" column-label "Ajuda". .

Exemplo de utilizacão da API de Leitura de Saldos

...

define temp-table tt_input_leitura_sdo no-undo

field ttv_cod_label label as character format "x(8)" label "Label" column-label "Label"

field ttv_des_conteudo as character format "x(40)" label "Texto" column-label "Texto"

field ttv_num_seq_1 as 1 as integer format ">>>,>>9"

field ttv_num_seq_2 as 2 as integer format ">>>>,>>9".

...

field tta_num_seq as int format ">>>,>>9" init 0 label "Sequência" column-label "NumSeq"

field tta_cod_empresa as empresa as char format "x(3)" label "Empresa" column-label "Empresa"

field tta_cod_finalid_econ as char format "x(10)" label "Finalidade" column-label "Finalidade"

field tta_cod_plano_cta_ctbl as char format "x(8)" label "Plano Contas" column-label "Plano Contas"

field tta_cod_cta_ctbl ctbl as char format "x(20)" label "Conta Contábil" column-label "Conta Contábil"

field tta_cod_plano_ccusto as char format "x(8)" label "Plano Centros Custo" column-label "Plano Centros Custo"

field tta_cod_ccusto ccusto as char format "x(11)" label "Centro Custo" column-label "Centro Custo"

field tta_cod_proj_financ as char format "x(20)" label "Projeto" column-label "Projeto"

field tta_cod_cenar_ctbl ctbl as char format "x(8)" label "Cenário Contábil" column-label "Cenário Contábil"

field tta_cod_estab as estab as char format "x(35)" label "Estabelecimento" column-label "Estab"

field tta_cod_unid_negoc as char format "x(3)" label "Unid Negócio" column-label "Un Neg"

field tta_dat_sdo_ctbl as date format "99/99/9999" init ? label "Data Saldo Contábil" column-label "Data Saldo Contábil"

field tta_val_sdo_ctbl_db as db as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Movto Débito" column-label "Movto Débito"

field tta_val_sdo_ctbl_cr as as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Movto Crédito" column-label "Movto Crédito"

field tta_val_sdo_ctbl_fim as fim as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Saldo Contábil Final" column-label "Saldo Contábil Final"

field tta_val_apurac_restdo as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apuração Resultado" column-label "Apuração Resultado"

field tta_val_apurac_restdo_db as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apuração Restdo DB" column-label "Apuração Restdo DB"

field tta_val_apurac_restdo_cr as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apuração Restdo CR" column-label "Apuração Restdo CR"

field tta_val_apurac_restdo_acum as acum as dec format "->>>>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apuracao Final" column-label "Apuracao Final"

field tta_val_sdo_ctbl_db_sint as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Movto Débito Sint" column-label "Movto Débito Sint"

field tta_val_sdo_ctbl_cr_sint as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Movto Crédito Sint" column-label "Movto Crédito Sint"

field tta_val_sdo_ctbl_fim_sint as dec format "->>>>,>>>,>>>,>>9.99" decimals 2 init 0 label "Saldo Sintético" column-label "Saldo Sintético"

field tta_val_apurac_restdo_sint as sint as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apuracao Resultado" column-label "Apuracao Resultado"

field tta_val_apurac_restdo_sint_db db as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apur Restdo Sint DB" column-label "Apur Restdo Sint DB" field

field tta_val_apurac_restdo_sint_cr as cr as dec format "->>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apur Restdo Sint CR" column-label "Apur Restdo Sint CR"

field tta_val_apurac_restdo_sint_acum as dec format "->>>>,>>>,>>>,>>9.99" decimals 2 init 0 label "Apur Result Sint" column-label "Apur Result Sint"

field field tta_val_movto_empenh empenh as dec format "->>,>>>,>>>,>>9.99" decimals 9 init 0 label "Movto Empenhado" column-label "Movto Empenhado"

field tta_qtd_sdo_ctbl_db as db as dec format ">>>,>>>,>>9.99" decimals 2 init 0 label "Quantidade DB" column-label "Quantidade DB"

field tta_qtd_sdo_ctbl_cr as cr as dec format ">>>,>>>,>>9.99" decimals 2 init 0 label "Quantidade CR" column-label "Quantidade CR"

field tta_qtd_sdo_ctbl_fim fim as dec format "->>>,>>>,>>9.99" decimals 2 init 0 label "Quantidade Final" column-label "Quantidade Final"

field ttv_val_movto_ctbl as ctbl as dec format ">>>,>>>,>>>,>>9.99" decimals 2

field tta_qtd_movto_empenh empenh as dec format "->>>>,>>9.9999" decimals 4 init 0 label "Qtde Movto Empenhado" column-label "Qtde Movto Empenhado"

index tt_id is primary unique

tta_cod_empresa empresa ascending

tta_cod_finalid_econ ascendingecon ascending

tta_cod_plano_cta_ctbl ctbl ascending

tta_cod_cta_ctbl ctbl ascending

tta_cod_plano_ccusto ascendingccusto ascending

tta_cod_ccusto ascendingccusto ascending

tta_cod_proj_financ ascending

tta_cod_cenar_ctbl _cenar_ctbl ascending

tta_cod_estab ascending

tta_cod_unid_negoc ascending

tta_dat_sdo_ctbl ascendingctbl ascending

index tt_seq

tta tta_num_seq seq ascending.

/* (4º Parâmetro)*/

def temp-table tt_log_erros no-undo

field ttv_num_seq as seq as integer format ">>>,>>9" label "Seqüência" column-label "Seq"

field ttv_num_cod_erro as integer format ">>>>,>>9" label "Número" column-label "Número"

field ttv_des_erro as erro as character format "x(50)" label "Inconsistência" column-label "Inconsistência"

field ttv_des_ajuda as ajuda as character format "x(50)" label "Ajuda" column-label "Ajuda".

...

Para Busca de saldo de mais de um período e definindo finalidade, acrescentar os registros abaixo:

CREATE tt_input_leitura_sdo.

...

ttv_num_seq_2 = 6.

CREATE tt_input_leitura_sdo.

ASSIGN ttv_cod_label = "Finalidade Econômica"

ttv ttv_des_conteudo = "corrente"

...

Versions Compared

Old Version 6

New Version Current

Key

output table tt_log_erros).

Parâmetros

Parâmetro

Retorno

Tabelas Temporárias

Descrição

Exemplo de utilizacão da API de Leitura de Saldos