Histórico da Página
Documento de BO
Produto: | Datasul |
Ocorrência: | Documentação de BO |
Nome Físico | scbo/bosc117.p |
Objetivo
Faz a manutenção na tabela wm-inventario
Atributo | Tipo | Formato | Evolução | Obrigatório | Evolução |
cod-estabel | Character | X(3) | Estabelecimento | Sim | ems202. |
cod-local | VarChar | X(3) | Local | Sim | ems202. |
dt-inventario | Date | 99/99/9999 | Dt Inventario | Sim | ems202. |
idi-tip-invent | Integer | >9 | Tipo Inventário | Sim | ems202. |
ind-orig-invent | Integer | >9 | Origem Inventario | Sim | ems202. |
ind-sit-invent | Integer | >9 | Situação | Sim | ems202. |
log-acerto-ce | Logical | Sim/não | Gera Acerto Estoque | Sim | ems202. |
log-gera-contag-ender-vazio | Logical | Sim/não | Gera Contagem Endereco Vazio | Sim | ems202. |
log-gera-contag-smte-ender-vazio | Logical | Sim/não | Gera Contagem Somente Endereco | Sim | ems202. |
num-seq-invent | Integer | >>>,>>9 | Num Invent | Sim | ems202. |
DEFINE TEMP-TABLE ttWm-inventario NO-UNDO LIKE wm-inventario.
...
DEFINE OUTPUT PARAMETER pNumSeqInvent AS INTE NO-UNDO.
Parâmetro | Tipo | Formato | I | O | IO | Descrição |
---|---|---|---|---|---|---|
pCodEstabel | Character | (3) | X | Código da Doca | ||
pCodLocal | Character | (3) | X | Código Local | ||
pDtInventario | Date | 99/99/9999 | X | Data Inventário | ||
pNumSeqInvent | Integer | >9 | X | Sequencia do Inventário |
Queries e Constraints Métodos
...
Retorna o valor do campo alfanumerico.
Parâmetros:
Parâmetro | Tipo | Formato | I | O | IO | Descrição |
pFieldName | CHARACTER | X | Campo da tabela wm-inventario | |||
pFieldValue | CHARACTER | X | Retorna o valor do campo |
Método: getDateField
Descrição:
Retorna o valor do campo Date.
Parâmetros:
Parâmetro | Tipo | Formato | I | O | IO | Descrição |
pFieldName | CHARACTER | X | Campo da tabela wm-inventario | |||
pFieldValue | DATE | X | Retorna o valor do campo |
Método: getDecField
Descrição:
Retorna o valor do campo Decimal.
Parâmetros:
Parâmetro | Tipo | Formato | I | O | IO | Descrição |
pFieldName | CHARACTER | X | Campo da tabela wm-inventario | |||
pFieldValue | DECIMAL | X | Retorna o valor do campo |
Método: getIntField
Descrição:
Retorna o valor do campo Decimal.
Parâmetros:
Parâmetro | Tipo | Formato | I | O | IO | Descrição |
pFieldName | CHARACTER | X | Campo da tabela wm-inventario | |||
pFieldValue | INTEGER | X | Retorna o valor do campo |
Método: getFirstInventSitInvMenor
...
pcod-estabel = wm-inventario.cod-estabel
pcod-local = wm-inventario.cod-local
pdt-inventario = wm-inventario.dt-inventario
pnum-seq-invent = wm-inventario.num-seq-invent.
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 do Inventário |
Método: getIndSitInventario
...
nao sendo possivel reposicionar a query (goToKey) e utilizar o metodo getIntField.
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 | |||
pIndSitInvent | LIKE wm-inventario.ind-sit-invent | X |
Método: getIndSitInventario
...
nao sendo possivel reposicionar a query (goToKey) e utilizar o metodo getIntField.
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 | |||
pIndSitInvent | LIKE wm-inventario.ind-sit-invent | X |
Método: getInventario
Descrição:
Retorna temp-table com todos os inventarios não iniciados ou em processo.
Parâmetros:
Parâmetro | Tipo | Formato | I | O | IO | Descrição |
ttwm-inventario | TABLE FOR ttWm-inventario | X | Retorna Temp-Table |
Método: getKey
Descrição:
...
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
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 | pnum-seq-invent LIKE wm-inventario.num-seq-invent | X | Sequencia Inventário |
Método: getLastInventario
...
Posiciona no inventário com situação >= 3 e que já foi executado o acerto no ERP.
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 |
Método: getLastInventarioAberto
...
Posiciona o inventário conforme parâmetros passados e retorna Data e sequencia do inventário localizado.
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 |
Método: getLastInventario
...
Posiciona no inventário com situação >= 3 e que já foi executado o acerto no ERP.
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 |
Método: getLastInventSitInvIgual
...
Posiciona no inventário com situação = 4.
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 do Inventário |
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.
Parâmetros:
Parâmetro | Tipo | Formato | I | O | IO | 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: goToKey
Descrição:
...
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
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 do Inventário |
Método: setConstraintFaixa
...
c-estabel-ini = pi-estabel-ini
c-estabel-fim = pi-estabel-fim
c-local-ini = pi-local-ini
c-local-fim = pi-local-fim
d-data-ini = pi-data-ini
d-data-fim = pi-data-fim.
Parâmetros:
Parâmetro | Tipo | Formato | I | O | IO | Descrição |
pi-estabel-ini | LIKE wm-inventario.cod-estabel | X | Estabelecimento | |||
pi-estabel-fim | LIKE wm-inventario.cod-estabel | X | Estabelecimento | |||
pi-local-ini | LIKE wm-inventario.cod-local | X | Local | |||
pi-local-fim | LIKE wm-inventario.cod-local | X | Local | |||
pi-data-ini | LIKE wm-inventario.dt-inventario | X | Data Inventário | |||
pi-data-fim | LIKE wm-inventario.dt-inventario | X | Data Inventário |
Método: validaNumeroContagem
...
Validações da Contagem de Inventario
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.dt-inventario | X | Sequencia Inventário | |||
pNumContagem | integer | X | Contagem |
DEFINE INPUT PARAMETER pCodEstabel AS CHAR NO-UNDO.
DEFINE INPUT PARAMETER pCodLocal AS CHAR NO-UNDO.
DEFINE INPUT PARAMETER pDtInventario AS DATE NO-UNDO.
DEFINE INPUT PARAMETER pNumSeqInvent AS INTE NO-UNDO.
DEFINE INPUT PARAMETER pNumContagem AS INTE NO-UNDO.
RUN emptyRowErrors IN THIS-PROCEDURE.
IF pNumContagem <= 0
OR pNumContagem > 3 THEN
{method/svc/errors/inserr.i
&ErrorNumber="26840"
&ErrorType="EMS"
&ErrorSubType = "ERROR"
&ErrorParameters="''"}
FIND wm-inventario WHERE
wm-inventario.cod-estabel = pCodEstabel AND
wm-inventario.cod-local = pCodLocal AND
wm-inventario.dt-inventario = pDtInventario AND
wm-inventario.num-seq-invent = pNumSeqInvent NO-LOCK NO-ERROR.
IF NOT AVAIL wm-inventario THEN DO:
/* Inicio -- Projeto Internacional */
DEFINE VARIABLE c-lbl-liter-inventario AS CHARACTER NO-UNDO.
{utp/ut-liter.i "Inventário" *}
ASSIGN c-lbl-liter-inventario = TRIM(RETURN-VALUE).
{method/svc/errors/inserr.i
&ErrorNumber="56"
&ErrorType="EMS"
&ErrorSubType = "ERROR"
&ErrorParameters="c-lbl-liter-inventario"}
RETURN 'NOK':U.
END.
ELSE DO:
IF wm-inventario.ind-sit-invent >= 3 THEN
{method/svc/errors/inserr.i
&ErrorNumber="26838"
&ErrorType="EMS"
&ErrorSubType = "ERROR"
&ErrorParameters="''"}
IF wm-inventario.ind-sit-invent = 1
AND wm-inventario.num-seq-invent <> 1 THEN
{method/svc/errors/inserr.i
&ErrorNumber="26840"
&ErrorType="EMS"
&ErrorSubType = "ERROR"
&ErrorParameters="''"}
END.
IF CAN-FIND(FIRST RowErrors NO-LOCK) THEN
RETURN 'NOK':U.
RETURN 'OK':U.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
...
Método: validateRecord
Descrição:
Validações pertinentes ao DBO
Parameters: recebe o tipo de validação (Create, Delete, Update)
Verifica ocorrência de erros.
Parâmetros:
Parâmetro | Tipo | Formato | I | O | IO | Descrição |
pType | CHARACTER | X | Estabelecimento |
...