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 Dados do Processo de Importação:

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-processo-imp	nr-proc-imp	Número do Processo de importação que será impresso;
Custom-Fields-tt-processo-imp	cod-estabel	Código do Estabelecimento do Processo de importação que será impresso;

Layout da Decl. Importação;

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-decla-import-ord	num-di-ems	Número da Declaração de Importação EMS que será impresso;
	num-ordem	Número da Ordem de Manutenção que será impresso;
	num-parcela	Número de parcelas que será impressa;

Layout do Pedido/Ordem de Compra

Evento	Parâmetro	Valor do Parâmetro
Custom-Fields-tt-pedido-compr	num-pedido	Número do Pedido de Compra que será impresso;

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

Campo	Tipo	Formato
nr-proc-imp	Character	X(12)
cod-itiner	Number	>>,>>9
dt-emissao	Date	99/99/9999
dt-implantacao	Date	99/99/9999
dt-autorizacao	Date	99/99/9999
cod-despachante	Number	>>>>>>>>9
cod-fabricante	Number	>>>>>>>>9
cod-exportador	Number	>>>>>>>>9
cod-consignatario	Number	>>>>>>>>9
cod-transportador	Number	>>>>>>>>9
nr-conhecimento	Character	X(18)
cod-estabel	Character	X(5)
carta-credito	Character	X(20)
narrativa	Character	X(2000)
cod-banco	Number	>>9
nr-rof	Character	X(20)
regime-import	Number	99
licenca-import	Character	X(20)
declaracao-import	Character	X(20)
via-transp	Number	9
estab-fisc	Character	X(5)
cod-incoterm	Character	X(3)
num-pedido	Number	>>>>>,>>9
contrato-cambio	Character	X(12)
cod-idioma	Character	X(12)
situacao	Number	>9
merc-orig	Character	X(20)
cod-agente	Number	>>>>>>>>9
cod-mensagem	Number	>>9
texto-mensag	Character	X(2000)
destino-documentacao	Character	X(40)
cdn-corretor-cambio-import	Number	>>>>>>>>9
cdn-despa-exter-import	Number	>>>>>>>>9
cdn-segurad-import	Number	>>>>>>>>9
cdn-corretor-import	Number	>>>>>>>>9
nome-estabel	Character	X(40)
des-itiner	Character	x(30)
nome-ab-transp	Character	X(12)
nome-corretor-cambio	Character	X(12)
nome-despa-exter	Character	X(12)
nome-segurad	Character	X(12)
nome-corretor	Character	X(12)
nome-despachante	Character	X(12)
nome-consignatario	Character	X(12)
nome-agente	Character	X(12)
des-via-transp	Character
des-situacao	Character

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

Campo	Tipo	Formato
num-di-ems	Number	>>>>>>>>9
cod-embarq	Character	x(16)
num-ordem	Number	zzzzz9,99
num-parcela	Number	>>>>,>>9
num-adic	Number	999
cod-estab	Character	x(5)
num-seq	Number	>>>>9
log-emite-fabrican	Number	yes/no
cdn-fabrican	Number	>>>>>>>>9
cdn-fornec	Number	>>>>>>>>9
cod-item	Character	x(16)
cdn-pais-proceden	Number	>>>,>>9
qtd-item	Number	>>>,>>>,>>9.99999
val-peso-liq	Number	>>>,>>>,>>9.99999
val-peso-brut-merc	Number	>>>,>>>,>>9.99999
val-peso-embal	Number	>>>,>>>,>>9.99999
idi-ind-pagto	Number	>9
cod-naladi-ncca	Character	x(10)
cdn-naladi-sist-harmon	Number	>>>>>>>9
cod-nbm	Character	x(10)
cod-aladi	Character	x(10)
cod-natur-operac	Character	x(06)
idi-tributac-impto-import	Number	>9
idi-tributac-ipi	Number	>9
idi-tributac-pis	Number	>9
idi-tributac-cofins	Number	>9
idi-tributac-icms	Number	>9
val-aliq-ipi	Number	>>9.9999
val-aliq-pis	Number	>>9.9999
val-aliq-cofins	Number	>>9.9999
val-aliq-icms	Number	>>9.9999
val-aliq-ii	Number	>>9.9999
cod-especif	Character	x(3900)
cod-tip-recip	Character	x(2)
qtd-capac-recip	Number	>>>,>>>,>>9.99999
val-perc-reduc-pis	Number	>>9.9999
val-perc-reduc-cofins	Number	>>9.9999
val-perc-reduc-icms	Number	>>9.9999
val-perc-reduc-impto-import	Number	>>9.9999
val-perc-reduc-ipi	Number	>>9.9999
log-suspens-impto-import	Number	Sim/Não
log-suspens-ipi-import	Number	Sim/Não
log-ipi-unid	Number	Sim/Não
log-pis-unid	Number	Sim/Não
log-cofins-unid	Number	Sim/Não
val-unit-cofins	Number	->>,>>>,>>>,>>9.99999999
val-unit-ii	Number	->>,>>>,>>>,>>9.99999999
val-unit-ipi	Number	->>,>>>,>>>,>>9.99999999
idi-metod-val	Number	99
cod-licenc-import	Character	X(20)
cod-unid-med-fornec	Character	xx
val-unit-pis	Number	->>,>>>,>>>,>>9.99999999
val-cub-tot	Number	->>,>>>,>>>,>>9.99999999
val-unit-icms	Number	->>,>>>,>>>,>>9.99999999
qtd-fornec	Number	>>>>,>>>,>>9.99999
cod-unid-medid-item	Character	X(02)
log-nota-ajust-import	Number	Sim/Não
nome-fabrican	Character	x(12)
des-modal-pagto	Character	x(120)
des-moeda	Character	x(12)
nome-corretor	Character	x(12)
nome-banco	Character	x(30)
nome-agent	Character	x(12)
des-moed-frete	Character	x(12)
des-moed-seguro	Character	x(12)
des-acresc-moed	Character	x(12)
des-moed-deduc	Character	x(12)

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

Campo	Tipo	Formato
num-pedido	Number	>>>>>,>>9
num-ped-benef	Number	>>>>>,>>9
natureza	Number	>9
data-pedido	Date	99/99/9999
situacao	Number	>9
cod-emitente	Number	>>>>>>>>9
end-entrega	Character	x(5)
end-cobranca	Character	x(5)
frete	Number	>9
cod-transp	Number	>>,>>9
via-transp	Number	9
cod-cond-pag	Number	>>>9
responsavel	Character	X(12)
cod-mensagem	Number	>>9
impr-pedido	Number	Sim/Não
comentarios	Character	x(2000)
mot-elimina	Character	x(2000)
nome-ass	Character	x(30)
cargo-ass	Character	x(30)
emergencial	Number	Sim/Não
nr-prox-ped	Number	>>>>>,>>9
contr-forn	Number	Sim/Não
nr-processo	Number	999,999
compl-entrega	Character	x(7)
l-tipo-ped	Number	>9
l-classificacao	Number	>9
l-ind-prof	Number	Sim/Não
i-importador	Number	>>>>>>>>9
i-situacao	Number	>9
c-cod-tabela	Character	x(10)
i-moeda	Number	9
i-cod-forma	Number	999999
i-cod-via	Number	9999
c-prazo	Character	x(20)
c-descr-merc	Character	x(53)
i-cod-porto	Number	999999
de-vl-fob	Number	>>>>>,>>>,>>9.9999
c-embalagem	Character	x(30)
c-observacao	Character	x(75)
i-exportador	Number	>>>>>>>>9
desc-forma	Character	x(36)
desc-via	Character	x(20)
de-vl-frete-i	Number	>>>>,>>9.99
ind-orig-entrada	Number	>9
ind-via-envio	Number	>9
nro-proc-entrada	Number	>>>>>>>>9
nro-proc-saida	Number	>>>>>>>>9
nro-proc-alteracao	Number	>>>>>>>>9
cod-maq-origem	Number	999
num-processo-mp	Number	>>>>>>>>9
num-id-documento	Number	999999999
nr-contrato	Number	>>>>>>>>9
cod-estabel	Character	x(5)
check-sum	Character	x(20)
gera-edi	Number	Sim/Nao
cod-estab-gestor	Character	x(5)
cod-emit-terc	Number	>>>>>>>>9
nr-ped-venda	Number	>>>,>>>,>>9
cod-entrega	Character	x(12)
endereco_text	Character	char(2000)
endereco	Character	x(40)
bairro	Character	x(30)
cidade	Character	x(25)
estado	Character	x(4)
pais	Character	x(20)
cep	Character	x(12)
jurisdicao	Character	x(20)
local-entrega	Number	9
nome-estabel	Character	X(40)
nome-ab-terc	Character	X(12)
nome-ab-transp	Character	X(12)
des-cond-pag	Character	x(30)
des-via-transp	Character

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 7

Nova versão 8

Chave

Customização via EPC IM0730

Visão Geral do Programa

Árvore de páginas

Histórico da Página

Versões comparadas

Versão antiga 7

Nova versão 8

Chave

Customização via EPC IM0730

Visão Geral do Programa