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.
...
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 Compra
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
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-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-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
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 VARIABLE h-ttDadosINPUT 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 HANDLE CHARACTER 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 ASSIGN tt-epc.val-parameterc-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"). qttDados:QUERY-OPEN. WHERE tt-epc.cod-event = p-ind-event AND qttDados:GETtt-FIRST. DO WHILE NOT(qttDados:QUERY-OFF-END): ASSIGN h-codEstabel = bf-ttDados:BUFFER-FIELD("cod-estabel") 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. CREATE tt-epc. = p-ind-event 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. qttDados:GET-NEXTteste 1". END. END. END. RETURN "OK":U. |