Gerar pedidos importados - PEX

O objetivo aqui demonstrar como colocar executar um agendamento que gera os pedidos importados (PALMTOP_PEDIDO) em pedidos (PEDIDO) do ERP.

1 - Criar uma função PEX com o código fonte abaixo:

procedure GerarPedidosPalmTop;
var
    loCDS: TlibCDS;
    loGeraPalmTopPedido: TGeraPalmTopPedido;
begin
    loCDS := nil;
    loGeraPalmTopPedido := nil;
    try
        loCDS := of_CriaCDSporSQL('SELECT IDIMPORTACAO FROM PALMTOP_PEDIDO WHERE STATUS = 1 AND IMPORTADO = ''N''');
        if loCDS.of_TemDados then
        begin
            loGeraPalmTopPedido := TGeraPalmTopPedido.Create;
            while not loCDS.of_FimDS do
            begin
                loGeraPalmTopPedido.Adiciona(loCDS.GetInt(['IDIMPORTACAO']));
                loCDS.of_ProxReg;
            end;
            loGeraPalmTopPedido.Gerar;
        end;
    finally
        loCDS.Free;
        loGeraPalmTopPedido.Free;
    end;
end;

2 - No Ema Configurador, marcar o serviço Ema Motor ERP

3 - Reiniciar os serviços

4 - No Ema ERP, criar um agendamento do processo "Execução de função PEX". Na aba "Periodicidade", configurar quando deseja que seja a geração automática e na aba "Configurações", informar o código da função PEX criada e a chamada da função "GerarPedidosPalmTop".

 

Realizado os procedimentos descritos acima, o software já irá começar a executar os agendamentos conforme configuração.