Árvore de páginas

Documento de BO

Produto:

Datasul

Ocorrência:

Documentação de BO

Nome Físicofibo/bofi172.p

 

Os métodos de negócio estão definidos abaixo:

 

Método Negócio:

buscaRelacTabMultiFilho

Requisito

carregaBancosGeral

Sintaxe

buscaRelacTabMultiFilho (input p-MER,

                         Input tt-tabela-geral,

                         Output tt-caminhos).

Descrição

Busca todos os registros da tabela Relação Tabelas Múltiplas Filhos, que contém o o clf-relac-tab-multi-filho .Cdn-model-entid-relacto = pi-cdn-model-entid-relacto.

 

Parâmetros      Descrição

p-MER              Número do modelo (MER) disponível (integer)

tt-tabela-geral   Tabelas dos bancos conectados (vide definição ao final)

tt-caminhos       Caminhos disponíveis entre as tabelas dos bancos (vide definição ao final)

 

Retorno

OK.

 

 

carregaBancos

Requisito

Nenhum

Sintaxe

CarregaBancos (output p-bancos,

               Output table tt-tabela,

               Output p-first-db).

Descrição

Método que carrega os bancos (e tabelas dos bancos) parametrizados na clf-param-gerador-arq-fisc.

 

Parâmetros      Descrição

p-bancos          Lista de bancos parametrizados

tt-tabela            Tabelas dos bancos parametrizados (vide definição ao final)

p-first-db           Primeiro banco de dados da lista de bancos.

 

Retorno

OK.

carregaBancosGeral

Requisito

Nenhum

Sintaxe

CarregaBancosGeral (output table tt-bancos-geral,

                    Output table tt-tabela-geral).

Descrição

Método que carrega os bancos conectados na base.

 

Parâmetros      Descrição

tt-bancos-geral Tabela com os bancos conectados (vide definição ao final)

tt-tabela-geral   Tabelas dos bancos conectados (vide definição ao final)

 

Retorno

OK.

criaOpcaoCaminhos

Requisito

Nenhum

Sintaxe

CriaOpcaoCaminhos (input cód_bco_orig,

                   Input cód_tab_orig,

                   Input cód_bco_dest,

                   Input cód_tab_dest,

                   Input i-sequencia,

                   Input-Output table tt-tab-caminhos).

Descrição

Método que cria todas as alternativas de relacionamentos possíveis entre duas tabelas.

 

Parâmetros      Descrição

Cód_bco_orig   Codigo do Banco Origem

Cód_tab_orig    Codigo da Tabela Origem

Cód_bco_dest  Codigo do Banco Destino

Cód_tab_dest   Codigo da Tabela Destino

i-sequencia       Seqüência de caminhos inicial (passar fixo 1)

tt-tab-caminhos Tabela com os caminhos possíveis. (vide definição ao final)

 

 

Retorno

OK.

verificaMerExistente

Requisito

Nenhum

Sintaxe

verificaMerExistente (input p-caminho,

                      Output i-mer-existente).

Descrição

Método que verifica se já existe um MER cadastrado para o caminho selecionado

 

Parâmetros      Descrição

p-caminho        Caminho a ser consistido

i-mer-existente  Número do MER que possui o mesmo caminho, se houver. Se não houver, será retornado 0.

 

Retorno

OK.

 

Definição das tabelas temporárias utilizadas nos métodos de negócio:

DEFINE TEMP-TABLE tt-caminhos NO-UNDO

    FIELD cod-caminho             AS INTEGER

    FIELD seq-caminho             AS INTEGER

    FIELD cdn-relacto             AS INTEGER

    FIELD cdn-model-entid-relacto AS INTEGER

    FIELD des-origem              AS CHARACTER FORMAT "X(100)"

    FIELD des-destino             AS CHARACTER FORMAT "X(100)"

    FIELD opcao                   AS CHARACTER FORMAT "X(5)"

    FIELD seq-marcada             AS LOG

    INDEX opcao opcao

    INDEX caminho cod-caminho seq-caminho

    INDEX sequencia seq-marcada seq-caminho.

 

DEFINE TEMP-TABLE tt-tab-caminhos NO-UNDO

    FIELD cod-caminho    AS INTEGER

    FIELD seq-caminho    AS INTEGER

    FIELD cdn-relacto    LIKE clf-relac-tab.cdn-relacto

    FIELD des-relacto    LIKE clf-relac-tab.des-relacto

    FIELD cod-bco-orig   LIKE clf-relac-tab.cod-bco-orig

    FIELD cod-tab-orig   LIKE clf-relac-tab.cod-tab-orig

    FIELD cod-bco-dest   LIKE clf-relac-tab.cod-bco-dest

    FIELD cod-tab-dest   LIKE clf-relac-tab.cod-tab-dest

    INDEX relacto IS PRIMARY cdn-relacto.

 

DEFINE TEMP-TABLE tt-banco NO-UNDO

    FIELD nome-banco  AS CHARACTER FORMAT "X(50)"

    INDEX id IS PRIMARY UNIQUE nome-banco.

 

DEFINE TEMP-TABLE tt-tabela NO-UNDO

    FIELD nome-banco  AS CHARACTER FORMAT "X(50)"

    FIELD nome-tabela AS CHARACTER FORMAT "X(50)"

    INDEX id IS PRIMARY UNIQUE nome-banco nome-tabela.

 

DEFINE TEMP-TABLE tt-banco-geral NO-UNDO

    FIELD nome-banco  AS CHARACTER FORMAT "X(50)"

    INDEX id IS PRIMARY UNIQUE nome-banco.

 

DEFINE TEMP-TABLE tt-tabela-geral NO-UNDO

    FIELD nome-banco  AS CHARACTER FORMAT "X(50)"

    FIELD nome-tabela AS CHARACTER FORMAT "X(50)"

    FIELD info-tabela AS CHARACTER FORMAT "X(100)"

    INDEX id IS PRIMARY UNIQUE nome-banco nome-tabela.