Descrição:

Possibilita realizar a manutenção das Cotações de Moedas, tais como Inclusão, Alteração e Exclusão através do mecanismo de rotina automática.

Produto:

Microsiga Protheus

Segmento:

Comércio Exterior

Módulo:

SIGAEEC - Easy Export Control

Rotina:

Rotina	Nome Técnico
EECAT140.PRW	Cotação de Moedas
EECCAD00.PRW	Recursos Auxiliares

País(es):

Todos

Banco(s) de Dados:

Todos Homologados pela TOTVS

Tabelas Utilizadas:

SYE - Cotação de Moedas

Parâmetros:

Função EECAT140:

Ordem	Nome	Tipo	Descrição	Obrigatório
1	aCab	Array of Record	Array com os dados do cabeçalho para integração automática	X
2	Descontinuado	Nulo	Descontinuado - Enviar Nulo
3	nOpc	Numérico	Opção: 3=Incluir; 4=Alterar; 5=Excluir;	X

Integração automática de registro de Cotação de Moedas

Para realizar a inclusão automática de um registro de Cotação de Moedas é necessário a utilização da função MsExecAuto utilizando o programa EECAT140 responsável pela manutenção das informações

Para a utilização da rotina automática deve-se utilizar arrays multi dimensionais no envio dos dados para o processamento que segue o mesmo critério dos dados que são colocados via tela. Esses arrays são definidos da seguinte forma:

Modelo do array:

1. nome do campo;
2. dados a serem inseridos;
3. validação caso queira substituir a validação do dicionário de dados (SX3);

Exemplo:

aAdd(aCab, {"YE_MOEDA", "US$" , Nil})

Para um melhor entendimento segue abaixo exemplo de código de implementação da rotina:

Código de exemplo para integração automática de registro de Cotação de Moedas

User Function IntegTaxas()
Local aCab := {}
Local nOpc := 3//Operação a ser executada (3=Inclusão;4=Alteração;5=Exclusão)
Private lMsErroAuto := .F.

    aAdd(aCab, {"YE_DATA"   , dDatabase, Nil})//Data da cotação
    aAdd(aCab, {"YE_MOEDA"  , "US$"    , Nil})//Moeda
    aAdd(aCab, {"YE_VLCON_C", 5        , Nil})//Taxa de Venda
    aAdd(aCab, {"YE_VLFISCA", 5        , Nil})//Taxa Fiscal
    aAdd(aCab, {"YE_TX_COMP", 5        , Nil})//Taxa de Compra

    MsAguarde({|| MSExecAuto( {|aAux, nOpc| EECAT140(aCab, Nil, nOpc) }, aCab, nOpc) }, "Integrando Cotação de Moeda")

    If lMsErroAuto
        MostraErro()
    Else
        MsgInfo("Integrado com sucesso", "Aviso")
    EndIf

Return Nil