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
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt-processo-imp | rowid-processo-imp | rowid(processo-imp) |
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 "
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt-pedido-compr | rowid-pedido-compr |
...
rowid(pedido-compr) |
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"}
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt- |
...
emitente | rowid- |
...
emitente | rowid(emitente) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt- |
...
ordem- |
...
compra | rowid- |
...
ordem- |
...
compra | rowid( |
...
ordem-compra) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt- |
...
item | rowid- |
...
item | rowid(item) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt- |
...
embarque-imp | rowid- |
...
embarque-imp | rowid( |
...
embarque-imp) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt- |
...
prazo- |
...
compra | rowid- |
...
prazo- |
...
compra | rowid( |
...
prazo-compra) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt- |
...
historico- |
...
embarque | rowid- |
...
historico- |
...
embarque | rowid( |
...
historico-embarque) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt- |
...
desp- |
...
embarque | rowid- |
...
desp- |
...
embarque | rowid( |
...
desp-embarque) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt- |
...
declar- |
...
import | rowid- |
...
declar- |
...
import | rowid( |
...
declar-import) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt-declar- |
...
import- |
...
adic | rowid-declar- |
...
import- |
...
adic | rowid( |
...
declar-import-adic |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt- |
...
declar-import- |
...
ord | rowid- |
...
declar-import- |
...
ord | rowid( |
...
declar-import-ord) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt-histor- |
...
decla- |
...
import | rowid- |
...
histor-decla- |
...
import | rowid( |
...
histor-decla-import) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt-despes- |
...
decla- |
...
import | rowid-despes- |
...
decla- |
...
import | rowid( |
...
despes-decla-import) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt- |
...
docum- |
...
est | rowid- |
...
docum- |
...
est | rowid( |
...
docum-est) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt-item- |
...
doc- |
...
est | rowid- |
...
item-doc- |
...
est | rowid( |
...
item-doc-est) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt-item-doc- |
...
est- |
...
cex | rowid-item-doc- |
...
est- |
...
cex | rowid( |
...
item-doc-est-cex) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt- |
...
rat- |
...
lote | rowid- |
...
rat- |
...
lote | rowid( |
...
rat-lote) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt-docum- |
...
est- |
...
cex | rowid- |
...
docum-est- |
...
cex | rowid( |
...
docum-est-cex) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt- |
...
dupli- |
...
apagar | rowid- |
...
dupli- |
...
apagar | rowid( |
...
dupli-apagar) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt- |
...
dupli-apagar- |
...
cex | rowid- |
...
dupli-apagar- |
...
cex | rowid( |
...
dupli-apagar-cex) |
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.
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt- |
...
embarque- |
...
contab | rowid- |
...
embarque- |
...
contab | rowid( |
...
embarque- |
...
contab) |
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:
Bloco de código | ||||
---|---|---|---|---|
| ||||
{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. |