Histórico da Página
...
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 ExportaçãoImportação:
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
{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.
|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas