Customização via EPC IM0730

Visão Geral do Programa

Caso haja necessidade de realizar implementação para impressão de alguma outra informação que não esteja disponível na lista de variáveis da planilha Excel, é possível realizar a customização por intermédio de EPC’s em cada layout de informações. Por exemplo: Processo de Importação, Decl. Importação, Pedido/Ordem de Compra, etc.

Para cada um dos layout’s acima mencionados, existe um ponto EPC no qual é possível realizar o tratamento para a literal (rótulo e/ou label) a ser substituída, assim como realizar o tratamento para a variável específica correspondente àquela literal.

Variáveis Literais Específicas:

Para que seja possível implementar um tratamento via EPC para as literais das variáveis específicas a serem substituídas em tempo de impressão do relatório, elas deverão seguir um padrão, obrigatoriamente iniciar com “#lit-var-espec”.

Variáveis Específicas:

Para que seja possível implementar um tratamento via EPC para as variáveis específicas a serem substituídas em tempo de impressão do relatório, elas deverão seguir um padrão, obrigatoriamente iniciar com “#var-espec”.

Exemplo: Customizar através de ponto EPC o layout referente às Informações do Processo de Importação para que seja impresso o código do Estabelecimento formatado:

No arquivo de layout padrão, no bloco de informações referentes ao Processo de importação, inserir nova coluna e na linha referente às literais, inserir a variável #lit-var-espec-cod-estabel e a variável correspondente ao valor que será substituído #var-espec-cod-estabel.

O tratamento das variáveis “#lit-var-espec-cod-estabel” e “#var-espec-cod-estabel” deverá ser realizado no programa customizado desenvolvido pelo cliente e chamado pelo ponto EPC correspondente ao bloco de Informações do Processo de importação, assim como tratamento das literais desta variável.

Abaixo estão descritos todos os Pontos de EPC disponibilizados para o Relatório Gerencial de Importação.

• 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)

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

{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.