Histórico da Página
...
Atributo | Tipo | Formato | Evolução | Obrigatório | Evolução | |||
cod-estabel | Character | X(5) | Estabelecimento | Sim | ems202. | |||
cod-local | VarChar | X(3) | Local | Sim | ems202. | cod-bloco | Character | X(3) | bloco
dt-inventario | Date | 99/99/9999 | Dt Inventario | Sim | ems202. | |||
num-seq-invent | Integer | >>>,>>9 | Num Invent | Sim | ems202. | |||
id-box | decimal | >>>>>>>>>>>9 | Id Endereço | Sim | ems202. | |||
codnum-seq-colunaitem | Character | X(3) | Integer | >>>>>>>>9 | Sequencia Itemcoluna | Sim | ems202. | |
cod- nivelitem | Character | X(316) | nivelItem | Sim | ems202. | |||
cod-rua refer | Character | X(38) | ruaReferencia | Sim | ems202. | |||
dtcod-inventario lote | Date | 99/99/9999 | Character | X(40) | LoteDt Inventario | Sim | ems202. | |
numqtd-seq-inventsaldo | IntegerDecimal | >>>,>>>,>>>,>>9.9999 | Num Invent Qtd Saldo | Sim | ems202. | |||
dtqtd-leitura apurada | Date | 99/99/9999 | Decimal | >>>,>>>,>>>,>>9.9999 | Qtd ApuradaDt leitura Inventario | Sim | ems202. | |
hr-leitura ind-sit-inv-item | Integer | >>>>>9>9 | hora leituraSituação | Sim | ems202. | |||
idcod-box cliente | decimalInteger | >>>>>>>>>>>9>9 | Id EndereçoCódigo Cliente | Sim | ems202. | |||
inddt-sitvali-inv-end lote | Integer | >9 | Date | 99/99/9999 | Data Validade LoteSituação Inventario | Sim | ems202. | |
indqtd-status-contagem final | Integer | >9 | Decimal | >>>,>>>,>>>,>>9.9999 | Qtd FinalSituação Contagem Inventario | Sim | ems202. | |
logqtd-bloqsaldo-armaz peso | Logical | Sim/não | Decimal | >>>,>>>,>>>,>>9.9999 | Qtd Saldo PesoEndereço Bloqueado Inventário Armazenamento | Sim | ems202. | |
logqtd-bloqapurada-retir peso | Logical | Sim/não | Decimal | >>>,>>>,>>>,>>9.9999 | Qtd Apurada PesoEndereço Bloqueado Inventário retirada | Sim | ems202. | |
numqtd-ultfinal-contagem peso | IntegerDecimal | >>>,>>>,>>>,>>9.9999 | Qtd Final Peso | Sim | ems202. | |||
log-atual-ce | Logical | Sim/não | Atualizado EstoqueNum contagem | Sim | ems202.usuario | |||
cod-embalagem | VarChar | Xx(1210) | UsuárioEmbalagem | Sim | ems202. |
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 | |||
pIdBox | Decimal | X | Endereço Inventário | |||
pNumContagem | Integer | 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-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 | |||||||||||||||
pIdBox | Decimal | X | Endereço Inventário |
Método: createEnderecoInventarioColetor
Descrição:
...
piNumSeqItem | wm-inventario- |
...
item. |
...
Parâmetros:
...
Parâmetro
...
Tipo
...
Formato
...
I
...
O
...
IO
...
Descrição
num-seq-item | X | Sequencia do Item | ||||
piNumContagem | Integer | X | Número da contagem | |||
piQtdApurada | wm-inventario-item.qtd-final | X | Quantidade Apurada | |||
piPesoApurado | wm-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-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-box | Decimal | X | 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
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-box | LIKE wm-inventario-endereco.id-box | X |
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-item | LIKE wm-box-saldo.cod-item | X | Item | |||
pcod-refer | LIKE wm-box-saldo.cod-refer | X | Referencia | |||
pcod-lote | LIKE wm-box-saldo.cod-lote | X | lote | |||
pcod-embalagem | LIKE wm-box-saldo.cod-embalagem | X | embalagem | |||
pcod-cliente | LIKE wm-box-saldo.cod-cliente | X | cliente | |||
pqtd-saldo | LIKE wm-box-saldo.qtd-item | X | Saldo | |||
pqtd-peso | LIKE 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 |
pError | Int | |||||
pParam | Char |
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-box | LIKE wm-inventario-endereco.id-box | X | ID Box | |||
p-num-seq-item | LIKE wm-inventario-item.num-seq-item | X | Item | |||
p-num-contagem | Integer | X | Referencia | |||
p-qtd-apurada | Decimal | X | lote | |||
p-qtd-apurada-peso | Decimal | 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-box | LIKE wm-inventario-endereco.id-box | X | ID Box | |||
p-num-contagem | Integer | 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 | |||
pidbox | LIKE wm-inventario-endereco.id-box | X | ID Box | |||
pnumcontagem | Integer | 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-box | LIKE 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
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 | |||
pIdBox | Decimal | X | Box | |||
pNumSeqItem | Integer | 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-inventario | LIKE 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-item | LIKE 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 |
piCodEstabel |
LIKE wm-inventario.cod-estabel | X | Estabelecimento |
piCodLocal |
LIKE wm-inventario.cod- |
local | X | Local |
piDtInventario | LIKE wm-inventario |
.dt-inventario | X | Data Inventário | |||
piNumSeqInvent | LIKE |
wm-inventario. |
Método: retornaLocalizacaoBrowser
Descrição:
num-seq-invent | X | Sequencia do Inventário | ||||
piIdBox | Decimal | X | Box | |||
piNumSeqItem | Integer | X | Sequencia do item | |||
piNumContagem | Integer | 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 |
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 | |||
pFieldValue | LOGICAL | 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 |
Estabelecimento
Método: setConstraintFaixa
Descrição:
pFieldName | CHARACTER | X | Campo da tabela wm-inventario | |||
pFieldValue | RAW | 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 | |||
pFieldValue | RECID | 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 |
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-seq-invent | LIKE wm-inventario.num-seq-invent |
X | Sequencia Inventário | ||
p- |
id- |
box | LIKE wm-inventario-endereco.id-box | X | Id Box | |||
p- |
num-contagem | LIKE wm-inventario-endereco.num-ult-contagem |
X |
Método: setContagemEndereco
Descrição:
Numero da Ultima Contagem | ||||||
RowErrors | RowErrors | 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 |
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 |
Inventário | ||||||
pCodItem | LIKE Wm-inventario-item.cod-item | X | Item | |||
pCodRefer | LIKE Wm-inventario-item.cod-refer | X |
Referencia |
pCodLote | LIKE Wm-inventario-item.cod-lote |
X |
Lote |
pDtValiLote | LIKE Wm-inventario-item.dt-vali-lote |
X |
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 |
pCodEstabel | CHAR | X | Estabelecimento |
pCodLocal | CHAR | X | Local |
pDtInventario | Date | X | Data |
pNumSeqInvent | Int | X | Sequencia |
pIdBox | DEC | X | Box | |||
pNumSeqItem | Int | X | Sequencia Item |
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 | CHAR | X | Estabelecimento |
pCodLocal | CHAR | X | Local | |||
pDtInventario | Date | X | Data | |||
pNumSeqInvent | Int | X | Sequencia |
pIdBox |
DEC | X | Box |
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-iniciado | LOG | X | ||||
p-em-processo | LOG | X | ||||
p-concluido | LOG | X | ||||
p-atualizado | LOG | X |
Método: validateLoteValidade
Descrição:
Valida a Data de Validade do Lote
...
p-cod-estabel
...
Endereço Inventário
...
Mé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 | LIKE |
Wm-inventario-item.cod-estabel | X | Estabelecimento |
pCodlocal | LIKE |
Wm-inventario-item.cod-local | X | Local |
pCodCliente | LIKE |
Wm-inventario-item. |
cod- |
cliente | X | Data |
pCodItem | LIKE |
Wm-inventario-item. |
cod- |
item | X | Sequencia |
pCodRefer | LIKE Wm-inventario-item.cod-refer | X | Box |
pCodLote | LIKE |
Wm-inventario- |
item. |
cod- |
lote | X |
Contagem |
pDtValiLote | LIKE Wm-inventario-item.dt-vali-lote | X | Usuário | |||
Método: validateRecordMétodo: 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 |
pType | CHAR | |||||
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 |
Estabelecimento
Mé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 |
piCodEstabel |
like wm-inventario-item.cod-estabel |
Estabelecimento |
piCodLocal |
like wm-inventario-item.cod-local |
Local |
piDtInvent |
like wm-inventario-item.dt- |
invent |
Data Inventário |
piNumSeqInvent | like |
wm-inventario-item.num-seq- |
invent |
Sequencia Inventário |
piIdBox | like wm-inventario-item.id-box | Endereço | ||||
piCodItem |
like wm-inventario- |
item. |
cod-item | Item | |||||
piCodRefer | like wm-inventario-item.cod-refer | Referencia | ||||
piCodLote | like |
wm-inventario- |
item.cod- |
lote |
Lote | ||||
piCodEmbalagem | LIKE wm-inventario- |
item.cod- |
embalagem |
Embalagem |
piDtValiLote | like |
wm-inventario- |
item. |
dt-vali- |
lote | Data Validade do Lote | ||||
piCodCliente | like |
wm-inventario- |
item.cod- |
cliente |
Cliente |
piNumSeqItem | like wm-inventario-item.num-seq-item | Sequencia do Item | ||||