Histórico da Página
...
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 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.
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
...
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:
Parâmetro | Tipo | Formato | I | O | IO | Descrição |
Método: findFirstMain
Método: findFirstMain
Descrição:
Posiciona a Tabela inventário no primeiro registro.
Parâmetros:
Parâmetro | Tipo | Formato | I | O | IO | Descrição |
Método: findLastMain
Descrição:
Posiciona a Tabela inventário no último registro.
Parâmetros:
Parâmetro | Tipo | Formato | I | O | IO | Descrição |
Método: findNextMain
Descrição:
Posiciona a Tabela inventário no próximo registro.
Parâmetros:
Parâmetro | Tipo | Formato | I | O | IO | Descrição |
Método: findPrevMain
Descrição:
Posiciona a Tabela inventário no registro anterior.
Parâmetros:
Parâmetro | Tipo | Formato | I | O | IO | Descrição |
Método: getCharField
Descrição:
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 |
&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:
Parâmetro | Tipo | Formato | I | O | IO | Descrição |
ttwm-inventario | TABLE FOR ttWm-inventario | X | Retorna Temp-Table |
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:
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
Descrição:
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
Descrição:
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
Descrição:
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
Descrição:
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:
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:
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
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:
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
Descrição:
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 |
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.
...