Documento de BO

Objetivo

Faz a manutenção na tabela wm-inventario-endereco

DEFINE TEMP-TABLE tt-num-contagem NO-UNDO
FIELD num-contagem AS INTEGER.

DEFINE VARIABLE c-estabel-ini AS CHARACTER FORMAT "x(3)" NO-UNDO.
DEFINE VARIABLE c-estabel-fim AS CHARACTER FORMAT "x(3)" NO-UNDO.
DEFINE VARIABLE c-local-ini AS CHARACTER FORMAT "x(3)" NO-UNDO.
DEFINE VARIABLE c-local-fim AS CHARACTER FORMAT "x(3)" NO-UNDO.
DEFINE VARIABLE d-data-ini AS DATE FORMAT "99/99/9999" NO-UNDO.
DEFINE VARIABLE d-data-fim AS DATE FORMAT "99/99/9999" NO-UNDO.

DEFINE VARIABLE i-sequenc-ini LIKE wm-inventario-endereco.num-seq-invent NO-UNDO.
DEFINE VARIABLE i-sequenc-fim LIKE wm-inventario-endereco.num-seq-invent INITIAL 999999 NO-UNDO.
DEFINE VARIABLE de-box-ini LIKE wm-inventario-endereco.id-box NO-UNDO.
DEFINE VARIABLE de-box-fim LIKE wm-inventario-endereco.id-box INITIAL 9999999999 NO-UNDO.

Método: afterDeleteRecord

Descrição:
Elimina tabelas relacionadas:

• wm-inventario-item.
• wm-inventario-etiqueta.

Parâmetros:

Queries e Constraints Métodos

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:

Método:

OpenQueryEstabel

Descrição:

Abre a Query posicionando o registro "wm-inventario" conforme parâmetros:

WHERE {&TableName}.cod-estabel >= c-estabel-ini

AND {&TableName}.cod-estabel <= c-estabel-fim
AND {&TableName}.cod-local >= c-local-ini
AND {&TableName}.cod-local <= c-local-fim
AND {&TableName}.dt-inventario >= d-data-ini
AND {&TableName}.dt-inventario <= d-data-fim
BY {&TableName}.cod-estabel INDEXED-REPOSITION.

Constraints Associados:

Método: beforeDestroy

Descrição:

IF VALID-HANDLE (hDBO-inventario-item)
AND hDBO-inventario-item:TYPE = "PROCEDURE":U
AND hDBO-inventario-item:FILE-NAME = "scbo/bosc119.p":U THEN DO:
RUN destroy in hDBO-inventario-item.
DELETE OBJECT hDBO-inventario-item NO-ERROR.
END.

Parâmetros:

Método: createEnderecoInventario

Descrição:

Cria registro na Tabela wm-inventario-endereco.

Parâmetros:

Método:  createEnderecoInventarioColetor 

Descrição:

Cria registro na Tabela wm-inventario-endereco.

Parâmetros:

Método:  encerraInventarioEndereco 

Descrição:

• Altera o estado do endereço de "em processo" para "concluido"
• Altera status da contagem atual para concluido.

Executa a scbo/bosc119.p PERSISTENT SET h-bosc119 para encerrar os itens do inventário: RUN encerraInventarioItem.

Parâmetros:

Método:  finalizaInventarioEndereco 

Descrição:

Finaliza a contagem do inventario.

Parâmetros:

Método:  findFirstFaixa 

Descrição:

Posiciona na primeira faixa conforme seleção feita.

WHERE {&TableName}.cod-estabel >= c-estabel-ini
AND {&TableName}.cod-estabel <= c-estabel-fim
AND {&TableName}.cod-local >= c-local-ini
AND {&TableName}.cod-local <= c-local-fim
AND {&TableName}.dt-inventario >= da-data-ini
AND {&TableName}.dt-inventario <= da-data-fim
AND {&TableName}.num-seq-invent >= i-sequenc-ini
AND {&TableName}.num-seq-invent <= i-sequenc-fim
AND {&tablename}.id-box >= de-box-ini
AND {&tablename}.id-box <= de-box-fim NO-LOCK NO-ERROR.

Parâmetros:

Método:  findFirstInventario 

Descrição:

Posiciona no primeiro Inventário localizado conforme seleção feita.

WHERE {&TableName}.cod-estabel = c-estabel
AND {&TableName}.cod-local = c-local
AND {&TableName}.dt-inventario = da-data
AND {&TableName}.num-seq-invent = i-sequenc
AND (({&tablename}.ind-sit-inv-end = 1 AND l-nao-iniciado = YES)
OR ({&tablename}.ind-sit-inv-end = 2 AND l-em-processo = YES)
OR ({&tablename}.ind-sit-inv-end = 3 AND l-concluido = YES)
OR ({&tablename}.ind-sit-inv-end = 4 AND l-atualizado = YES))
AND (({&TableName}.num-ult-contagem = 0 AND l-primeira = YES)
OR ({&TableName}.num-ult-contagem = 1 AND l-segunda = YES)
OR ({&TableName}.num-ult-contagem >= 2 AND l-terceira = YES)) NO-ERROR.

Parâmetros:

Método: findFirstMain

Descrição:

Posiciona no primeiro registro da tabela :  wm-inventario-endereco.

Parâmetros:

Método: findLastFaixa

Descrição:

Posiciona no último registro da tabela :  wm-inventario-endereco conforme seleção feita:

WHERE {&TableName}.cod-estabel >= c-estabel-ini
AND {&TableName}.cod-estabel <= c-estabel-fim
AND {&TableName}.cod-local >= c-local-ini
AND {&TableName}.cod-local <= c-local-fim
AND {&TableName}.dt-inventario >= da-data-ini
AND {&TableName}.dt-inventario <= da-data-fim
AND {&TableName}.num-seq-invent >= i-sequenc-ini
AND {&TableName}.num-seq-invent <= i-sequenc-fim
AND {&tablename}.id-box >= de-box-ini
AND {&tablename}.id-box <= de-box-fim NO-LOCK NO-ERROR.

Parâmetros:

Método: findLastInventario

Descrição:

Posiciona no último registro da tabela conforme seleção feita:

WHERE {&TableName}.cod-estabel = c-estabel
AND {&TableName}.cod-local = c-local
AND {&TableName}.dt-inventario = da-data
AND {&TableName}.num-seq-invent = i-sequenc
AND (({&tablename}.ind-sit-inv-end = 1 AND l-nao-iniciado = YES)
OR ({&tablename}.ind-sit-inv-end = 2 AND l-em-processo = YES)
OR ({&tablename}.ind-sit-inv-end = 3 AND l-concluido = YES)
OR ({&tablename}.ind-sit-inv-end = 4 AND l-atualizado = YES))
AND (({&TableName}.num-ult-contagem = 0 AND l-primeira = YES)
OR ({&TableName}.num-ult-contagem = 1 AND l-segunda = YES)
OR ({&TableName}.num-ult-contagem >= 2 AND l-terceira = YES)) NO-ERROR.

Parâmetros:

Método: findLastMain

Descrição:

Posiciona no último registro da tabela :  wm-inventario-endereco.

Parâmetros:

Método: findNextFaixa

Descrição:

Posiciona no próximo registro da tabela conforme seleção feita:

WHERE {&TableName}.cod-estabel >= c-estabel-ini
AND {&TableName}.cod-estabel <= c-estabel-fim
AND {&TableName}.cod-local >= c-local-ini
AND {&TableName}.cod-local <= c-local-fim
AND {&TableName}.dt-inventario >= da-data-ini
AND {&TableName}.dt-inventario <= da-data-fim
AND {&TableName}.num-seq-invent >= i-sequenc-ini
AND {&TableName}.num-seq-invent <= i-sequenc-fim
AND {&tablename}.id-box >= de-box-ini
AND {&tablename}.id-box <= de-box-fim NO-LOCK NO-ERROR.

Parâmetros:

Método: findLastMain

Descrição:

Posiciona no último registro da tabela :  wm-inventario-endereco.

Parâmetros:

Método:  findNextInventario  

Descrição:

Posiciona no próximo registro da tabela conforme seleção feita:

WHERE {&TableName}.cod-estabel = c-estabel
AND {&TableName}.cod-local = c-local
AND {&TableName}.dt-inventario = da-data
AND {&TableName}.num-seq-invent = i-sequenc
AND (({&tablename}.ind-sit-inv-end = 1 AND l-nao-iniciado = YES)
OR ({&tablename}.ind-sit-inv-end = 2 AND l-em-processo = YES)
OR ({&tablename}.ind-sit-inv-end = 3 AND l-concluido = YES)
OR ({&tablename}.ind-sit-inv-end = 4 AND l-atualizado = YES))
AND (({&TableName}.num-ult-contagem = 0 AND l-primeira = YES)
OR ({&TableName}.num-ult-contagem = 1 AND l-segunda = YES)
OR ({&TableName}.num-ult-contagem >= 2 AND l-terceira = YES))
NO-ERROR.

Parâmetros:

Método: findNextMain

Descrição:

Posiciona no próximo registro da tabela :  wm-inventario-endereco.

Parâmetros:

Método: findPrevFaixa

Descrição:

Posiciona no registro anterior  da tabela.

WHERE {&TableName}.cod-estabel >= c-estabel-ini
AND {&TableName}.cod-estabel <= c-estabel-fim
AND {&TableName}.cod-local >= c-local-ini
AND {&TableName}.cod-local <= c-local-fim
AND {&TableName}.dt-inventario >= da-data-ini
AND {&TableName}.dt-inventario <= da-data-fim
AND {&TableName}.num-seq-invent >= i-sequenc-ini
AND {&TableName}.num-seq-invent <= i-sequenc-fim
AND {&tablename}.id-box >= de-box-ini
AND {&tablename}.id-box <= de-box-fim NO-LOCK NO-ERROR.

Parâmetros:

Método: findPrevInventario

Descrição:

Posiciona no registro anterior da tabela :  wm-inventario-endereco.

WHERE {&TableName}.cod-estabel = c-estabel
AND {&TableName}.cod-local = c-local
AND {&TableName}.dt-inventario = da-data
AND {&TableName}.num-seq-invent = i-sequenc
AND (({&tablename}.ind-sit-inv-end = 1 AND l-nao-iniciado = YES)
OR ({&tablename}.ind-sit-inv-end = 2 AND l-em-processo = YES)
OR ({&tablename}.ind-sit-inv-end = 3 AND l-concluido = YES)
OR ({&tablename}.ind-sit-inv-end = 4 AND l-atualizado = YES))
AND (({&TableName}.num-ult-contagem = 0 AND l-primeira = YES)
OR ({&TableName}.num-ult-contagem = 1 AND l-segunda = YES)
OR ({&TableName}.num-ult-contagem >= 2 AND l-terceira = YES)) NO-ERROR.

Parâmetros:

Método: findPrevMain

Descrição:

Posiciona no registro anterior da tabela :  wm-inventario-endereco.

Parâmetros:

Método:  getDecField  

Descrição:

Retorna o valor do campo Decimal.

Parâmetros:

Método:  getIntField  

Descrição:

Retorna o valor do campo Decimal.

Parâmetros:

Método:  getDescEstabel  

Descrição:

Retorna a descrição do estabelecimento passado como parãmetro.

Parâmetros:

Método:  getDescLocal  

Descrição:

Retorna a descrição do local passado como parãmetro.

Parâmetros:

Método:  getKey  

Descrição:

Retorna valores dos campos do índice idx-invent-endereco1
Parameters:
retorna valor do campo cod-estabel
retorna valor do campo cod-local
retorna valor do campo dt-inventario
retorna valor do campo num-seq-invent
retorna valor do campo id-box

Parâmetros:

Método:  getNumeroContagem  

Descrição:

Este metodo foi desenvolvido com o objetivo de retornar o número da contagem.

Parâmetros:

Método:  goToKeyFiltro  

Descrição:

Posiciona a query considerando os parametros da constraintInventario.

Parâmetros:

Método:  goToKey  

Descrição:

Reposiciona registro com base no índice idx-invent-endereco1
Parameters:
recebe valor do campo cod-estabel
recebe valor do campo cod-local
recebe valor do campo dt-inventario
recebe valor do campo num-seq-invent
recebe valor do campo id-box.

Parâmetros:

Método:  OpenQueryEndereco  

Descrição:

Abre a query principal conforme seleção feita.

WHERE {&TableName}.cod-estabel = c-estabel
AND {&TableName}.cod-local = c-local
AND {&TableName}.dt-inventario = da-data
AND {&TableName}.num-seq-invent = i-sequenc
AND {&TableName}.cod-bloco >= c-bloco-ini
AND {&TableName}.cod-bloco <= c-bloco-fim
AND {&TableName}.cod-rua >= c-rua-ini
AND {&TableName}.cod-rua <= c-rua-fim
AND {&TableName}.cod-nivel >= c-nivel-ini
AND {&TableName}.cod-nivel <= c-nivel-fim
AND {&TableName}.cod-coluna >= c-coluna-ini
AND {&TableName}.cod-coluna <= c-coluna-fim
AND {&tablename}.ind-sit-inv-end >= i-sit-inv-end-ini
AND {&tablename}.ind-sit-inv-end <= i-sit-inv-end-fim
AND {&TableName}.num-ult-contagem >= i-num-contagem-ini - 1 /* Diminui '1' porque a contagem vai de 0 a 2 */
AND {&TableName}.num-ult-contagem <= i-num-contagem-fim - 1
AND (({&tablename}.ind-sit-inv-end = 1 AND l-nao-iniciado = YES)
OR ({&tablename}.ind-sit-inv-end = 2 AND l-em-processo = YES)
OR ({&tablename}.ind-sit-inv-end = 3 AND l-concluido = YES)
OR ({&tablename}.ind-sit-inv-end = 4 AND l-atualizado = YES))
AND (({&TableName}.num-ult-contagem = 0 AND l-primeira = YES)
OR ({&TableName}.num-ult-contagem = 1 AND l-segunda = YES)
OR ({&TableName}.num-ult-contagem >= 2 AND l-terceira = YES))
BY {&TableName}.cod-bloco
BY {&TableName}.cod-rua
BY {&TableName}.cod-nivel
BY {&TableName}.cod-coluna
INDEXED-REPOSITION.

.

Parâmetros:

Método:  OpenQueryFaixa  

Descrição:

Abre a query Faixa conforme seleção executada:

WHERE
{&TableName}.cod-estabel >= c-estabel-ini AND
{&TableName}.cod-estabel <= c-estabel-fim AND
{&TableName}.cod-local >= c-local-ini AND
{&TableName}.cod-local <= c-local-fim AND
{&TableName}.dt-inventario >= da-data-ini AND
{&TableName}.dt-inventario <= da-data-fim AND
{&TableName}.num-seq-invent >= i-sequenc-ini AND
{&TableName}.num-seq-invent <= i-sequenc-fim AND
{&tablename}.id-box >= de-box-ini AND
{&tablename}.id-box <= de-box-fim NO-LOCK INDEXED-REPOSITION.

Parâmetros:

Método:  OpenQueryIdEndereco  

Descrição:

Abre a query principal conforme seleção executada:

WHERE {&TableName}.cod-estabel = c-estabel
AND {&TableName}.cod-local = c-local
AND {&TableName}.dt-inventario = da-data
AND {&TableName}.num-seq-invent = i-sequenc
AND {&tablename}.id-box >= de-box-ini
AND {&tablename}.id-box <= de-box-fim
AND {&tablename}.ind-sit-inv-end >= i-sit-inv-end-ini
AND {&tablename}.ind-sit-inv-end <= i-sit-inv-end-fim
AND {&TableName}.num-ult-contagem >= i-num-contagem-ini - 1 /* Diminui '1' porque a contagem vai de 0 a 2 */
AND {&TableName}.num-ult-contagem <= i-num-contagem-fim - 1
AND (({&tablename}.ind-sit-inv-end = 1 AND l-nao-iniciado = YES)
OR ({&tablename}.ind-sit-inv-end = 2 AND l-em-processo = YES)
OR ({&tablename}.ind-sit-inv-end = 3 AND l-concluido = YES)
OR ({&tablename}.ind-sit-inv-end = 4 AND l-atualizado = YES))
AND (({&TableName}.num-ult-contagem = 0 AND l-primeira = YES)
OR ({&TableName}.num-ult-contagem = 1 AND l-segunda = YES)
OR ({&TableName}.num-ult-contagem >= 2 AND l-terceira = YES))
BY {&tablename}.id-box
INDEXED-REPOSITION.

Parâmetros:

Método:  OpenQueryInventario  

Descrição:

Abre a query principal conforme seleção executada:

WHERE {&TableName}.cod-estabel = c-estabel
AND {&TableName}.cod-local = c-local
AND {&TableName}.dt-inventario = da-data
AND {&TableName}.num-seq-invent = i-sequenc
AND (({&tablename}.ind-sit-inv-end = 1 AND l-nao-iniciado = YES)
OR ({&tablename}.ind-sit-inv-end = 2 AND l-em-processo = YES)
OR ({&tablename}.ind-sit-inv-end = 3 AND l-concluido = YES)
OR ({&tablename}.ind-sit-inv-end = 4 AND l-atualizado = YES))
AND (({&TableName}.num-ult-contagem = 0 AND l-primeira = YES)
OR ({&TableName}.num-ult-contagem = 1 AND l-segunda = YES)
OR ({&TableName}.num-ult-contagem >= 2 AND l-terceira = YES))
INDEXED-REPOSITION.

Parâmetros:

Método:  getLogField  

Descrição:

Retorna valor de campos do tipo lógico

Parâmetros:

Método:  getRawField  

Descrição:

Retorna o valor do campo Raw.

Parâmetros:

Método:  getRawField  

Descrição:

Retorna o valor do campo RECID.

Parâmetros:

Método:  openQueryMain  

Descrição:

Abre a query principal.

Parâmetros:

Método:  reabreInventarioEndereco  

Descrição:

Reabre  a tabela Inventário Endereço conforme parâmetros passados:

Parâmetros:

Método:  retornaEndereco  

Descrição:

Retorna endereço conforme parâmetros passados.

Parâmetros:

Método:  retornaLocalizacaoBrowser  

Descrição:

Retorna Localização.

Parâmetros:

Método:  setConstraintEndereco  

Descrição:

Atualiza as variáveis locais:

Parâmetros:

Método:  setConstraintFaixa  

Descrição:

Atualiza as variáveis locais:

Parâmetros:

Método:  setConstraintFaixa  

Descrição:

Atualiza as variáveis locais:

Parâmetros:

Método:  setContagemEndereco  

Descrição:

Grava a contagem do endereço.

Parâmetros:

Método:  setInventario  

Descrição:

Atualiza as variáveis que indica que o Inventário solicitado existe:

Parâmetros:

Método:  setSituacaoContagemEndereco  

Descrição:

Atualiza situação do endereço do inventário.

Parâmetros:

Método:  validaContagem 

Descrição:

• Executa as validações na contagem do endereço.

Parâmetros:

Método:  retornaEnderecoBox  

Descrição:

Validar Registro wm-endereco-inventario
Retorna pExisteEnd = NO quando houver erros.

Parâmetros:

Método:  validateRecord  

Descrição:

Validações pertinentes ao DBO
Parameters: recebe o tipo de validação (Create, Delete, Update).

Parâmetros:

Método:  retornaEnderecoBox  

Descrição:

Retorna endereço conforme parâmetros passados.

Parâmetros: