Histórico da Página

...

Retorna temp-table com todos os inventarios não iniciados ou em processo.

Parâmetros:

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:

Método:  getLastInventario  

...

Posiciona no inventário com situação >= 3 e que já foi  executado o acerto no ERP.

Parâmetros:

Método:  getLastInventarioAberto  

...

Posiciona o inventário conforme parâmetros passados e retorna Data e sequencia do inventário localizado.

Parâmetros:

Método:  getLastInventario  

...

Posiciona no inventário com situação >= 3 e que já foi  executado o acerto no ERP.

Parâmetros:

Método:  getLastInventSitInvIgual  

...

Posiciona no inventário com situação = 4.

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

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:

Método:  validaNumeroContagem  

...

Validações da Contagem de Inventario

Parâmetros:

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:

...