A idéia deste artigo é apenas para exemplificar como efetuar a rotina automática para a rotina Purchase Order (EICPO400).

Para quem conhece Purchase Order, sabe o quanto é difícil inserir invoice uma a uma, e porque não utilizar uma rotina automática para importar várias invoices numa mesma Purchase Order?

Primeiramente é necessário saber quais são os parâmetros do MsExecAuto do EICPO400 (PO)

Onde:

a = Deixaremos como Nil, pois no fonte padrão, ele entenderá que será uma PO

b = Cabeçalho da PO (Tabela SW2)

c = Itens da PO (Tabela SW3)

d = Como é uma inclusão, utilizaremos a opção 3, se fosse uma alteração usa-se a opção 4 ou 5 para exclusão.

Campos que irei utilizar no meu exemplo:

Estrutura do cabeçalho

Estrutura para incluir os Itens

Exemplo do fonte:

Abaixo, uma demonstração da rotina sendo executada no Protheus. No meu caso, eu criei uma rotina no qual irá importar diversos arquivos textos no formato CSV, e cada arquivo corresponderá em uma Purchase Order (PO).

A rotina irá preencher um grid e irá fazer um salto de linha (pintei em vermelho), para cada arquivo. Ao confirmar, o sistema irá criar minhas PO’s automaticamente.

Caso exista algum erro, a função MostraErro() irá exibir em tela para que meu usuário possa analisar depois.


Equipe Blog Advpl

Amantes da tecnologia

Deixe uma resposta