programa para implantar pedido de venda e suas bos

Carlos Alberto Giusti · Fevereiro 13, 2023

rafael.andrade disse: ↑

Você viu a API e a BO que passei? muito mais simples que isso aí
Clique para expandir...

voce pode mandas as APIs para mim

rafael.andrade · Fevereiro 13, 2023

rafael.andrade disse: ↑

Exemplo:

Código:

{cdp\cdcfgmat.i}
{cdp\cdapi300.i1}  /* Temp-Table de Erros   */
{pdp\pdapi151.i}   /* Temp-Table Ped-Venda   */
{pdp\pdapi151.i1}  /* Temp-Table Ped-Item    */
{pdp\pdapi151.i2}  /* Temp-Table Ped-Repre   */
{pdp\pdapi151.i3}  /* Temp-Table Ped-Ent     */
{pdp\pdapi151.i4}  /* Temp-Table Cond-Ped    */
{pdp\pdapi151.i5}  /* Temp-Table Ped-Antecip */
{pdp\pdapi151.i6}  /* Temp-Table Pd-vendor   */
{cdp\cdapi150.i3}  /* Temp-Table de Versão   */
{cdp\cdapi150.i4}  /* Temp-Table de Erros    */

//Aqui vc faz a carga das temp-tables

//API que vai somente criar o pedido no PD4000, não vai completar o pedido
RUN pdp\pdapi152.r (INPUT-OUTPUT TABLE tt-ped-venda,
                    INPUT-OUTPUT TABLE tt-ped-item,
                    INPUT-OUTPUT TABLE tt-ped-ent,
                    INPUT-OUTPUT TABLE tt-ped-repre,
                    INPUT-OUTPUT TABLE tt-con-pges,
                    INPUT-OUTPUT TABLE tt-ped-antecip,
                    INPUT-OUTPUT TABLE tt-versao-integr,
                    OUTPUT       TABLE tt-erros-geral,
                    INPUT        i-cod-maq-origem,
                    INPUT        i-num-processo,
                    INPUT        NO,
                    INPUT        TABLE tt-pd-vendor).

FOR EACH tt-erros-geral NO-LOCK.
   CREATE TabErro.
   ASSIGN TabErro.identif-msg         = tt-erros-geral.identif-msg
          TabErro.num-sequencia-erro  = tt-erros-geral.num-sequencia-erro
          TabErro.cod-erro            = tt-erros-geral.cod-erro  
          TabErro.des-erro            = tt-erros-geral.des-erro.
END.

DEF VAR h-bodi149com AS HANDLE.
RUN dibo\bodi159com.r PERSISTENT SET h-bodi149com.

//Obs. 1: BO para Completar pedidos, precisa estar fora de uma TRANSACTIONS, use "MESSAGE TRANS VIEW-AS ALERT-BOX." para verificar se está dentro de uma transação se aparecer TRUE ou YES
//Obs. 2: Eu não tenho certeza, mas a tt-ped-venda retorna com os campos nr-pedido, nr-pedcli e nome-abrev preenchidos após a API de criação, com eles tu faz um FIND pra pegar o ROWID do registro criado na ped-venda usado abaixo
RUN CompleteOrder IN h-bodi149com (INPUT ROWID(ped-venda),
                                  OUTPUT TABLE RowErrors).

FOR EACH RowErrors NO-LOCK.
   PUT UNFORMAT SKIP "Erros Encontrados ao Completar Pedido: "
                SKIP "Num.: " STRING(ped-venda.nr-pedido)
                SKIP "NumPedCli.: " STRING(ped-venda.nr-pedcli)
                SKIP "Cliente.: " STRING(ped-venda.nome-abrev)
                SKIP "---------------------------------------------------------"
                SKIP "Seq.: " STRING(RowErrors.ErrorSequence)
                SKIP "Num.: " STRING(RowErrors.ErrorNumber)
                SKIP "Descrição: " STRING(RowErrors.ErrorDescription)
                SKIP "Parametros.: " STRING(RowErrors.ErrorParameters)
                SKIP "Tipo.: " STRING(RowErrors.ErrorType)
                SKIP "SubTipo.: " STRING(RowErrors.ErrorSubType)
                SKIP "Help.: " STRING(RowErrors.ErrorHelp)
                SKIP "---------------------------------------------------------" SKIP(1).
END.
DELETE PROCEDURE h-bodi149com.

Clique para expandir...

Aqui

Carlos Alberto Giusti · Fevereiro 13, 2023

rafael.andrade disse: ↑

Você viu a API e a BO que passei? muito mais simples que isso aí
Clique para expandir...

voce pode mandas as APIs para mim

rafael.andrade disse: ↑

Aqui
Clique para expandir...

no codigo que estou usando está gerando o pedido mas o item não.
está dando erros: unidade de medida do cliente invalido - qual campo do ped-item e de onde pego.
relacionamento item x cliente para a unidade medida nao encontrado

Carlos Alberto Giusti · Fevereiro 28, 2023

RESOLVIDO

Logar ou Criar uma Conta

programa para implantar pedido de venda e suas bos

Carlos Alberto Giusti Membro Ativo

rafael.andrade Membro Master Moderador Equipe de Suporte

Carlos Alberto Giusti Membro Ativo

Carlos Alberto Giusti Membro Ativo

Compartilhe esta Página