Histórico da Página

...

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

• Layout

  Dados do

  Processo de Importação

  :

...

• WHEN "processo-imp":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-processo-imp

...

Número do Processo de importação que será impresso;

...

Código do Estabelecimento do Processo de importação que será impresso;

• Layout da Decl. Importação;

...

• "} END.
  

• Layout Pedido de Compra
  WHEN "pedido-compr":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-

...

• pedido-compr"} END.

  &CodParameter='"rowid-' + c-tabela + '"'
  &ValueParameter="c-rowid"}

  
  
  

• Layout Emitente
  WHEN "emitente":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-emitente"} END.

• Layout Ordem de Compra

  WHEN "ordem-compra":U THEN DO: {include/i-epc201.i "

• Layout do Pedido/Ordem de Compra

...

• Custom-Fields-tt-

...

Definição da temp-table tt-processo-imp:

...

• ordem-compra"} END.

• Layout Item
  WHEN "item":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-item"} END.

• Layout Embarque de Importação
  WHEN "embarque-imp":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-embarque-imp"} END.

• Layout Parcelas
  WHEN "prazo-compra":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-prazo-compra"} END.

• Layout Acompanhamento do Embarque

  WHEN "historico-embarque":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-historico-embarque"} END.

• Layout Despesas do Embarque
  WHEN "desp-embarque":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-desp-embarque"} END.

• Layout Declaração de Importação
  WHEN "declar-import":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-declar-import"} END.

• Layout Adições da Declaração de Importação
  WHEN "declar-import-adic":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-declar-import-adic"} END.

• Layout Ordens da Declaração de Importação
  WHEN "declar-import-ord":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-declar-import-ord"} END.

• Layout Acompanhamento da Declaração de Importação
  WHEN "histor-decla-import":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-histor-decla-import"} END.

• Layout Despesas da Declaração de Importação
  WHEN "despes-decla-import":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-despes-decla-import"} END.

• Layout Documentos de Entrada
  WHEN "docum-est":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-docum-est"} END.

• Layout Itens do Documento de Entrada
  WHEN "item-doc-est":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-item-doc-est"} END.

• Layout Despesas de Importação do Item do Documento
  WHEN "item-doc-est-cex":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-item-doc-est-cex"} END.

• Layout Movimentações de Estoque
  WHEN "rat-lote":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-rat-lote"} END.

• Layout Despesas de Importação do Documento
  WHEN "docum-est-cex":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-docum-est-cex"} END.

• Layout Duplicatas
  WHEN "dupli-apagar":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-dupli-apagar"} END.

• Layout Duplicatas das Despesas de Importação
  WHEN "dupli-apagar-cex":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-dupli-apagar-cex"} END.

...

Definição da temp-table tt-decla-import-ord:

...

Definição da temp-table tt-pedido-compr:

...

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

...