Documento de BO

Objetivo

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

/*--- Definição de buffer que será utilizado pelo método goToKey ---*/
DEFINE BUFFER bf{&TableName} FOR {&TableName}.

def buffer b-wm-inventario for wm-inventario.
def buffer b-wm-inventario-endereco for wm-inventario-endereco.
def buffer b-wm-inventario-item for wm-inventario-item.
def buffer b-wm-box-saldo-etiqueta for wm-box-saldo-etiqueta.
def buffer bf-wm-item for wm-item.

def var c-cod-estabel as char no-undo.
def var c-cod-local as char no-undo.
def var da-dt-inventario as date no-undo.
def var i-num-seq-invent as inte no-undo.
def var de-id-box as deci no-undo.
def var i-num-seq-item as inte no-undo.
def var l-log-compart-box-item as logical no-undo.
def var l-log-compart-box-lote as logical no-undo.
def var hProxy as handle no-undo.
DEF VAR l-em-processo AS LOGICAL INITIAL YES NO-UNDO.
DEF VAR l-nao-iniciado AS LOGICAL INITIAL YES NO-UNDO.
DEF VAR l-concluido AS LOGICAL INITIAL YES NO-UNDO.
DEF VAR l-atualizado AS LOGICAL INITIAL YES NO-UNDO.

Método: afterDeleteRecord

Descrição:
Elimina tabelas relacionadas:

• wm-inventario-etiqueta.

Parâmetros:

Método: afterDestroy

Descrição:

Elimina os Handle criados.

Método: atualizaContagem

Descrição:

Atualiza e retorna o número da última contagem.

Parâmetros:

Método: atualizaItemInventario

Descrição:

Cria registro na Tabela wm-inventario-endereco.

Parâmetros:

Método:  atualizaSituacaoInventario 

Descrição:

Atualiza a situação do inventário.

Parâmetros:

Método:  atualizaSituacaoInventEndereco 

Descrição:

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

Parâmetros:

Método:  atualizaSituacaoInventItem

Descrição:

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

Parâmetros:

Método:  calculaQtdSaldo

Descrição:

Atualiza o Saldo do item.

Parâmetros:

Método:  createItemInventario

Descrição:

Valida e cria registro na tabela wm-inventario-item.

Parâmetros:

Método: createRowErrorsManual

Descrição:

Parâmetros:

Método: desatualizaItemInventario

Descrição:

Desatualiza item do inventário.

Parâmetros:

Método: encerraInventarioItem

Descrição:

Encerra item do inventário e sua etiqueta.

Parâmetros:

Método: finalizaInventarioItem

Descrição:

Zera as quantiades dos itens do box do inventário.

Parâmetros:

Método: findFirstChave

Descrição:

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

WHERE {&TableName}.cod-estabel = c-cod-estabel
AND {&TableName}.cod-local = c-cod-local
AND {&TableName}.dt-inventario = da-dt-inventario
AND {&TableName}.num-seq-invent = i-num-seq-invent
AND {&tablename}.id-box = de-id-box
AND {&TableName}.num-seq-item = i-num-seq-item NO-LOCK NO-ERROR.

Parâmetros:

Método: findFirstEndereco

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-cod-estabel
AND {&TableName}.cod-local = c-cod-local
AND {&TableName}.dt-inventario = da-dt-inventario
AND {&TableName}.num-seq-invent = i-num-seq-invent
AND {&tablename}.id-box = de-id-box
AND (({&tablename}.ind-sit-inv-item = 1 AND l-nao-iniciado)
OR ({&tablename}.ind-sit-inv-item = 2 AND l-em-processo )
OR ({&tablename}.ind-sit-inv-item = 3 AND l-concluido )
OR ({&tablename}.ind-sit-inv-item = 4 AND l-atualizado )) NO-LOCK NO-ERROR.

Parâmetros:

Método: findFirstMain

Descrição:

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

Parâmetros:

Método: findLastChave

Descrição:

Posiciona no ultimo registro da tabela.

WHERE {&TableName}.cod-estabel = c-cod-estabel
AND {&TableName}.cod-local = c-cod-local
AND {&TableName}.dt-inventario = da-dt-inventario
AND {&TableName}.num-seq-invent = i-num-seq-invent
AND {&tablename}.id-box = de-id-box
AND {&TableName}.num-seq-item = i-num-seq-item NO-LOCK NO-ERROR.

Parâmetros:

Método: findLastEndereco

Descrição:

Posiciona no último registro da tabela.

WHERE {&TableName}.cod-estabel = c-cod-estabel
AND {&TableName}.cod-local = c-cod-local
AND {&TableName}.dt-inventario = da-dt-inventario
AND {&TableName}.num-seq-invent = i-num-seq-invent
AND {&tablename}.id-box = de-id-box
AND (({&tablename}.ind-sit-inv-item = 1 AND l-nao-iniciado)
OR ({&tablename}.ind-sit-inv-item = 2 AND l-em-processo )
OR ({&tablename}.ind-sit-inv-item = 3 AND l-concluido )
OR ({&tablename}.ind-sit-inv-item = 4 AND l-atualizado )) NO-LOCK NO-ERROR.

Parâmetros:

Método: findLastMain

Descrição:

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

Parâmetros:

Método: findNextChave

Descrição:

Posiciona no próximo registro da tabela.

WHERE {&TableName}.cod-estabel = c-cod-estabel
AND {&TableName}.cod-local = c-cod-local
AND {&TableName}.dt-inventario = da-dt-inventario
AND {&TableName}.num-seq-invent = i-num-seq-invent
AND {&tablename}.id-box = de-id-box
AND {&TableName}.num-seq-item = i-num-seq-item NO-LOCK NO-ERROR.

Parâmetros:

Método: findNextEndereco

Descrição:

Posiciona no próximo registro da tabela.

WHERE {&TableName}.cod-estabel = c-cod-estabel
AND {&TableName}.cod-local = c-cod-local
AND {&TableName}.dt-inventario = da-dt-inventario
AND {&TableName}.num-seq-invent = i-num-seq-invent
AND {&tablename}.id-box = de-id-box
AND (({&tablename}.ind-sit-inv-item = 1 AND l-nao-iniciado)
OR ({&tablename}.ind-sit-inv-item = 2 AND l-em-processo )
OR ({&tablename}.ind-sit-inv-item = 3 AND l-concluido )
OR ({&tablename}.ind-sit-inv-item = 4 AND l-atualizado )) NO-LOCK NO-ERROR.

Parâmetros:

Método: findNextMain

Descrição:

Posiciona no próximo registro da tabela.

Parâmetros:

Método: findPrevChave

Descrição:

Posiciona no próximo registro da tabela.

Parâmetros:

Método: findPrevEndereco

Descrição:

Posiciona no próximo registro da tabela.

WHERE {&TableName}.cod-estabel = c-cod-estabel
AND {&TableName}.cod-local = c-cod-local
AND {&TableName}.dt-inventario = da-dt-inventario
AND {&TableName}.num-seq-invent = i-num-seq-invent
AND {&tablename}.id-box = de-id-box
AND (({&tablename}.ind-sit-inv-item = 1 AND l-nao-iniciado)
OR ({&tablename}.ind-sit-inv-item = 2 AND l-em-processo )
OR ({&tablename}.ind-sit-inv-item = 3 AND l-concluido )
OR ({&tablename}.ind-sit-inv-item = 4 AND l-atualizado )) NO-LOCK NO-ERROR.

Parâmetros:

Método: findPrevMain

Descrição:

Posiciona no próximo registro da tabela.

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:  getLastSequence

Descrição:

Posiciona o buffer da tabela wm-inventario-item no último registro da tabela conforme parâmetros.

Parâmetros:

Método:  goToKey  

Descrição:

Reposiciona registro com base no índice idx-invent-item1
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.

recebe valor do campo num-seq-item

Parâmetros:

Método:  leituraInventarioItem

Descrição:

Zera as contagens e atualiza a situação do item do inventário.

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:

Parâmetros:

Parâmetros: