Linha Microsiga Protheus

Árvore de páginas

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:
RotinaNome Técnico
EECAT140.PRW

Cotação de Moedas

EECCAD00.PRWRecursos 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:

OrdemNomeTipoDescriçãoObrigatório
1aCabArray of RecordArray com os dados do cabeçalho para integração automáticaX
2DescontinuadoNuloDescontinuado - Enviar Nulo
3nOpcNuméricoOpçã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