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
WHEN "processo-imp":U THEN DO: {include/i-epc201.i "Custom-Fields-tt-processo-imp"} END.
Layout Pedido de Compra
WHEN "pedido-compr":U THEN DO: {include/i-epc201.i "
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
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
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 CompraWHEN "ordem-compra":U THEN DO: {include/i-epc201.i "
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 Item
...
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ção
WHEN "embarque-imp":U THEN DO: {include/i-epc201.i "
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 Embarque
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 Embarque
...
Evento | Parâmetro | Valor do Parâmetro |
---|
Custom-Fields-tt- |
...
Layout Acompanhamento do Embarque
...
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 Embarque
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ção
...
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 DI
...
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
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
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
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
Evento | Parâmetro | Valor do Parâmetro |
---|---|---|
Custom-Fields-tt-docum- |
...
est | rowid- |
...
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.
...
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 Documento
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
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
WHEN "rat-lote":U THEN DO: {include/i-epc201.i "
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 Documento
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
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 Despesas
...
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
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 AS HANDLE p-ind-event AS CHAR 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-parameter = "#var-espec-teste1" event 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 Seq Fat: " + h-nrSeqFat:BUFFER-VALUE + "| Item: " + h-itCodigo:BUFFER-VALUE. teste 1". qttDados:GET-NEXT. END. END. END. RETURN "OK":U. |