Linha Datasul

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Alexandre Schroeder

Gravado em

comparado com

Nova versão 7

changes.mady.by.user Alexandre Schroeder

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

DEF TEMP-TABLE ttResumo NO-UNDO
         FIELD cod-estabel LIKE estabel                 LIKE wm-box-saldo.cod-estabel
         FIELD cod-local LIKE local                     LIKE wm-box-saldo.cod-local
         FIELD cod-item item                      LIKE wm-box-saldo.cod-item
         FIELD cod-refer LIKE refer                     LIKE wm-box-saldo.cod-refer
         FIELD cod-lote LIKE lote                       LIKE wm-box-saldo.cod-lote
         FIELD dt-transacao transacao                LIKE wm-box-saldo.dt-transacao
         FIELD dt-validade-lote LIKE lote           LIKE wm-saldo-estoque.dt-validade-lote
         FIELD ind-status-box LIKE box             LIKE wm-box-saldo.ind-status-box
         FIELD ind-status-saldo saldo          LIKE wm-box-saldo.ind-status-saldo
         FIELD cod-embalagem embalagem          LIKE wm-box-saldo.cod-embalagem
         FIELD qtd-original original                  LIKE wm-box-saldo.qtd-original
         FIELD qtd-item LIKE item                       LIKE wm-box-saldo.qtd-item
         FIELD qtd-item-bloq LIKE bloq               LIKE wm-box-saldo.qtd-item-bloq
         FIELD qti-embalagem LIKE embalagem             LIKE wm-box-movto.qti-embalagem
         FIELD cod-cliente 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 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.

...

DEF TEMP-TABLE ttResumoItem          FIELD id-box           LIKE  NO-UNDO
         FIELD id-box                  LIKE wm-box-saldo.id-box

         FIELD dt-transacao     LIKE  wm-box-saldo.dt-transacao

         FIELD          FIELD ind-status-box   LIKE  box     LIKE wm-box-saldo.ind-status-box
         FIELD          FIELD ind-status-saldo LIKE  saldo  LIKE wm-box-saldo.ind-status-saldo
         FIELD          FIELD cod-embalagem    LIKE  embalagem  LIKE wm-box-saldo.cod-embalagem
         FIELD qtd-original     LIKE           FIELD qtd-item               LIKE wm-box-saldo.qtd-original         FIELD qtd-item         LIKE  item
         FIELD qtd-item-alocad   LIKE wm-box-saldo.qtd-item         FIELD -bloq
         FIELD qtd-item-bloq    LIKE  liberado LIKE wm-box-saldo.qtd-item-bloq

         FIELD qti-embalagem    LIKE  wm-box-movto.qti-embalagem

         FIELD RowNum           AS INTEGER

         FIELD r-RowId          AS ROWID

         INDEX w-res01 IS UNIQUE id-box  

                                 dt-transacao  

                                 cod-embalagem

                                 qtd-original

                                 qtd-item

                                 qtd-item-bloq

                          ind-          FIELD RowNum             AS INTEGER
         FIELD r-RowId               AS ROWID
         INDEX w-res01 id-box
                  cod-embalagem
                  ind-status-saldo.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pcCodEstabel

Char

X(3)

X

 

 

Código do estabelecimento

pcCodLocal

Char

X(3)

X

 

 

Código do local

pcCodClienteInte>>>>>>>>9X

Código do cliente

pcCodItem

Char

X(16)

X

 

 

Código do item

pcCodRefer

Char

X(8)

X

 

 

Código do refer

pcCodLote

Char

X(10)

X

 

 

Código do lote

pqtd-atualDec>>>,>>>,>>9.9999
X
Quantidade atual

ttResumoItem

Table


 

X

 

Tabela de resumo de ocupação do item

...

Definição de temp-table:

DEF TEMP-TABLE ttDetalhe         FIELD NO-UNDO
         FIELD c-movto      movto AS CHARACTER LABEL "Movimento" FORMAT "X(1013)"
        FIELD num-docto             FIELD id-docto LIKE wm-docto.id-docto
         FIELD num-docto LIKE wm-docto.num-docto
        FIELD dt-transacao          FIELD num-seq-item LIKE wm-docto.box-saldo.num-seq-item
         FIELD dt-transacao         FIELD qtd-item     AS DATE LABEL "Dt Implanta»’o" FORMAT "99/99/9999"
         FIELD qtd-item LIKE wm-docto-itens.qtd-item
         FIELD atualizado AS LOGICAL FORMAT "Sim/N’o" LABEL "Atualizado"
         FIELD origem-docto AS CHARACTER LABEL "Origem Docto" FORMAT "x(25)"
         FIELD cod-usuario LIKE wm-tarefa-docto-itens.cod-usuario.



Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pcCodEstabel

Char

X(3)

X

 

 

Código do estabelecimento

pcCodLocal

Char

X(3)

X

 

 

Código do local

pdeIdBox

Decimal

>>>>>>>>>9

X

 

 

Identificador único do box

pcCodItem

Char

X(16)

X

 

 

Código do item

pcCodRefer

Char

X(8)

X

 

 

Código da referência

pcCodLote

Char

X(10)

X

 

 

Código do lote

pdtDtTransacao

Date

99/99/9999

X

 

 

Data da transação

pcCodEmbalagem

Char

X(10)

X

 

 

Código da embalagem

pdeQtdOriginal

Decimal

>>>,>>>,>>9.9999

X

 

 

Quantidade original

pdeQtdItem

Decimal

>>>,>>>,>>9.9999

X

 

 

Quantidade Item

pdeQtdItemBloq

Decimal

>>>,>>>,>>9.9999

X

 

 

Código do Item bloqueado

piIndStatusSaldo

Integer

>9

X

 

 

Indicador do status do saldo

ttResumoItem

Table


 

X

 

Tabela de resumo de ocupação do item

...