Documento de API

Objetivo

Criação da tabela de Empresa e Unidade Organizacional (referente à empresa criada) no produto EMS5.

Parâmetros de entrada

p_num_vers_integr_api: será utilizado para determinar se o programa que está chamando está íntegro com as definições correntes da API;

tt_empresas_ems5: Temp-table que contém as informações necessárias para a criação da tabela empresa.

tt_erros_2: Temp-table que retorna os erros gerados na tentativa de efetivação da transação.

Funcionamento

Na forma padrão, realiza-se a chamada através de um comando RUN normal, passando-se as temp-tables carregadas com as informações necessárias.

run prgint/ufn/ufn944zg.py (Input v_num_vers_integr_api,

                            Input table tt_empresas_ems5,

                            output table tt_erros_2).

Tabelas Temporárias

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

def temp-table tt_empresas_ems5 no-undo

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

    field ttv_nom_razao_social             as character format "x(30)" label "Razão Social" column-label "Razão Social"

    field ttv_nom_abrev                      as character format "x(15)" label "Nome Abreviado" column-label "Nome Abrev"

    field ttv_log_recebe_cop_clien       as logical format "Sim/Não" initial NO label "Rec Cop Cliente" column-label "Recebe Copia Cliente"

    field ttv_log_recebe_cop_fornec     as logical format "Sim/Não" initial NO label "Rec Cop Fornecedor" column-label "Recebe Copia Fornece"

    field ttv_log_recebe_cop_repres     as logical format "Sim/Não" initial no label "Rec Cop Representant" column-label "Recebe Copia Represe"

    field ttv_log_recebe_alter_clien      as logical format "Sim/Não" initial no label "Rec Alteração Client" column-label "Rec Alteração Client"

    field ttv_log_recebe_alter_fornec    as logical format "Sim/Não" initial no label "Rec  Alteracao Forn" column-label "Recebe Alteracao For"

    field ttv_log_recebe_alter_repres    as logical format "Sim/Não" initial no label "Rec Alteração Repres" column-label "Recebe Alteração Rep"

    field ttv_log_integr_ems_2             as logical format "Sim/Não" initial no

    field tta_dat_inic_valid                  as date format "99/99/9999" initial &IF "{&ems_dbtype}":U = "MSS":U &THEN 01/01/1800 &ELSE 01/01/0001 &ENDIF label "Início Validade" column-label "Inic Validade"

    field tta_dat_fim_valid                   as date format "99/99/9999" initial 12/31/9999 label "Fim Validade" column-label "Fim Validade"

    .

def temp-table tt_erros_2 no-undo

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

    field ttv_des_mensagem                as character format "x(50)" label "Mensagem" column-label "Mensagem"

    field ttv_des_ajuda                       as character format "x(70)" label "Ajuda" column-label "Ajuda"

    .