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

Descrição:

Parâmetros:

Método:  openQueryChave

Descrição:

Abre a query principal conforme seleção executada:

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 INDEXED-REPOSITION.

Parâmetros:

Método:  openQueryEndereco

Descrição:

Abre a query principal conforme seleção executada:

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

Descrição:

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

Parâmetros:

Método:  reabreInventarioItem

Descrição:

Reabre a tabela inventário-item.

Parâmetros:

Método:  retornaDtValiLote

Descrição:

Retorna Data de Validade do Lote.

Parâmetros:

Método:  setConstraintChave

Descrição:

Atualiza as variáveis locais:

Parâmetros:

Método:  setConstraintEndereco

Descrição:

Atualiza as variáveis locais:

Parâmetros:

Metodo:  setConstraintSituacao

Descrição:

Atualiza as variáveis locais:

Parâmetros:

Método:  validateLoteValidade

Descrição:

Valida a Data de Validade do Lote.

Parâmetros:

Método:  validateRecord

Descrição:

Validações pertinentes ao DBO
Recebe o tipo de validação (Create, Delete, Update)

Parâmetros:

Método:  verificaWMSItEstabLocal

Descrição:

Validações e atualizações do item e lote se estes compartilham box.

Parâmetros:

Método:  verificaItemInventario

Descrição:

Validações pertinentes a wm-Inventario-item
Cria inventário item conforme parâmetros.

Parâmetros: