Histórico da Página

...

Definição de temp-table:

DEF TEMP-TABLE ttResumo          FIELD cod-estabel      LIKE  NO-UNDO
         FIELD cod-estabel LIKE wm-box-saldo.cod-estabel
         FIELD          FIELD cod-local        LIKE  local LIKE wm-box-saldo.cod-local
         FIELD          FIELD cod-item         LIKE  item LIKE wm-box-saldo.cod-item
         FIELD          FIELD cod-refer        LIKE  refer LIKE wm-box-saldo.cod-refer
         FIELD          FIELD cod-lote         LIKE  lote LIKE wm-box-saldo.cod-lote
         FIELD          FIELD dt-transacao     LIKE  transacao LIKE wm-box-saldo.dt-transacao
         FIELD          FIELD dt-validade-lote LIKE  LIKE wm-saldo-estoque.dt-validade-lote
         FIELD          FIELD ind-status-box   LIKE  box LIKE wm-box-saldo.ind-status-box
         FIELD          FIELD ind-status-saldo LIKE  LIKE wm-box-saldo.ind-status-saldo
         FIELD          FIELD cod-embalagem    LIKE  embalagem LIKE wm-box-saldo.cod-embalagem
         FIELD          FIELD qtd-original     LIKE  original LIKE wm-box-saldo.qtd-original
         FIELD          FIELD qtd-item         LIKE  item LIKE wm-box-saldo.qtd-item
         FIELD          FIELD qtd-item-bloq    LIKE  bloq LIKE wm-box-saldo.qtd-item-bloq
         FIELD          FIELD qti-embalagem    LIKE  embalagem LIKE wm-box-movto.qti-embalagem

         FIELD RowNum           AS INTEGER

         FIELD r-RowId          AS ROWID

         INDEX w-res01 IS UNIQUE  cod-item

                                  cod-refer

                                  cod-lote

                                  dt-transacao  

                                  cod-embalagem

                                  qtd-original

                                  qtd-item

                                  qtd-item-bloq

         FIELD cod-cliente LIKE wm-box-saldo.cod-cliente
         &IF '{&bf_lote_avancado_liberado}' = 'yes' &THEN
                 FIELD log-bloq-movto-cq LIKE wm-box-saldo.log-bloq-movto-cq
                 FIELD desc-lote-estado AS CHARACTER FORMAT "x(20)"
         &ENDIF
          FIELD RowNum AS INTEGER
          FIELD r-RowId AS ROWID
          INDEX w-res01 cod-item
                      cod-refer
                      cod-lote
                      dt-transacao
                      cod-embalagem
                      qtd-original
                      qtd-item
                      qtd-item-bloq
                                                        ind-status-saldo.

Parâmetros:

...