Árvore de páginas

Versões comparadas

Chave

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

...

getNomEstabelDocumento de BO

Produto:

Datasul

Ocorrência:

Documentação de BO

Nome Físicodibo/bosc035.p

...

DEF TEMP-TABLE ttDetalhe NO-UNDO
         FIELD c-movto          AS CHARACTER LABEL "Movimento" FORMAT "X(13)"
         FIELD id-docto          LIKE wm-docto.id-docto
         FIELD num-docto      LIKE wm-docto.num-docto
         FIELD num-seq-item LIKE wm-box-saldo.num-seq-item
         FIELD dt-transacao   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

pdtDtTransacaoDate99/99/9999X

Data de transação

pcCodEmbalagem

Char

X(10)

X

 

 

Código da embalagem

piIndStatusSaldo

Integer

>9

X

 

 

Indicador do status do saldo

ttDetalhe

Table


X

 

Tabela de detalhe do item


Método: 

getGeraDetalheSaldoEndereco

...

DEF TEMP-TABLE ttDetalhe1 NO-UNDO LIKE wm-box-saldo
        FIELD num-docto LIKE wm-docto.num-docto.


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

pcCodClienteInteger >>>>>>>>9X

Código do cliente

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

ttDetalhe1

Table


X

 



Método: 

getOcupacaoBoxConsulta


Descrição

Método responsável em listar os registros dos movimentos do box.


Requisitos:

Definição de temp-table:

DEF TEMP-TABLE ttResumoMovto NO-UNDO
         FIELD cod-estabel       LIKE wm-docto-itens.cod-estabel
         FIELD cod-local           LIKE wm-docto-itens.cod-local
         FIELD id-docto             LIKE wm-docto-itens.id-docto
         FIELD num-seq-item    LIKE wm-docto-itens.num-seq-item
         FIELD cod-item             LIKE wm-docto-itens.cod-item
         FIELD cod-refer             LIKE wm-docto-itens.cod-refer
         FIELD cod-lote               LIKE wm-docto-itens.cod-lote
         FIELD dt-validade-lote   LIKE wm-docto-itens.dt-validade-lote
         FIELD id-movto              LIKE wm-box-movto.id-movto
         FIELD ind-tipo-movto     LIKE wm-box-movto.ind-tipo-movto
         FIELD ind-status-movto LIKE wm-box-movto.ind-status-movto
         FIELD cod-embalagem LIKE wm-box-movto.cod-embalagem
         FIELD qtd-item              LIKE wm-box-movto.qtd-item
         FIELD qti-embalagem   LIKE wm-box-movto.qti-embalagem
         FIELD cod-cliente         LIKE wm-docto-itens.cod-cliente
         FIELD RowNum           AS INTEGER
         FIELD r-RowId             AS ROWID
         INDEX w-res01 IS UNIQUE

                  cod-estabel
                  cod-local
                  id-docto
                  num-seq-item
                  id-movto
                  ind-tipo-movto.

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

ttResumoMovto

Table


 

X

 

Resumo dos movimentos


Método: 

getOcupacaoBoxConsulta


Descrição

Método responsável em listar os saldo dos box.

 

Requisitos:

Definição de temp-table:

DEF TEMP-TABLE ttResumoConsulta NO-UNDO

         FIELD cod-estabel          LIKE  wm-box-saldo.cod-estabel

         FIELD cod-local              LIKE  wm-box-saldo.cod-local

         FIELD cod-item               LIKE  wm-box-saldo.cod-item

         FIELD cod-refer              LIKE  wm-box-saldo.cod-refer

         FIELD cod-lote                LIKE  wm-box-saldo.cod-lote

         FIELD dt-validade-lote    LIKE  wm-saldo-estoque.dt-validade-lote

         FIELD ind-status-box      LIKE  wm-box-saldo.ind-status-box

         FIELD ind-status-saldo    LIKE  wm-box-saldo.ind-status-saldo

         FIELD cod-embalagem    LIKE  wm-box-saldo.cod-embalagem

         FIELD qtd-item                LIKE  wm-box-saldo.qtd-item

         FIELD qtd-item-liberado  LIKE  wm-box-saldo.qtd-item

         FIELD qtd-item-alocad    LIKE  wm-box-saldo.qtd-item

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

         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 IS UNIQUE  cod-item

                                  cod-refer

                                  cod-lote

                                  cod-embalagem 

                                  ind-status-saldo

                                  cod-cliente.


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

ttResumoConsulta

Table


 

X

 

Resumo dos saldos nos box

Método: 

getMovtoBox


Descrição

Método responsável em listar os registros dos movimentos do box.

 

Requisitos:

Definição de temp-table:

DEF TEMP-TABLE ttResumoMovto NO-UNDO
         FIELD cod-estabel       LIKE wm-docto-itens.cod-estabel
         FIELD cod-local           LIKE wm-docto-itens.cod-local
         FIELD id-docto             LIKE wm-docto-itens.id-docto
         FIELD num-seq-item    LIKE wm-docto-itens.num-seq-item
         FIELD cod-item             LIKE wm-docto-itens.cod-item
         FIELD cod-refer             LIKE wm-docto-itens.cod-refer
         FIELD cod-lote               LIKE wm-docto-itens.cod-lote
         FIELD dt-validade-lote   LIKE wm-docto-itens.dt-validade-lote
         FIELD id-movto              LIKE wm-box-movto.id-movto
         FIELD ind-tipo-movto     LIKE wm-box-movto.ind-tipo-movto
         FIELD ind-status-movto LIKE wm-box-movto.ind-status-movto
         FIELD cod-embalagem LIKE wm-box-movto.cod-embalagem
         FIELD qtd-item              LIKE wm-box-movto.qtd-item
         FIELD qti-embalagem   LIKE wm-box-movto.qti-embalagem
         FIELD cod-cliente         LIKE wm-docto-itens.cod-cliente
         FIELD RowNum           AS INTEGER
         FIELD r-RowId             AS ROWID
         INDEX w-res01 IS UNIQUE

                  cod-estabel
                  cod-local
                  id-docto
                  num-seq-item
                  id-movto
                  ind-tipo-movto.

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

ttResumoMovto

Table


 

X