Histórico da Página

...

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-<prefixo_variável_layout>-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“#<prefixo_variável_layout>-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-pi-var-espec-cod-estabel e a variável correspondente ao valor que será substituído #var#pi-var-espec-cod-estabel.

O tratamento das variáveis “#lit-pi-var-espec-cod-estabel” e “#var“#pi-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.

A upc deverá ser cadastrada no menu para o programa IM0730a.

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

• Layout Processo de Importação

Variável literal específica deve iniciar com: #lit-pi-var-espec<variável>

Variável de conteúdo deve iniciar com: #pi-var-espec<variável>

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

...

Variável literal específica deve iniciar com: #lit-pc-var-espec<variável>

Variável de conteúdo deve iniciar com: #pc-var-espec<variável>

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

...

...

Variável literal específica deve iniciar com: #lit-for-var-espec<variável>

Variável de conteúdo deve iniciar com: #for-var-espec<variável>

• Layout Ordem de Compraprocesso-imp)Layout Fornecedor
  WHEN "emitente":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-emitente"} END.

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-oc-var-espec<variável>

Variável de conteúdo deve iniciar com: #oc-var-espec<variável>

• Layout Itemimp)

  Layout Ordem de Compra

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

...

...

Variável literal específica deve iniciar com: #lit-it-var-espec<variável>

Variável de conteúdo deve iniciar com: #it-var-espec<variável>

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

...

...

...

Variável literal específica deve iniciar com: #lit-emb-var-espec<variável>

Variável de conteúdo deve iniciar com: #emb-var-espec<variável>

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

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-par-var-espec<variável>

Variável de conteúdo deve iniciar com: #par-var-espec<variável>

• Layout Acompanhamento do Embarqueimp)Layout Parcelas/Ordens do Embarque
  WHEN "prazo-compra":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-prazo-compra"} END.

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-he-var-espec<variável>

Variável de conteúdo deve iniciar com: #he-var-espec<variável>

• Layout Despesas do Embarqueimp)

  Layout Acompanhamento do Embarque

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

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-de-var-espec<variável>

Variável de conteúdo deve iniciar com: #de-var-espec<variável>

• Layout Declaração de Importaçãoimp)Layout Despesas do Embarque
  WHEN "desp-embarque":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-desp-embarque"} END.

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-di-var-espec<variável>

Variável de conteúdo deve iniciar com: #di-var-espec<variável>

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

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-adi-var-espec<variável>

Variável de conteúdo deve iniciar com: #adi-var-espec<variável>

• Layout Ordens da DI":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-declar-import-adic"} END.

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-odi-var-espec<variável>

Variável de conteúdo deve iniciar com: #odi-var-espec<variável>

• Layout Acompanhamento da DI":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-declar-import-ord"} END.

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-hdi-var-espec<variável>

Variável de conteúdo deve iniciar com: #hdi-var-espec<variável>

• Layout Despesas da DI":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-histor-decla-import"} END.

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-ddi-var-espec<variável>

Variável de conteúdo deve iniciar com: #ddi-var-espec<variável>

• Layout Documentos de Entrada":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-despes-decla-import"} END.

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-doc-var-espec<variável>

Variável de conteúdo deve iniciar com: #doc-var-espec<variável>

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

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-itd-var-espec<variável>

Variável de conteúdo deve iniciar com: #itd-var-espec<variável>

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

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-did-var-espec<variável>

Variável de conteúdo deve iniciar com: #did-var-espec<variável>

• Layout Movimentações de Estoque":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-item-doc-est-cex"} END.

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-lot-var-espec<variável>

Variável de conteúdo deve iniciar com: #lot-var-espec<variável>

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

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-des-var-espec<variável>

Variável de conteúdo deve iniciar com: #des-var-espec<variável>

• Layout Duplicatas Fornecedor Mercadoria":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-docum-est-cex"} END.

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-dup-var-espec<variável>

Variável de conteúdo deve iniciar com: #dup-var-espec<variável>

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

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-dpd-var-espec<variável>

Variável de conteúdo deve iniciar com: #dpd-var-espec<variável>

• Layout Material em Trânsito":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-dupli-apagar-cex"} END.

...

...

...

...

...

...

Variável literal específica deve iniciar com: #lit-mt-var-espec<variável>

Variável de conteúdo deve iniciar com: #mt-var-espec<variável>

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

{include/i-epc200.i1} /* Definição tt-epc         */
DEFINE VARIABLEINPUT h-ttDados    AS HANDLE  PARAM    NO-UNDO.
DEFINE VARIABLE bf-ttDados p-ind-event  AS HANDLECHAR      NO-UNDO.
DEFINE VARIABLEINPUT-OUTPUT qttDadosPARAM TABLE    AS HANDLE      NO-UNDO.
DEFINE VARIABLE h-codEstabel AS HANDLE      NO-UNDO.for tt-epc.

DEFINE VARIABLE h-serie      c-literal AS HANDLECHARACTER      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
IF p-ind-event = "Custom-literals":U THEN DO:

    FOR EACH tt-epc 
        WHERE tt-epc.cod-event = "Custom-literals") THEN DO:U

     CREATE tt-epc.
    ASSIGNAND tt-epc.cod-eventparameter = "Custom-literals"
literal":U:

         IF  tt-epc.codval-parameter = "#lit-doc-var-espec-teste1" THEN
           tt-epc.val-parameter ASSIGN c-literal = "LitLiteral teste 1Teste":U.

    CREATE tt-epcEND.
    ASSIGNIF tt-epc.cod-event = "Custom-literals"
  c-literal <> "":U THEN DO:
        CREATE tt-epc.cod-parameter = "#lit-var-espec-teste2"
        ASSIGN   tt-epc.valcod-parameterevent = "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.

#lit-doc-var-espec-teste1"
       IF AVAIL tt-epc THEN DO:

        ASSIGN h-ttDados = WIDGET-HANDLE(tt-epc.val-parameter) = NOc-ERRORliteral.

        IF ERROR-STATUS:ERROR THEN
            NEXTEND.
END.

        CREATE BUFFER bf-ttDados FOR TABLE h-ttDados BUFFER-NAME "tt-dados-nota".
        CREATE QUERY qttDados.
        qttDados:SET-BUFFERS(bf-ttDados).IF p-ind-event = "Custom-Fields-tt-docum-est" THEN DO:

    FIND FIRST   IF VALID-HANDLE(qttDados) THENtt-epc
            ASSIGN qttDados:FORWARD-ONLY = YES.

        qttDados:QUERY-PREPARE("FOR EACH tt-dados-nota").WHERE tt-epc.cod-event = p-ind-event
        qttDados:QUERY-OPEN.
        qttDados:GET-FIRST.

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

            ASSIGN h-codEstabel       = bf-ttDados:BUFFER-FIELD("cod-estabel") AND tt-epc.cod-parameter = "rowid-docum-est" NO-LOCK NO-ERROR.
    IF               h-serie  AVAIL tt-epc THEN DO:
        FIND FIRST = bf-ttDados:BUFFER-FIELD("serie")docum-est
                   h-nrNotaFis       WHERE ROWID(docum-est) = bf-ttDados:BUFFER-FIELD("nr-nota-fis")
                   h-nrSeqFat         = bf-ttDados:BUFFER-FIELD("nr-seq-fat")TO-ROWID(tt-epc.val-parameter) NO-LOCK NO-ERROR.
        IF           h-itCodigo         = bf-ttDados:BUFFER-FIELD("it-codigo").
      AVAIL docum-est THEN DO:
    
        CREATE tt-epc.
        ASSIGN tt-epc.cod-event = "Custom-Fields-tt-dados-notas"
                ASSIGN tt-epc.cod-parameterevent = "#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.
p-ind-event
        
        CREATE tt-epc.
        ASSIGN tt-epc.cod-eventparameter = "Custom#doc-Fieldsvar-ttespec-dados-notasteste1"
               tt-epc.cod-parameter = "#var-espec-teste2"
               tt-epc.val-parameter = "NrVAR Seqteste Fat: " + h-nrSeqFat:BUFFER-VALUE + "| Item: " + h-itCodigo:BUFFER-VALUE.

1".
            qttDados:GET-NEXT.
        END.

    END.

END.

RETURN "OK":U.