Histórico da Página

...

Faz a manutenção na tabela wm-inventario

DEFINE TEMP-TABLE ttWm-inventario NO-UNDO LIKE wm-inventario.

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.

Método:  _PROCEDURE createInventario DBOProgram 

Descrição:
Cria Inventário e retorna a sequencia do inventário criado.

...

DEFINE OUTPUT PARAMETER pNumSeqInvent AS INTE NO-UNDO.

Queries e Constraints Métodos

...

OpenQueryEstabel

Descrição:

Busca os registro associadas a um Estabelecimento.

Constraints Associados:

Método:

Descrição:

Solicita informações para seleção.

Parâmetros:

...

Parâmetro

...

Tipo

...

Formato

...

I

...

O

...

IO

...

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

Descrição:

Reabre a query principal.

Parâmetros:

Método: findFirstMain

Método: findFirstMain

Descrição:

Posiciona a Tabela inventário no primeiro registro.

Parâmetros:

Método:  findLastMain 

Descrição:

Posiciona a Tabela inventário no último registro.

Parâmetros:

Método:  findNextMain 

Descrição:

Posiciona a Tabela inventário no próximo registro.

Parâmetros:

Método:  findPrevMain 

Descrição:

Posiciona a Tabela inventário no registro anterior.

Parâmetros:

Método:  getCharField 

Descrição:

Retorna o valor do campo alfanumerico.

Parâmetros:

Método:  getDateField  

Descrição:

Retorna o valor do campo Date.

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

Método:  getIndSitInventario  

...

nao sendo possivel reposicionar a query (goToKey) e utilizar o metodo getIntField.

Parâmetros:

Método:  getIndSitInventario  

...

nao sendo possivel reposicionar a query (goToKey) e utilizar o metodo getIntField.

Parâmetros:

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getIntField DBOProgram 

PROCEDURE getIntField :
/*------------------------------------------------------------------------------
Purpose: Retorna valor de campos do tipo inteiro
Parameters:
recebe nome do campo
retorna valor do campo
Notes:
------------------------------------------------------------------------------*/
DEFINE INPUT PARAMETER pFieldName AS CHARACTER NO-UNDO.
DEFINE OUTPUT PARAMETER pFieldValue AS INTEGER NO-UNDO.

/*--- Verifica se temptable RowObject está disponível, caso não esteja será
retornada flag "NOK":U ---*/
IF NOT AVAILABLE RowObject THEN
RETURN "NOK":U.

CASE pFieldName:
WHEN "ind-sit-invent":U THEN ASSIGN pFieldValue = RowObject.ind-sit-invent.
WHEN "int-1":U THEN ASSIGN pFieldValue = RowObject.int-1.
WHEN "int-2":U THEN ASSIGN pFieldValue = RowObject.int-2.
WHEN "num-seq-invent":U THEN ASSIGN pFieldValue = RowObject.num-seq-invent.
OTHERWISE RETURN "NOK":U.
END CASE.

RETURN "OK":U.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getInventario DBOProgram
PROCEDURE getInventario :
/*------------------------------------------------------------------------------
Purpose: Retornar temp-table com todos os inventarios não iniciados ou
em processo
Parameters:
Notes:
------------------------------------------------------------------------------*/

DEFINE OUTPUT PARAMETER TABLE FOR ttWm-inventario.

FOR EACH ttWm-inventario:
DELETE ttWm-inventario.
END.

FOR EACH wm-inventario WHERE
wm-inventario.ind-sit-invent < 3 NO-LOCK, /* ñ iniciados/processo */
/* --- Knupp - Movimentação Utilizando Etiquetas --- */
FIRST wm-local NO-LOCK WHERE
wm-local.cod-estabel = wm-inventario.cod-estabel AND
wm-local.cod-local = wm-inventario.cod-local AND
wm-local.log-utiliz-etiq-movto = YES:

CREATE ttWm-inventario.
BUFFER-COPY wm-inventario TO ttWm-inventario.

END.

RETURN 'OK':U.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getKey DBOProgram
PROCEDURE getKey :
/*------------------------------------------------------------------------------
Purpose: Retorna valores dos campos do índice idx-inventario1
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
Notes:
------------------------------------------------------------------------------*/
DEFINE OUTPUT PARAMETER pcod-estabel LIKE wm-inventario.cod-estabel NO-UNDO.
DEFINE OUTPUT PARAMETER pcod-local LIKE wm-inventario.cod-local NO-UNDO.
DEFINE OUTPUT PARAMETER pdt-inventario LIKE wm-inventario.dt-inventario NO-UNDO.
DEFINE OUTPUT PARAMETER pnum-seq-invent LIKE wm-inventario.num-seq-invent NO-UNDO.

/*--- Verifica se temptable RowObject está disponível, caso não esteja será
retornada flag "NOK":U ---*/
IF NOT AVAILABLE RowObject THEN
RETURN "NOK":U.

ASSIGN pcod-estabel = RowObject.cod-estabel
pcod-local = RowObject.cod-local
pdt-inventario = RowObject.dt-inventario
pnum-seq-invent = RowObject.num-seq-invent.

RETURN "OK":U.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getLastInventario DBOProgram
PROCEDURE getLastInventario :
/*------------------------------------------------------------------------------
Purpose:
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/

...

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getLastInventarioAberto DBOProgram
PROCEDURE getLastInventarioAberto :
/*------------------------------------------------------------------------------
Purpose:
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/

DEFINE INPUT PARAMETER pCodEstabel LIKE wm-inventario.cod-estabel NO-UNDO.
DEFINE INPUT PARAMETER pCodLocal LIKE wm-inventario.cod-local NO-UNDO.
DEFINE OUTPUT PARAMETER pDtInventario LIKE wm-inventario.dt-inventario NO-UNDO.
DEFINE OUTPUT PARAMETER pNumSeqInvent LIKE wm-inventario.num-seq-invent NO-UNDO.

FIND LAST bf{&TableName}
WHERE bf{&TableName}.cod-estabel = pCodEstabel AND
bf{&TableName}.cod-local = pCodLocal AND
bf{&tablename}.ind-sit-invent < 4 /* NAO Atualizados */ NO-LOCK NO-ERROR.

IF AVAIL bf{&TableName} THEN
ASSIGN pDtInventario = bf{&TableName}.dt-inventario
pNumSeqInvent = bf{&TableName}.num-seq-invent.
ELSE
ASSIGN pDtInventario = TODAY
pNumSeqInvent = 0.

RETURN "OK":U.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getLastInventSitInvIgual DBOProgram
PROCEDURE getLastInventSitInvIgual :
/*------------------------------------------------------------------------------
Purpose:
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/

DEF OUTPUT PARAM pcod-estabel LIKE wm-inventario.cod-estabel NO-UNDO.
DEF OUTPUT PARAM pcod-local LIKE wm-inventario.cod-local NO-UNDO.
DEF OUTPUT PARAM pdt-inventario LIKE wm-inventario.dt-inventario NO-UNDO.
DEF OUTPUT PARAM pnum-seq-invent LIKE wm-inventario.num-seq-invent NO-UNDO.

FIND LAST wm-inventario WHERE
wm-inventario.ind-sit-invent = 4 NO-LOCK NO-ERROR.
IF AVAIL wm-inventario THEN
ASSIGN 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.
ELSE
RETURN "NOK":U.

RETURN "OK":U.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getLogField DBOProgram
PROCEDURE getLogField :
/*------------------------------------------------------------------------------
Purpose: Retorna valor de campos do tipo lógico
Parameters:
recebe nome do campo
retorna valor do campo
Notes:
------------------------------------------------------------------------------*/
DEFINE INPUT PARAMETER pFieldName AS CHARACTER NO-UNDO.
DEFINE OUTPUT PARAMETER pFieldValue AS LOGICAL NO-UNDO.

/*--- Verifica se temptable RowObject está disponível, caso não esteja será
retornada flag "NOK":U ---*/
IF NOT AVAILABLE RowObject THEN
RETURN "NOK":U.

CASE pFieldName:
WHEN "log-1":U THEN ASSIGN pFieldValue = RowObject.log-1.
WHEN "log-2":U THEN ASSIGN pFieldValue = RowObject.log-2.
OTHERWISE RETURN "NOK":U.
END CASE.

RETURN "OK":U.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getRawField DBOProgram
PROCEDURE getRawField :
/*------------------------------------------------------------------------------
Purpose: Retorna valor de campos do tipo raw
Parameters:
recebe nome do campo
retorna valor do campo
Notes:
------------------------------------------------------------------------------*/
DEFINE INPUT PARAMETER pFieldName AS CHARACTER NO-UNDO.
DEFINE OUTPUT PARAMETER pFieldValue AS RAW NO-UNDO.

/*--- Verifica se temptable RowObject está disponível, caso não esteja será
retornada flag "NOK":U ---*/
IF NOT AVAILABLE RowObject THEN
RETURN "NOK":U.

CASE pFieldName:
OTHERWISE RETURN "NOK":U.
END CASE.

RETURN "OK":U.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE getRecidField DBOProgram
PROCEDURE getRecidField :
/*------------------------------------------------------------------------------
Purpose: Retorna valor de campos do tipo recid
Parameters:
recebe nome do campo
retorna valor do campo
Notes:
------------------------------------------------------------------------------*/
DEFINE INPUT PARAMETER pFieldName AS CHARACTER NO-UNDO.
DEFINE OUTPUT PARAMETER pFieldValue AS RECID NO-UNDO.

/*--- Verifica se temptable RowObject está disponível, caso não esteja será
retornada flag "NOK":U ---*/
IF NOT AVAILABLE RowObject THEN
RETURN "NOK":U.

CASE pFieldName:
OTHERWISE RETURN "NOK":U.
END CASE.

RETURN "OK":U.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE goToKey DBOProgram
PROCEDURE goToKey :
/*------------------------------------------------------------------------------
Purpose: Reposiciona registro com base no índice idx-inventario1
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
Notes:
------------------------------------------------------------------------------*/
DEFINE INPUT PARAMETER pcod-estabel LIKE wm-inventario.cod-estabel NO-UNDO.
DEFINE INPUT PARAMETER pcod-local LIKE wm-inventario.cod-local NO-UNDO.
DEFINE INPUT PARAMETER pdt-inventario LIKE wm-inventario.dt-inventario NO-UNDO.
DEFINE INPUT PARAMETER pnum-seq-invent LIKE wm-inventario.num-seq-invent NO-UNDO.

FIND FIRST bfwm-inventario WHERE
bfwm-inventario.cod-estabel = pcod-estabel AND
bfwm-inventario.cod-local = pcod-local AND
bfwm-inventario.dt-inventario = pdt-inventario AND
bfwm-inventario.num-seq-invent = pnum-seq-invent NO-LOCK NO-ERROR.

/*--- Verifica se registro foi encontrado, em caso de erro será retornada flag "NOK":U ---*/
IF NOT AVAILABLE bfwm-inventario THEN
RETURN "NOK":U.

/*--- Reposiciona query através de rowid e verifica a ocorrência de erros, caso
existam erros será retornada flag "NOK":U ---*/
RUN repositionRecord IN THIS-PROCEDURE (INPUT ROWID(bfwm-inventario)).
IF RETURN-VALUE = "NOK":U THEN
RETURN "NOK":U.

RETURN "OK":U.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE openQueryEstabel DBOProgram
PROCEDURE openQueryEstabel :
/*------------------------------------------------------------------------------
Purpose:
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
OPEN QUERY {&QueryName} FOR EACH {&TableName} NO-LOCK
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.
RETURN "OK":U.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE openQueryMain DBOProgram
PROCEDURE openQueryMain :
/*------------------------------------------------------------------------------
Purpose:
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/

OPEN QUERY {&QueryName} FOR EACH wm-inventario NO-LOCK INDEXED-REPOSITION.

RETURN 'OK':U.
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ReabreInventario DBOProgram
PROCEDURE ReabreInventario :
/*------------------------------------------------------------------------------
Purpose:
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/

IF NOT AVAIL RowObject THEN
RETURN "NOK":U.

EMPTY TEMP-TABLE rowErrors.

IF RowObject.ind-sit-invent = 4 /* Atualizado */ THEN DO:
{method/svc/errors/inserr.i
&ErrorNumber="4493"
&ErrorType="EMS"
&ErrorSubType = "ERROR"
&ErrorParameters="''"}
RETURN "NOK":U.
END.

...

Método:  getInventario  

Descrição:

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

Parâmetros:

Método:  getKey  

Descrição:

 Retorna valores dos campos do índice idx-inventario1

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  

Descrição:

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

Parâmetros:

Método:  getLastInventarioAberto  

Descrição:

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

Parâmetros:

Método:  getLastInventario  

Descrição:

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

Parâmetros:

Método:  getLastInventSitInvIgual  

Descrição:

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:

Reposiciona registro com base no índice idx-inventario1

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

Parâmetros:

Método:  setConstraintFaixa  

Descrição:

Atualiza as informações das variáveis locais:

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  

Descrição:

Validações da Contagem de Inventario

Parâmetros:

RUN UpdateRecord IN THIS-PROCEDURE.
IF RETURN-VALUE = "NOK":U THEN
RETURN "NOK":U.
END.

RETURN "OK":U.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

...

RETURN "OK":U.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

...

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.

...