Histórico da Página

...

Layout Processo de Importação
Evento Parâmetro Valor do Parâmetro
Custom-Fields-tt-processo-imp rowid-processo-imp rowid(processo-imp)

Layout Pedido de Compra

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-pedido-compr	rowid-pedido-compr	rowid(pedido-compr)

Layout Fornecedor

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-emitente	rowid-emitente	rowid(emitente)

Layout Ordem de Compra

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-ordem-compra	rowid-ordem-compra	rowid(ordem-compra)

a

Layout Item

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-item	rowid-item	rowid(item)

Layout Embarque de Importação

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-embarque-imp	rowid-embarque-imp	rowid(embarque-imp)

Layout Parcelas/Ordens do Embarque

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-prazo-compra	rowid-prazo-compra	rowid(prazo-compra)

Layout Acompanhamento do Embarque

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-historico-embarque	rowid-historico-embarque	rowid(historico-embarque)

Layout Despesas do Embarque

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-desp-embarque	rowid-desp-embarque	rowid(desp-embarque)

Layout Declaração de Importação

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-declar-import	rowid-declar-import	rowid(declar-import)

Layout Adições da DI

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-declar-import-adic	rowid-declar-import-adic	rowid(declar-import-adic

Layout Ordens da DI

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-declar-import-ord	rowid-declar-import-ord	rowid(declar-import-ord)

Layout Acompanhamento da DI

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-histor-decla-import	rowid-histor-decla-import	rowid(histor-decla-import)

Layout Despesas da DI

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-despes-decla-import	rowid-despes-decla-import	rowid(despes-decla-import)

Layout Documentos de Entrada

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-docum-est	rowid-docum-est	rowid(docum-est)

Layout Itens do Documento

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-item-doc-est	rowid-item-doc-est	rowid(item-doc-est)

Layout Despesas Item Documento

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-item-doc-est-cex	rowid-item-doc-est-cex	rowid(item-doc-est-cex)

Layout Movimentações de Estoque

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-rat-lote	rowid-rat-lote	rowid(rat-lote)

Layout Despesas do Documento

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-docum-est-cex	rowid-docum-est-cex	rowid(docum-est-cex)

Layout Duplicatas Fornecedor Mercadoria

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-dupli-apagar	rowid-dupli-apagar	rowid(dupli-apagar)

Layout Duplicatas de Despesas

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-dupli-apagar-cex	rowid-dupli-apagar-cex	rowid(dupli-apagar-cex)

Exemplo de EPC para utilização no Relatório Gerencial de Importação:

Bloco de código

title	Veja aqui o código fonte de exemplo
collapse	true

{include/i-epc200.i1} /* Definição tt-epc         */
DEFINE VARIABLE h-ttDados    AS HANDLE      NO-UNDO.
DEFINE VARIABLE bf-ttDados   AS HANDLE      NO-UNDO.
DEFINE VARIABLE qttDados     AS HANDLE      NO-UNDO.
DEFINE VARIABLE h-codEstabel AS HANDLE      NO-UNDO.
DEFINE VARIABLE h-serie      AS HANDLE      NO-UNDO.
DEFINE VARIABLE h-nrNotaFis  AS HANDLE      NO-UNDO.
DEFINE VARIABLE h-nrSeqFat   AS HANDLE      NO-UNDO.
DEFINE VARIABLE h-itCodigo   AS HANDLE      NO-UNDO.

DEFINE INPUT        PARAM p-ind-event  AS CHAR NO-UNDO.
DEFINE INPUT-OUTPUT PARAM TABLE for tt-epc.

IF (p-ind-event = "Custom-literals") THEN DO:

    CREATE tt-epc.
    ASSIGN tt-epc.cod-event = "Custom-literals"
           tt-epc.cod-parameter = "#lit-var-espec-teste1"
           tt-epc.val-parameter = "Lit teste 1".

    CREATE tt-epc.
    ASSIGN tt-epc.cod-event = "Custom-literals"
           tt-epc.cod-parameter = "#lit-var-espec-teste2"
           tt-epc.val-parameter = "Lit teste 2".

END.
ELSE IF (p-ind-event = "Custom-Fields-tt-dados-notas") THEN DO:

    /* Handle ttDados */
    FIND FIRST tt-epc
        WHERE tt-epc.cod-parameter = "Handle_tt-dados-nota":u NO-ERROR.

    IF AVAIL tt-epc THEN DO:

        ASSIGN h-ttDados = WIDGET-HANDLE(tt-epc.val-parameter) NO-ERROR.

        IF ERROR-STATUS:ERROR THEN
            NEXT.

        CREATE BUFFER bf-ttDados FOR TABLE h-ttDados BUFFER-NAME "tt-dados-nota".
        CREATE QUERY qttDados.
        qttDados:SET-BUFFERS(bf-ttDados).

        IF VALID-HANDLE(qttDados) THEN
            ASSIGN qttDados:FORWARD-ONLY = YES.

        qttDados:QUERY-PREPARE("FOR EACH tt-dados-nota").
        qttDados:QUERY-OPEN.
        qttDados:GET-FIRST.

        DO WHILE NOT(qttDados:QUERY-OFF-END):

            ASSIGN h-codEstabel       = bf-ttDados:BUFFER-FIELD("cod-estabel") 
                   h-serie            = bf-ttDados:BUFFER-FIELD("serie")
                   h-nrNotaFis        = bf-ttDados:BUFFER-FIELD("nr-nota-fis")
                   h-nrSeqFat         = bf-ttDados:BUFFER-FIELD("nr-seq-fat")
                   h-itCodigo         = bf-ttDados:BUFFER-FIELD("it-codigo").
          
        CREATE tt-epc.
        ASSIGN tt-epc.cod-event = "Custom-Fields-tt-dados-notas"
               tt-epc.cod-parameter = "#var-espec-teste1"
               tt-epc.val-parameter = "Estabelecimento: " + h-codEstabel:BUFFER-VALUE + "| Série: " + h-serie:BUFFER-VALUE + "| Nr Nota Fis: " + h-nrNotaFis:BUFFER-VALUE.
    
        CREATE tt-epc.
        ASSIGN tt-epc.cod-event = "Custom-Fields-tt-dados-notas"
               tt-epc.cod-parameter = "#var-espec-teste2"
               tt-epc.val-parameter = "Nr Seq Fat: " + h-nrSeqFat:BUFFER-VALUE + "| Item: " + h-itCodigo:BUFFER-VALUE.

            qttDados:GET-NEXT.
        END.

    END.

END.

RETURN "OK":U.

...

Árvore de páginas

Versões comparadas

Versão antiga 20

Nova versão 21

Chave