Árvore de páginas

Versões comparadas

Chave

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

...

blocoInteger

Atributo

Tipo

Formato

Evolução

ObrigatórioEvolução
cod-estabel

Character

X(5)

EstabelecimentoSimems202.
cod-localVarCharX(3)LocalSimems202.

cod-bloco

Character

X(3)

dt-inventario

Date

99/99/9999

Dt InventarioSimems202.
num-seq-invent

Integer

>>>,>>9

Num InventSimems202.
id-box

decimal

>>>>>>>>>>>9

Id EndereçoSimems202.

codnum-seq-colunaitem

Character

X(3)

Integer

>>>>>>>>9

Sequencia ItemcolunaSimems202.

cod-

nivel

item

Character

X(316)

nivelItemSimems202.
cod-rua refer

Character

X(38)

ruaReferenciaSimems202.
dtcod-inventario lote

Date

99/99/9999

Character

X(40)

LoteDt InventarioSimems202.
numqtd-seq-inventsaldo

Decimal

>>>,>>>,>>>,>>9.9999Num Invent

Qtd Saldo

Simems202.
dtqtd-leitura apurada

Date

99/99/9999

Decimal

>>>,>>>,>>>,>>9.9999Qtd ApuradaDt leitura InventarioSimems202.
hr-leitura ind-sit-inv-item

Integer

>>>>>9>9

hora leituraSituaçãoSimems202.
idcod-box cliente

decimalInteger

>>>>>>>>>>>9>9

Id EndereçoCódigo ClienteSimems202.
inddt-sitvali-inv-end lote

Integer

>9

Date

99/99/9999

Data Validade LoteSituação InventarioSimems202.
indqtd-status-contagem final

Integer

>9

Decimal

>>>,>>>,>>>,>>9.9999Qtd FinalSituação Contagem InventarioSimems202.
logqtd-bloqsaldo-armaz peso

Logical

Sim/não

Decimal

>>>,>>>,>>>,>>9.9999Qtd Saldo PesoEndereço Bloqueado Inventário ArmazenamentoSimems202.
logqtd-bloqapurada-retir peso

Logical

Sim/não

Decimal

>>>,>>>,>>>,>>9.9999Qtd Apurada PesoEndereço Bloqueado Inventário retiradaSimems202.
numqtd-ultfinal-contagem peso

IntegerDecimal

>>>,>>>,>>>,>>9.9999Qtd Final PesoSimems202.
log-atual-ce

Logical

Sim/não

Atualizado EstoqueNum contagemSimems202.usuario
cod-embalagemVarCharXx(1210)UsuárioEmbalagemSimems202.

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.








/*--- 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-item.wm-inventario-etiqueta.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

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

Descrição:

Elimina os Handle criados.


Método: atualizaContagem

Descrição:

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

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pcodestabel

 LIKE wm-inventario.cod-estabel
X

Estabelecimento
pcodlocal LIKE wm-inventario.cod-local 
X

Local
pdtinventario LIKE wm-inventario.dt-inventario 
X

Data Inventário
 pnumseqinvent  LIKE wm-inventario.num-seq-invent 
X

Sequencia do Inventário
pIdBoxDecimal
X

Endereço Inventário
pNumContagemInteger

X
Contagem


Método: atualizaItemInventario

Descrição:

Cria registro na Tabela wm-inventario-endereco.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

Método: createEnderecoInventario

Descrição:

...

pcodestabel

 LIKE wm-inventario.cod-

...

estabel

...


X

ParâmetroEstabelecimento
pcodlocal LIKE wm-

Tipo

Formato

I

O

IO

Descrição

pcodestabel

 LIKE wm-inventario.cod-estabelXEstabelecimentopcodlocal LIKE wm-inventario.cod-local 
X

Local
pdtinventario LIKE wm-inventario.dt-inventario 
X

Data Inventário
 pnumseqinvent  LIKE wm-inventario.num-seq-invent 
X

Sequencia do Inventário
pIdBoxDecimal
X

Endereço Inventário

Método:  createEnderecoInventarioColetor 

Descrição:

...

piNumSeqItemwm-inventario-

...

item.

...

Parâmetros:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

Descrição

num-seq-item
X

Sequencia do Item
piNumContagemInteger
X

Número da contagem
piQtdApuradawm-inventario-item.qtd-final 
X

Quantidade Apurada
piPesoApuradowm-inventario-item.qtd-final-peso
X

Peso Apurado








Método:  atualizaSituacaoInventario 

Descrição:

Atualiza a situação do inventário.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição









Método:  atualizaSituacaoInventEndereco 

Descrição:

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

...

pcodestabel

...

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:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

p-cod-estabel

 LIKE wm-inventario.cod-estabelXEstabelecimentop-cod-local LIKE wm-inventario.cod-local XLocalp-dt-inventario LIKE wm-inventario.dt-inventario XData Inventáriop-num-invent LIKE wm-inventario.num-seq-invent XSequencia do Inventáriop-id-boxDecimalX

Endereço Inventário

Método:  finalizaInventarioEndereco 

Descrição:









Método:  atualizaSituacaoInventItem

Descrição:

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

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição









Método:  calculaQtdSaldo

Descrição:

Atualiza o Saldo do itemFinaliza a contagem do inventario.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição









Método:  createItemInventario

Descrição:

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

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pcod-estabel

 LIKE wm-

pcodestabel

 LIKE wm-
inventario.cod-estabel
X

Estabelecimento
pcodlocal
pcod-local LIKE wm-inventario.cod-local 
X

Local
pdtinventario
pdt-inventario LIKE wm-inventario.dt-inventario 
X

Data Inventário
 pnumseqinvent 
pnum-seq-invent  LIKE wm-inventario.num-seq-invent 
X

Sequencia do Inventário
pIdBoxDecimal
pid-boxLIKE wm-inventario-endereco.id-box
X
Endereço InventáriopiNumContageminteger XNúmero da contagem

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.



ID Box

pcod-itemLIKE wm-box-saldo.cod-item   
X

Item
pcod-referLIKE wm-box-saldo.cod-refer 
X

Referencia
pcod-loteLIKE wm-box-saldo.cod-lote
X

lote
pcod-embalagemLIKE wm-box-saldo.cod-embalagem
X

embalagem
pcod-clienteLIKE wm-box-saldo.cod-cliente
X

cliente
pqtd-saldoLIKE wm-box-saldo.qtd-item
X

Saldo
pqtd-pesoLIKE wm-inventario-item.qtd-saldo-peso
X

Peso



X



Método: createRowErrorsManual

Descrição:

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pErrorInt




pParamChar





Método:  findFirstInventario  desatualizaItemInventario

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:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

Descrição

Desatualiza item do inventário.


Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

p-cod-estabel

 LIKE wm-inventario.cod-estabel
X

Estabelecimento
p-cod-local LIKE wm-inventario.cod-local 
X

Local
p-dt-inventario LIKE wm-inventario.dt-inventario 
X

Data Inventário
p-num-invent  LIKE wm-inventario.num-seq-invent 
X

Sequencia do Inventário
p-id-boxLIKE wm-inventario-endereco.id-box
X

ID Box

p-num-seq-itemLIKE wm-inventario-item.num-seq-item   
X

Item
p-num-contagemInteger
X

Referencia
p-qtd-apuradaDecimal
X

lote
p-qtd-apurada-pesoDecimal
X

Peso







Método: encerraInventarioItem

Descrição:

Encerra item do inventário e sua etiqueta

Método: findFirstMain

Descrição:

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


Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

Método: findLastFaixa

Descrição:

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

p-cod-estabel

 LIKE wm-inventario.cod-estabel
X

Estabelecimento
p-cod-local LIKE wm-inventario.cod-local 
X

Local
p-dt-inventario LIKE wm-inventario.dt-inventario 
X

Data Inventário
p-num-invent  LIKE wm-inventario.num-seq-invent 
X

Sequencia do Inventário
p-id-boxLIKE wm-inventario-endereco.id-box
X

ID Box

p-num-contagemInteger
X

Referencia

Método: finalizaInventarioItem

Descrição:

Zera as quantiades dos itens do box do inventárioWHERE {&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:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

Método: findLastInventario

Descrição:

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

...

pcodestabel

 LIKE wm-inventario.cod-estabel
X

Estabelecimento
pcodlocal LIKE wm-inventario.cod-local 
X

Local
pdtinvent LIKE wm-inventario.dt-inventario 
X

Data Inventário
pnumseqinvent  LIKE wm-inventario.num-seq-invent 
X

Sequencia do Inventário
pidboxLIKE wm-inventario-endereco.id-box
X

ID Box

pnumcontagemInteger
X

Referencia


Método: findFirstChave

Descrição:

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

WHERE = c-estabel
AND {&TableName}.cod-local = c-local
AND {&TableName}.dt-inventario = da-data
AND {&TableName}.numcod-seq-invent = i-sequenc estabel = c-cod-estabel
AND (( {&tablenameTableName}.indcod-sitlocal = c-inv-end = 1 AND l-nao-iniciado = YES)
OR ({&tablename}.ind-sit-inv-end = 2 AND l-em-processo = YES)
OR (cod-local
AND {&TableName}.dt-inventario = da-dt-inventario
AND {&TableName}.num-seq-invent = i-num-seq-invent
AND {&tablename}.indid-sitbox = de-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)) id-box
AND {&TableName}.num-seq-item = i-num-seq-item NO-LOCK NO-ERROR.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição









Método: findLastMain findFirstEndereco

Descrição:

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

...

Parâmetro

Tipo

Formato

I

O

IO

Descrição









MétodoMétodo: findNextFaixa  findNextInventario  

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-id-box -ini
AND (({&tablename}.id-box <= de-box-fim NO-LOCK NO-ERROR.

Parâmetros:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

Descrição

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-endereco.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição









MétodoMétodo:  findNextInventario   findFirstMain

Descrição:

Posiciona no próximo primeiro registro da tabela conforme seleção feita::  wm-inventario-item.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição









Método: findLastChave

Descrição:

Posiciona no ultimo registro da tabela.

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

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição









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 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-ultseq-contagem = 1 AND l-segunda = YES)
OR ({&TableName}.num-ult-contagem >= 2 AND l-terceira = YES))
NO-ERROR.

Parâmetros:

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:

Parâmetro

Tipo

Parâmetro

Tipo

Formato

I

O

IO

Descrição









Método: findNextMain findLastMain

Descrição:

Posiciona no próximo último registro da tabela :  wm-inventario-enderecoitem.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição









Método: findPrevFaixa findNextChave

Descrição:

Posiciona no próximo registro anterior  da tabela.

WHERE {&TableName}.cod-estabel > = c-cod-estabel -ini
AND {&TableName}.cod-estabel <local = c-estabelcod-fim local
AND {&TableName}.coddt-local >inventario = cda-localdt-ini inventario
AND {&TableName}.cod-local <= c-local-fim num-seq-invent = i-num-seq-invent
AND {&TableNametablename}.dtid-inventario >box = dade-dataid-ini box
AND {&TableName}.dt-inventario <= da-data-fim
AND num-seq-item = i-num-seq-item NO-LOCK NO-ERROR.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição









Método: findNextEndereco

Descrição:

Posiciona no próximo registro da tabela.

WHERE {&TableName}.num-seq-invent >= i-sequenc-ini 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-sequencnum-seq-fim invent
AND {&tablename}.id-box > = de-id-box -ini
AND (({&tablename}.id-box <= de-box-fim NO-LOCK NO-ERROR.

Parâmetros:

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:

Parâmetro

Parâmetro

Tipo

Formato

I

O

IO

Descrição









Método: findPrevInventario findNextMain

Descrição:

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

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição









Método: findPrevChave

Descrição:

Posiciona no próximo registro da tabela.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição









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-data dt-inventario
AND {&TableName}.num-seq-invent = i-num-sequenc seq-invent
AND (( {&tablename}.ind-id-box = de-id-box
AND (({&tablename}.ind-sit-inv-end item = 1 AND l-nao-iniciado = YES)
OR ({&tablename}.ind-sit-inv-end item = 2 AND l-em-processo = YES )
OR ({&tablename}.ind-sit-inv-end item = 3 AND l-concluido = YES )
OR ({&tablename}.ind-sit-inv-end item = 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:

NO-LOCK NO-ERROR.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição








...

Método: findPrevMain

Descrição:

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

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição









MétodoMétodo:  getDecField  

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:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

Descrição

...

pcod-estabel

...

Método:  getNumeroContagem  

Descrição:

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

Parâmetros:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

Descrição

...

pCodEstabel

...

Método:  goToKeyFiltro  

Descrição:

Posiciona a query considerando os parametros da constraintInventario.

Parâmetros:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

Descrição

...

Estabelecimento

...

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:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

Descrição

...

Estabelecimento

...

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:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

Descrição

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:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

Descrição

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:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

Descrição

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. retorna valor do campo num-seq-invent
retorna valor do campo id-box


Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

Método:  getLogField  

Descrição:

Retorna valor de campos do tipo lógico

Parâmetros:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

Descrição

...

pFieldName

...

pcod-estabel

 LIKE wm-inventario.cod-estabel

X
Estabelecimento
pcod-local LIKE wm-inventario.cod-local 

X
Local
pdt-inventario LIKE wm-inventario.dt-inventario 

X
Data Inventário
pnum-seq-invent  LIKE wm-inventario.num-seq-invent 

X
Sequencia do Inventário
pid-boxLIKE wm-inventario-endereco.id-box

X
ID Box


Método:  getLastSequence

Descrição:

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

Método:  getRawField  

Descrição:

Retorna o valor do campo Raw.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pFieldName

CHARACTERXCampo da tabela wm-inventariopFieldValueRAWXRetorna o valor do campo

Método:  getRawField  

Descrição:

Retorna o valor do campo RECID.

Parâmetros:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

Descrição

pCodEstabel

 LIKE wm-inventario.cod-estabel
X

Estabelecimento
pCodLocal LIKE wm-inventario.cod-local 
X

Local
pDtInventario LIKE wm-inventario.dt-inventario 
X

Data Inventário
 pNumSeqInvent LIKE wm-inventario.num-seq-invent 
X

Sequencia do Inventário
pIdBoxDecimal
X

Box
pNumSeqItemInteger

X
Sequencia do item


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

...

pFieldName

...

Método:  openQueryMain  

Descrição:

Abre a query principal.

Parâmetros:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

Descrição

Método:  reabreInventarioEndereco  

Descrição:

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

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pcod-estabel LIKE wm-inventario.cod-estabel
X

Estabelecimento

pcod-local LIKE wm-inventario.cod-local
X

Local
pdt-inventarioLIKE wm-inventario.dt-inventario
X

Data Inventário
pnum-seq-invent LIKE wm-inventario.num-seq-invent 
X

Sequencia Inventário
pid-box LIKE wm-inventario-endereco.id-box
X

Id Box
pnum-seq-itemLIKE wm-inventario-item.num-seq-item
X

Sequencia do Item


Método:  retornaEndereco    leituraInventarioItem

Descrição:

Retorna endereço conforme parâmetros passados.

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

ParâmetrosParâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pcod-estabel 

piCodEstabel

LIKE
 LIKE wm-inventario.cod-estabel
X

Estabelecimento
pcod-local 
piCodLocal
LIKE
 LIKE wm-inventario.cod-
local
local 
X

Local
pdt
piDtInventario LIKE wm-inventario
.dt-inventario 
X

Data Inventário
piNumSeqInvent LIKE
LIKE
wm-inventario.
dt-inventarioXData Inventáriopnum-seq-invent LIKE wm-inventario.num-seq-invent XSequencia Inventáriop-id-box-atualLIKE wm-inventario-endereco.id-boxXId Boxp-contagemLIKE wm-inventario-endereco.num-ult-contagemXNumero da Ultima Contagemp-cod-usuarioLIKE usuario-scm.usuario XUsuáriop-id-box-contarLIKE wm-inventario-endereco.id-boxXId box ContagemRowErrorsRowErrorsXTemp-Table RowErrors.

Método:  retornaLocalizacaoBrowser  

Descrição:

num-seq-invent 
X

Sequencia do Inventário
piIdBoxDecimal
X

Box
piNumSeqItemInteger
X

Sequencia do item
piNumContagemInteger
X



Método:  linkToWmInventarioEndereco

Descrição:


Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição









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-REPOSITIONRetorna Localização.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pcod-estabel LIKE wm-inventario.








Método:  openQueryEndereco

Descrição:

Abre a query principal conforme seleção executada:

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

...

Estabelecimento

...

AND
{&TableName}.cod-local = c-cod-local

...

Método:  setConstraintEndereco  

Descrição:

Atualiza as variáveis locais:

Parâmetros:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

Descrição

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:

Parâmetro

Tipo

Formato

I

O

IO

Descrição









Método:  getLogField  

Descrição:

Retorna valor de campos do tipo lógico

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pFieldName

CHARACTER
X

Campo da tabela wm-inventario
pFieldValueLOGICAL

X
Retorna o valor do campo


Método:  getRawField  

Descrição:

Retorna o valor do campo Raw.

...

Bloco

...

Método:  setConstraintFaixa  

Descrição:

Atualiza as variáveis locais:

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

p-estabel-iniCHARX

Estabelecimento

p-estabel-fim CHARXEstabelecimentop-local-iniCHARXLocalp-local-fimCHARXLocalp-data-iniDate
XDatap-data-fimDate
XDatap-sequenc-iniIntXSequenciap-sequenc-fim IntXSequencia p-box-iniDECXBoxp-box-fimDECXBox

Método:  setConstraintFaixa  

Descrição:

pFieldName

CHARACTER
X

Campo da tabela wm-inventario
pFieldValueRAW

X
Retorna o valor do campo


Método:  getRawField  

Descrição:

Retorna o valor do campo RECID.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pFieldName

CHARACTER
X

Campo da tabela wm-inventario
pFieldValueRECID

X
Retorna o valor do campo


Método:  openQueryMain  

Descrição:

Abre a query principal.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição









Método:  posicionaInventarioEndereco

Descrição:

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

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição


Método:  reabreInventarioItem

Descrição:

Reabre a tabela inventário-item.Atualiza as variáveis locais:

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

p-cod-estabel LIKE wm-inventario.cod-estabel
CHAR

X

Estabelecimento

p-cod-local LIKE wm-inventario.cod-local
CHAR

X

Local
p-dt-
dataDateInt
inventarioLIKE wm-inventario.dt-inventario
X

Data Inventário
p
-sequenc
-num-seq-invent LIKE wm-inventario.num-seq-invent 
X

Sequencia Inventário
p-
nao
id-
iniciadoLOGXSequenciap-em-processoLOGX
boxLIKE wm-inventario-endereco.id-box
X

Id Box
p-
concluido
num-contagemLIKE wm-inventario-endereco.num-ult-contagem
LOG

X
Boxp-atualizadoLOGp-primeiraLOGp-segundaLOGp-terceiraLOG

Método:  setContagemEndereco  

Descrição:



Numero da Ultima Contagem
RowErrorsRowErrors

X
Temp-Table RowErrors.


Método:  retornaDtValiLote

Descrição:

Retorna Data de Validade do LoteGrava a contagem do endereço.

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pCodestabelCHAR
pcodestabel LIKE wm-inventario.cod-estabel
X

Estabelecimento

pCodlocal
pcodlocal LIKE wm-inventario.cod-local
CHAR

X

Local
pdtInventarioDate
pdtinventarioLIKE wm-inventario.dt-inventario
X

Data Inventário
pNumseqInventInt
pnumseqinvent LIKE wm-inventario.num-seq-invent 
X

Sequencia
pIdboxDec
Inventário
pCodItemLIKE Wm-inventario-item.cod-item
X

Item
pCodReferLIKE Wm-inventario-item.cod-refer
X
Box


Referencia
pNumContagem
pCodLoteLIKE Wm-inventario-item.cod-lote
Int

X
Contagem


Lote
pUsuario
pDtValiLoteLIKE Wm-inventario-item.dt-vali-lote
CHAR


X
Usuário

Data de Validade do Lote








Método:  setInventario    setConstraintChave

Descrição:

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

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

p-estabel
pCodEstabelCHAR
X

Estabelecimento

p-local
pCodLocalCHAR
X

Local
p-data
pDtInventarioDate
X

Data
p-sequenc
pNumSeqInventInt
X

Sequencia
p-inventLOG
 pIdBoxDEC
X

Box
pNumSeqItemInt
X

Sequencia Item
X


Método:  setSituacaoContagemEndereco    setConstraintEndereco

Descrição:

Atualiza situação do endereço do inventário.as variáveis locais:

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pCodestabel
pCodEstabelCHAR
X

Estabelecimento

pCodlocal
pCodLocalCHAR
X

Local
pDtInventarioDate
X

Data
pNumSeqInventInt
X

Sequencia
pIdBox
 pIdBox
Dec
DEC
X

Box
pSituacaoIntXSituação


Método:  validaContagem Metodo:  setConstraintSituacao

Descrição:

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

Parâmetros:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

Descrição

Atualiza as variáveis locais:

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

p-nao-iniciadoLOG
X


p-em-processoLOG
X


p-concluidoLOG
X


p-atualizadoLOG
X



Método:  validateLoteValidade

Descrição:

Valida a Data de Validade do Lote

...

p-cod-estabel

...

Endereço Inventário

...

todo:  retornaEnderecoBox  

Descrição:

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

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pcodestabel 
pCodestabelLIKE
wm
Wm-inventario-item.cod-estabel
X

Estabelecimento

pcodlocal 
pCodlocalLIKE
wm
Wm-inventario-item.cod-local
X

Local
pdtinventario
pCodClienteLIKE
wm
Wm-inventario-item.
dt
cod-
inventario
cliente
X

Data
Inventário
pnumseqinvent 
pCodItemLIKE
wm
Wm-inventario-item.
num
cod-
seq-invent 
item
X

Sequencia
Inventário
PNumContagemInteger
pCodReferLIKE Wm-inventario-item.cod-refer
X

Box
pidbox
pCodLoteLIKE
wm
Wm-inventario-
endereco
item.
id
cod-
box
lote
X
Id Box


Contagem
pExisteEndLog
pDtValiLoteLIKE Wm-inventario-item.dt-vali-lote
X

Usuário








Método:  validateRecordtodo:  validateRecord  

Descrição:

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

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pTypeCHAR












Método:  verificaWMSItEstabLocal

Descrição:

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

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pType CHARX

Estabelecimento

todo:  retornaEnderecoBox  

Descrição:

c-cod-estab

like wm-inventario-item.cod-estabel





Estabelecimento

c-cod-local
like wm-inventario-item.cod-local



Local
c-cod-item 
like wm-inventario-item.cod-item



Item


Método:  verificaItemInventario

Descrição:

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

Parâmetros:

Parâmetro

Tipo

Formato

I

O

IO

Descrição

pcod-estabel 

piCodEstabel

LIKE

like wm-inventario-item.cod-estabel

X




Estabelecimento

pcod-local 
piCodLocal
LIKE
like wm-inventario-item.cod-local
X




Local
pdt-inventario
piDtInvent
LIKE
like wm-inventario-item.dt-
inventario
invent
X




Data Inventário
pnum-seq-invent 
piNumSeqInvent like
LIKE
wm-inventario-item.num-seq-
invent 
invent
X




Sequencia Inventário
pid
piIdBox like wm-inventario-item.id-box



Endereço
piCodItem
LIKE
like wm-inventario-
endereco
item.
id-boxXId Boxpcod-bloco
cod-item



Item
piCodRefer like wm-inventario-item.cod-refer



Referencia
piCodLote like
LIKE
wm-inventario-
endereco
item.cod-
bloco
lote
XBlocopcod-rua




Lote
piCodEmbalagem LIKE wm-inventario-
endereco
item.cod-
rua
embalagem
X




Embalagem
Ruapcod-nivel
piDtValiLote like
LIKE
wm-inventario-
endereco
item.
cod
dt-vali-
nivelXNívelpcod-coluna
lote



Data Validade do Lote
piCodCliente like
LIKE
wm-inventario-
endereco
item.cod-
coluna
cliente
X




Cliente
ColunapposicaoIntegerXPosição
piNumSeqItemlike wm-inventario-item.num-seq-item



Sequencia do Item