Histórico da Página

...

Método:

getCarga

Descrição:

O método consiste em buscar a carga do documento.

...

Método:

getConteudoCarga

Descrição:

...

Método:

getInfoAgrupador

Descrição:

...

Método:

getInfoAgrupadores

Descrição:

...

Método:

getInfoEtiqueta

Descrição:

O método consiste em obter as informações da etiqueta, através de um número
serial informado.

Requisitos:

Definição de temp-table:

DEF TEMP-TABLE ttWm-Etiqueta       NO-UNDO LIKE wm-etiqueta.

Parâmetros:

Método:

getTableEmbalagem

Descrição:

Metodo Auxiliar chamado pela procedure 'returnImpressaoEtiqueta'.

Requisitos:

Definição de temp-table:

DEF TEMP-TABLE tt-embalagem NO-UNDO
        FIELD CodItem AS CHARACTER FORMAT "X(16)":U
        FIELD CodRefer AS CHARACTER FORMAT "X(8)":U
        FIELD CodLote AS CHARACTER FORMAT "X(40)":U
        FIELD DtValidadeLote AS DATE
        FIELD NumSeqItem AS INTEGER
        FIELD CodEmbalagem AS CHARACTER FORMAT "X(010)":U
        FIELD cod-emb-pai AS CHARACTER FORMAT "X(010)":U
        FIELD logPai AS LOGICAL
        FIELD ControlaEtiqueta AS LOGICAL
        FIELD QtdItemEmbalagem AS DECIMAL FORMAT "999,999,999,999.9999":U
        FIELD QtdEmbalagem AS DECIMAL FORMAT "999,999,999,999.9999":U
        FIELD QtdItem AS DECIMAL FORMAT "999,999,999,999.9999":U
        FIELD CodLayoutItem AS INTEGER FORMAT "9999":U
        FIELD CodLayoutEmbalagem AS INTEGER FORMAT "9999":U
        FIELD CodBarrasItem AS CHARACTER FORMAT "X(100)":U
        FIELD CodBarrasEmbalagem AS CHARACTER FORMAT "X(100)":U.

Parâmetros:

Método:

inutilizaEtiquetas

Descrição:

Quando for uma etiqueta de item, seja ele único por pallet ou que sofra
agrupamento, seu status será trocado para "inutilizado".
Quando for uma etiqueta de agrupador, esta será inutilizada e os seriais
que ela agrupava serão retornados, com o status de lido e o id-agrupador
igual a zero.
O método consiste em informar um serial para ser inutilizado pelo sistema.
No caso de etiqueta que sofre agrupamento, somente é permitida sua inutilização
caso não esteja vinculada a um agrupador.
No caso de etiqueta agrupadora, somente será permitida sua inutilização caso
ela não esteja vinculada a uma carga. Se não estiver, todas as etiquetas que
estavam agrupadas a ela terão o atributo "id-agrupador = 0" e seus seriais
alimentados na temp-table passada por parâmetro.
Finalmente, se for uma etiqueta de agrupador único, somente será inutilizada
se não estiver vinculada a nenhuma carga.

Requisitos:

Definição de temp-table:

DEF TEMP-TABLE ttSerial NO-UNDO
       FIELD de-serial AS DECIMAL.

Parâmetros:

Método:

leEtiquetas

Descrição:

Este método consiste na troca de status de leitura da etiqueta e na atualização
da data de leitura. Consiste se a etiqueta é uma etiqueta de item, se já não
pertence a um agrupador, se já não está lida.

Parâmetros:

Método:

leEtiquetasAgrupadorProprio

Descrição:

Este método consiste na troca de status de leitura da etiqueta e na atualização
da data de leitura. Consiste se a etiqueta é uma etiqueta de item, se já não
pertence a um agrupador, se já não está lida.

Parâmetros:

Método:

leEtiquetasAgrupadorProprio

Descrição:

Este método consiste na troca de status de leitura da etiqueta e na atualização 
da data de leitura. Consiste se a etiqueta é uma etiqueta de item, se já não 
pertence a um agrupador, se já não está lida.

Parâmetros:

Método:

returnImpressaoEtiqueta

Descrição:

Retorna tt-embalagem que sera utilizada pelo Data Collection.

Requisitos:

Definição de temp-table:

DEF TEMP-TABLE tt-embalagem NO-UNDO
        FIELD CodItem AS CHARACTER FORMAT "X(16)":U
        FIELD CodRefer AS CHARACTER FORMAT "X(8)":U
        FIELD CodLote AS CHARACTER FORMAT "X(40)":U
        FIELD DtValidadeLote AS DATE 
        FIELD NumSeqItem AS INTEGER 
        FIELD CodEmbalagem AS CHARACTER FORMAT "X(010)":U
        FIELD cod-emb-pai AS CHARACTER FORMAT "X(010)":U
        FIELD logPai AS LOGICAL
        FIELD ControlaEtiqueta AS LOGICAL
        FIELD QtdItemEmbalagem AS DECIMAL FORMAT "999,999,999,999.9999":U
        FIELD QtdEmbalagem AS DECIMAL FORMAT "999,999,999,999.9999":U
        FIELD QtdItem AS DECIMAL FORMAT "999,999,999,999.9999":U
        FIELD CodLayoutItem AS INTEGER FORMAT "9999":U
        FIELD CodLayoutEmbalagem AS INTEGER FORMAT "9999":U
        FIELD CodBarrasItem AS CHARACTER FORMAT "X(100)":U
        FIELD CodBarrasEmbalagem AS CHARACTER FORMAT "X(100)":U.

 DEFINE TEMP-TABLE RowErrors NO-UNDO
        FIELD ErrorSequence      AS INTEGER
        FIELD ErrorNumber        AS INTEGER
        FIELD ErrorDescription    AS CHARACTER
        FIELD ErrorParameters   AS CHARACTER
        FIELD ErrorType            AS CHARACTER
        FIELD ErrorHelp            AS CHARACTER
        FIELD ErrorSubType      AS CHARACTER
    index seq ErrorSequence.

Parâmetros: