Linha Datasul

Árvore de páginas



API de Inclusão de dados (001)

Nome Físico: sec/seapi002aa.r

Nome do Include com Parâmetros: sec/seapi002aa.i

Versão de Integração: 001

Objetivo: 

Criar registros nas tabelas usuar_mestre, usuar_mestre_ext, grp_usuar, usuar_grp_usuar, usuar_mestre_aux.

Pré-requisitos: 

Não se aplica




Considerações Gerais

  • A API recebe como parâmetros temp-tables que correspondem as informações necessárias para a inclusão nas tabelas;
  • A include {sec/seapi002aa.i} contém as definições das Temp-Tables que devem ser passadas como parâmetros à API sec/seapi002aa.p. Sendo que a chamada desta include, como a inclusão de valores, deve ser feita antes da chamada da API sec/seapi002aa.p.


Parâmetros de Entrada e Saída


Temp-Table tt-usuar_mestre:  

Possui as mesmas definições da tabela usuar_mestre, logo a sua definição é um like dessa tabela.



Temp-table tt-erro: 


Devolve ao usuário os possíveis erros na inserção de dados.



Execução

A API sec/seapi002aa.p irá executar 6 validações básicas:

1ª Validação:

Campo chave não está em branco

O programa irá verificar se os registros da temp-table não estão com o código em branco. Se estiverem gera uma mensagem na tt-erro.


2ª Validação:

Versão de Integridade

O programa irá verificar se os registros da temp-table já existem. Se existirem gera uma mensagem na tt-erro.


3ª Validação:

 Campo nome do usuário não está em branco

O programa irá verificar se os registros da temp-table não estão com o nome do usuário em branco. Se estiverem gera uma mensagem na tt-erro.


4ª Validação:

Campo diretório de spool não está em branco

O programa irá verificar se os registros da temp-table não estão com o diretório de spool em branco. Se estiverem gera uma mensagem na tt-erro.


5ª Validação:

Campo dialeto não está em branco

O programa irá verificar se os registros da temp-table não estão com o dialeto em branco. Se estiverem gera uma mensagem na tt-erro.



 6ª Validação:

Campo idioma não está em branco

O programa irá verificar se os registros da temp-table não estão com o idioma em branco. Se estiverem gera uma mensagem na tt-erro.




Exemplo de utilização


Executando a api: 


DEFINE TEMP-TABLE tt-usuar_mestre     LIKE usuar_mestre.
DEF temp-table tt-erro no-undo
    field i-sequen as int 
    field cd-erro  as int
    field mensagem as char format "x(255)".

CREATE tt-usuar_mestre.
ASSIGN tt-usuar_mestre.cod_usuario          = "_API0032"
       tt-usuar_mestre.nom_usuario          = "_API0032"
       tt-usuar_mestre.nom_dir_spool        = "c:\tmp"
       tt-usuar_mestre.ind_tip_usuar        = "comum"
       tt-usuar_mestre.ind_tip_aces_usuar   = "Interno"
       tt-usuar_mestre.cod_dialet           = "pt"
       tt-usuar_mestre.cod_idiom_orig       = "POR".

RUN seapi002aa.p(INPUT TABLE tt-usuar_mestre,
                 OUTPUT TABLE tt-erro).
FOR EACH tt-erro:
    MESSAGE i-sequen " - " cd-erro " - " mensagem
        VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.