getNomEstabelDocumento de BO

Produto:

Datasul

Ocorrência:

Documentação de BO

Nome Físicodibo/bosc035.p


RecordSet


Temp-Table principal utilizada para utilização dos métodos da BO e suas respectivas definições.

Wm-box-saldo

Atributo

Tipo

Formato

Descrição

Obr.

cod-estabel

Char

X(3)

Código do estabelecimento

Sim

cod-local

Char

X(3)

Código do local

Sim

id-box

Decimal

>>>>>>>>>9

Identificador único do box

Sim

cod-item

Char

X(16)

Código do item

Sim

cod-refer

Char

X(8)

Código da referência do item

Sim

cod-lote

Char

X(10)

Código do lote

Sim

dt-transacao

Date

99/99/9999

Data de transação

Sim

id-saldo

Decimal

>>>>>>>>>9

Identificador único do saldo

Sim

dt-atua-saldo

Date

99/99/9999

Data de atualização do saldo

Sim

id-docto

Decimal

>>>>>>>>>9

Identificador único do documento

Sim

num-seq-item

Integer

>>>>>9

Número da seqüencia do movimento

Sim

cod-embalagem

Char

X(10)

Código da embalagem

Sim

qtd-original

Decimal

>>>,>>>,>>9.9999

Quantidade do item original

Não

qtd-item

Decimal

>>>,>>>,>>9.9999

Quantidade do item

Não

qtd-item-bloq

Decimal

>>>,>>>,>>9.9999

Quantidade do item bloqueada

Não

ind-status-box

Integer

>9

Indicador da situação do box

Sim

ind-status-saldo

Integer

>9

Indicador da situação do saldo

Sim

RowNuminteger

Não
r-rowidrowid

Não


Métodos Básicos


Métodos básicos de acesso ao banco de dados.



Método:

goToKey

 

Descrição:

Reposiciona o registro da tabela wm-box-saldo através de sua chave primária.


Requisitos:

Nenhum


Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pcod-estabel

char

X(3)

X

 

 

Código do estabelecimento

pcod-local

char

X(3)

X

 

 

Código do local

pdt-transacao

date

99/99/9999

X

 

 

Data da transação

pid-saldo

decimal

>>>>>>>>>9

X

 

 

Indentificador único do saldo


Queries e Constraints


Definição das Queries (acesso ao banco de dados) e Contraints (regras de leitura)  utilizadas para buscar grupos de registros da base de dados.



Método:

openQueryMain

 

Descrição:

Disponibiliza todos os saldos.



Método:

OpenQueryBox

 

Descrição:

Busca os registros de um determinado Estabelecimento, Local e Box.


Constraints Associados:

SetConstraintBox



Método:

SetConstraintBox

 

Descrição:

Solicita informações para seleção de saldos de um determinado Estabelecimento, Local e Box.


Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pcod-estabel

Char

X(3)

X

 

 

Código do estabelecimento

pcod-local

Char

X(3)

X

 

 

Código do local

pid-box

Decimal

>>>>>>>>>9

X

 

 

Identificador único do box


Métodos Negócio


Métodos adicionais de atualização e acesso à base de dados.



Método: 

GetDesItem

 

Descrição

Método consiste na pesquisa da descrição do item, de acordo com o código do item informado.

 

Requisitos:

Nenhum


Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

c-cod-item

Char

X(16)

X

 

 

Código do item

c-des-item

Char

X(60)

 

X

 

Descrição do item



Método: 

getNomEstabel

 

Descrição

Método consiste na pesquisa do nome do estabelecimento, de acordo com o  código de estabelecimento informado.

 

Requisitos:

Nenhum


Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

c-cod-estabel

Char

X(3)

X

 

 

Código do estabelecimento

c-nom-estabel

Char

X(40)

 

X

 

Nome do estabelecimento



Método: 

getNomLocal

 

Descrição

Método consiste na pesquisa do nome do local, segundo código do local informado.

 

Requisitos:

Nenhum


Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

c-cod-local

Char

X(3)

X

 

 

Código do local

c-nom-local

Char

X(40)

 

X

 

Nome do local



Método: 

getLocalizacaoItem

 

Descrição

Método consiste na pesquisa da localização do item, de acordo com Estabelecimento, Local e Id-box informados.

 

Requisitos:

Nenhum


Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

c-cod-estabel

Char

X(3)

X

 

 

Código do estabelecimento

c-cod-local

Char

X(3)

X

 

 

Código do local

i-id-box

Decimal

>>>>>>>>>9

X

 

 

Identificador único do box

c-cod-bloco

Char

X(3)

 

X

 

Código do bloco

c-cod-rua

Char

X(3)

 

X

 

Código da rua

c-cod-nivel

Char

X(3)

 

X

 

Código do nível

c-cod-coluna

Char

X(3)

 

X

 

Código da coluna


 

Método: 

getOcupacaoBox

 

Descrição

Método consiste na consulta da ocupação de um determinado box.

 

Requisitos:

Definição de temp-table:

DEF TEMP-TABLE ttResumo 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-transacao                LIKE wm-box-saldo.dt-transacao
         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-original                  LIKE wm-box-saldo.qtd-original
         FIELD qtd-item                       LIKE wm-box-saldo.qtd-item
         FIELD qtd-item-bloq               LIKE wm-box-saldo.qtd-item-bloq
         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 cod-item
                      cod-refer
                      cod-lote
                      dt-transacao
                      cod-embalagem
                      qtd-original
                      qtd-item
                      qtd-item-bloq
                      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

pdeIdBox

Decimal

>>>>>>>>>9

X

 

 

Identificador único do box

ttResumo

Table


 

X

 

Tabela de resumo de ocupação



Método: 

getOcupacaoItem

 

Descrição

Método consiste na consulta da ocupação de um determinado item.

 

Requisitos:

Definição de temp-table:

DEF TEMP-TABLE ttResumoItem NO-UNDO
         FIELD id-box                  LIKE wm-box-saldo.id-box
         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-alocad   LIKE wm-box-saldo.qtd-item-bloq
         FIELD qtd-item-liberado LIKE wm-box-saldo.qtd-item-bloq
         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



Método: 

getGeraDetalhe

 

Descrição

Método consiste na consulta de detalhes de um determinado item.

 

Requisitos:

Definição de temp-table:

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

pcCodEmbalagem

Char

X(10)

X

 

 

Código da embalagem

piIndStatusSaldo

Integer

>9

X

 

 

Indicador do status do saldo

ttResumoItem

Table


 

X

 

Tabela de resumo de ocupação do item


Método: 

getGeraDetalheMovimentos


Descrição

Método consiste na consulta de detalhes dos movimentos de um determinado item.

 

Requisitos:

Definição de temp-table:

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

pdeQtdOriginalDecimal>>>,>>>,>>9.9999X

Quantidade original do item
pdeQtdItemDecimal>>>,>>>,>>9.9999X

Quantidade do item
pdeQtdItemBloqDecimal>>>,>>>,>>9.9999X

Quantidade Item bloqueada

piIndStatusSaldo

Integer

>9

X

 

 

Indicador do status do saldo

ttDetalhe

Table


 

X

 

Tabela de detalhe do item


Método: 

getGeraDetalheSaida


Descrição

Método Responsavel por Criar Registro dos Documentos Pendentes de Saida.

 

Requisitos:

Definição de temp-table:

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


Descrição

Método responsável em detalhar o saldo do endereço.

 

Requisitos:

Definição de temp-table:

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

 


Método: 

getOcupItem

 

Descrição

Método consiste na consulta da ocupação de um determinado item que está em Análise.

 

Requisitos:

Definição de temp-table:

DEF TEMP-TABLE ttResumoOcupItem NO-UNDO
         FIELD dt-transacao       LIKE wm-box-saldo.dt-transacao
         FIELD id-box                 LIKE wm-box-saldo.id-box
         FIELD ind-status-box    LIKE wm-box-saldo.ind-status-box
         FIELD ind-status-saldo LIKE wm-box-saldo.ind-status-saldo
         FIELD qti-embalagem   LIKE wm-box-movto.qti-embalagem
         FIELD cod-embalagem LIKE wm-box-saldo.cod-embalagem
         FIELD qtd-original         LIKE wm-box-saldo.qtd-original
         FIELD qtd-item-bloq      LIKE wm-box-saldo.qtd-item-bloq
         FIELD qtd-item              LIKE wm-box-saldo.qtd-item
         FIELD qtd-item-rejeitar  LIKE wm-box-saldo.qtd-item LABEL "Qtd Emb Rejeitar"
         FIELD RowNum            AS INTEGER
         FIELD r-RowId              AS ROWID
         INDEX w-res01 IS UNIQUE

                  dt-transacao
                  id-box
                  cod-embalagem
                  qtd-item-bloq
                  qtd-original
                  qtd-item.

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

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

ttResumoOcupItem

Table


 

X

 

Tabela de resumo de ocupação do item