Histórico da Página

...

Campos CHAVES:

• tt-ped-venda....: nome-abrev, nr-pedcli, nome-abrev
• tt-ped-item......: nr  nome-pedcliabrev, nome nr-abrevpedcli, nr-sequencia*, it-codigo, cod-refer
• tt-ped-ent........: nr  nome-abrev, nr-pedcli, nomenr-abrevsequencia, it-codigo, cod-refer, nr-sequencia, nr-entrega*
• tt-ped-conpges: nr-pedido, nr-pedclisequencia
• tt-ped-antecip..: nr-pedclipedido
• tt-pd-vendor.....: nr-pedclipedido

Observação: na inclusão se não informado, assume sequencial de 10, na modificação é obrigatório.

Exemplo: 

define temp-table tt-ped-venda no-undo like ped-venda
       field cod-maq-origem as integer format "9999"
       field num-processo    as integer format ">>>>>>>>9" initial 0
       field num-sequencia  as integer format ">>>>>9"        initial 0
       field ind-tipo-movto    as integer format "99"                initial 1
       index pedido is primary cod-maq-origem
                                             num-processo
                                             num-sequencia.

define temp-table tt-ped-item no-undo like ped-item
       field cod-maq-origem as integer format "9999"
       field num-processo    as integer format ">>>>>>>>9" initial 0
       field num-sequencia  as integer format ">>>>>9"        initial 0
       field ind-tipo-movto    as integer format "99"                initial 1
       index item is primary cod-maq-origem
                                         num-processo
                                         num-sequencia.

define temp-table tt-ped-ent no-undo like ped-ent
       field cod-maq-origem as integer format "9999"
       field num-processo    as integer format ">>>>>>>>9" initial 0
       field num-sequencia  as integer format ">>>>>9"        initial 0
       field ind-tipo-movto    as integer format "99"                initial 1
       index entrega is primary cod-maq-origem
                                              num-processo
                                              num-sequencia.

define temp-table tt-ped-repre no-undo like ped-repre
       field cod-maq-origem  as integer format "9999"
       field num-processo     as integer format ">>>>>>>>9" initial 0
       field num-sequencia   as integer format ">>>>>9"        initial 0
       field ind-tipo-movto     as integer format "99"                initial 1
       field nr-pedcli like ped-venda.nr-pedcli
       index pedido is primary cod-maq-origem
                                             num-processo
                                             num-sequencia.

define temp-table tt-con-pges no-undo like cond-ped
        field cod-maq-origem  as integer format "9999"
        field num-processo     as integer format ">>>>>>>>9" initial 0
        field num-sequencia   as integer format ">>>>>9"        initial 0
        field ind-tipo-movto     as integer format "99"                initial 1
        field nr-pedcli like ped-venda.nr-pedcli
        field tipo as integer
        index pedido is primary cod-maq-origem
                                              num-processo
                                              num-sequencia.

define temp-table tt-ped-antecip no-undo like ped-antecip
       field cod-maq-origem  as integer format "9999"
       field num-processo     as integer format ">>>>>>>>9" initial 0
       field num-sequencia   as integer format ">>>>>9"        initial 0
       field ind-tipo-movto     as integer format "99"                initial 1
       field nr-pedcli like ped-venda.nr-pedcli
       index pedido is primary cod-maq-origem
                                             num-processo
                                             num-sequencia.

define temp-table tt-versao-integr no-undo
       field cod-versao-integracao as integer format "999"
       field ind-origem-msg            as integer format "99".

define temp-table tt-erros-geral no-undo
       field identif-msg                 as char format "x(60)"
       field num-sequencia-erro  as integer format "999"
       field cod-erro                     as integer format "99999"
       field des-erro                     as char format "x(60)"
       field cod-maq-origem        as integer format "999"
       field num-processo           as integer format "999999999".

define temp-table tt-pd-vendor-aux no-undo
        field nr-pedido      as integer
        field taxa-cliente   as decimal
        field mo-cliente     as integer
        field cod-cond-cli  as integer
        field dias-base      as integer
        field data-base      as date
        field vl-equal-prov as decimal
        field char-1            as character
        field char-2            as character
        field dec-1             as decimal
        field dec-2             as decimal
        field int-1               as integer
        field int-2               as integer
        field log-1              as logical
        field log-2              as logical
        field data-1            as date
        field data-2            as date
        field nr-pedcli like ped-venda.nr-pedcli
        index pedcli is primary nr-pedcli.

define temp-table tt-pd-vendor no-undo like tt-pd-vendor-aux
        field cod-maq-origem as integer format "9999"
        field num-processo    as integer format ">>>>>>>>9" initial 0
        field num-sequencia  as integer format ">>>>>9"        initial 0
        field ind-tipo-movto    as integer format "99"                initial 1
        index pedido is primary cod-maq-origem 
                                              num-processo
                                              num-sequencia.

define variable i-cod-maq-origem as integer format "999"             no-undo.
define variable i-num-processo    as integer format "999999999" no-undo.

run pdp/pdapi152.p (input-output  table tt-ped-venda,

...