CE PLUS - Nota 009871
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Request
Data/Hora da Publicação: 25/02/2010 00:00:00
Data/Hora Última Alteração: 10/03/2010 11:37:31
Descrição da Nota: APRENSETAÇÃO DE CAMPOS NO DRAFT DA FATURA
Sintoma
Não esta apresentando os campos Nº Declaração, NCM, Nº LI
Solução
Não esta apresentando os campos Nº Declaração, NCM, Nº LI
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09871 Data: 25/02/2010 Hora: 12:54:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09871
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00010
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
APRENSETAÇÃO DE CAMPOS NO DRAFT DA FATURA
----------------------------------------------------------------------------------------------------
Palavras Chave:
APRENSETAÇÃO - CAMPOS - DRAFT - FATURA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR051
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR051
...
v_nomeneg LIKE j_1bbranch-name,
v_reqcompra LIKE ekpo-banfn,
v_bezei LIKE t005u-bezei,
v_landx LIKE t005t-landx,
v_remark LIKE adrct-remark,
v_bezei_fav LIKE t005u-bezei,
v_landx_fav LIKE t005t-landx,
v_remark_fav LIKE adrct-remark,
v_montante LIKE /pws/zycit130-montante,
v_parc2(5) TYPE c,
* >> Início da exclusão:
v_di LIKE /pws/zycit085-nrseqdi,
* << Fim da exclusão
* >> Início da inclusão:
v_di LIKE /pws/zycit085-nrdi,
* << Fim da inclusão
v_usuario LIKE bkpf-usnam,
v_agente(2) TYPE n,
v_titulo(74) TYPE c,
v_titulo2(35) TYPE c,
v_total LIKE /pws/zycit126-valor,
v_descmoeda LIKE tcurt-ltext,
v_pagno(2) TYPE n,
v_lipg(6) TYPE n,
v_contpg(3) TYPE n,
v_descforn(35) TYPE c,
...
...
AND bland EQ itab_bnka_fav-provz. "#EC CI_GENBUFF
SELECT SINGLE landx FROM t005t
INTO v_landx_fav
WHERE land1 EQ itab_bnka_fav-banks. "#EC CI_GENBUFF
SELECT SINGLE remark FROM adrct
INTO v_remark_fav
WHERE addrnumber EQ itab_bnka_fav-adrnr.
ELSE.
v_flag = 1.
ENDIF.
* >> Início da exclusão: FORM SELECIONA_DADOS
IF itab_zycit006-gpcambio EQ '90'.
SELECT SINGLE nrseqdi FROM /pws/zycit085
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
SELECT SINGLE nrdi FROM /pws/zycit085
* << Fim da inclusão
INTO v_di
WHERE nrbl EQ itab_zycit006-nrseqce. "#EC CI_NOFIELD
* >> Início da exclusão: FORM SELECIONA_DADOS
ENDIF.
IF itab_zycit006-gpcambio EQ '53' OR itab_zycit006-gpcambio EQ '89'.
* << Fim da exclusão
SELECT * FROM /pws/zycit078
INTO TABLE itab_zycit078
WHERE nrseq EQ itab_zycit263-nrseq. "#EC CI_NOFIELD
* >> Início da exclusão: FORM SELECIONA_DADOS
ENDIF.
* << Fim da exclusão
SELECT * FROM /pws/zycit126
INTO TABLE itab_zycit126
WHERE nrseq EQ itab_zycit006-nrseq.
IF NOT sy-subrc <> 0.
LOOP AT itab_zycit126.
v_agente = v_agente + 1.
ENDLOOP.
SELECT * FROM bnka
INTO TABLE itab_bnka_ag
WHERE bankl EQ itab_zycit126-chave. "#EC CI_NOFIRST
...
...
019 itab_impr-waers, 022 ' - ', 025 v_descmoeda, 140 '|'.
WRITE: /001 '|', 004 text-033, 070 text-034, itab_impr-vltotal CURRENCY
itab_impr-waers, 140 '|'.
LOOP AT itab_deducao.
WRITE: /001 '|', 070 itab_deducao-descdedu, ':', itab_deducao-vldedu
CURRENCY itab_deducao-waers, 140 '|'.
ENDLOOP.
WRITE: /001 '|', 070 text-037, v_montante CURRENCY itab_deducao-waers,
140 '|'.
ULINE.
* >> Início da exclusão: FORM IMPRESSAO
IF itab_zycit006-gpcambio EQ '90'.
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRESSAO
IF NOT v_di IS INITIAL.
* << Fim da inclusão
WRITE: /001 '|', 004 text-038, 140 '|'.
WRITE: /001 '|', 004 v_di, 140 '|'.
ULINE.
ENDIF.
IF v_agente <> 0.
DATA: v_conta(22) TYPE c,
v_valor(15) TYPE c.
IF itab_agente-conta IS INITIAL OR itab_agente-digconta IS INITIAL.
MOVE itab_agente-conta TO v_conta.
ELSE.
...
...
v_total = v_total + itab_zycit126-valor.
ENDLOOP.
WRITE: /001 '|', 070 text-047, 092 v_total CURRENCY itab_agente-waers,
140 '|'.
ENDIF.
ELSE.
WRITE: /001 '|', 140 '|'.
WRITE: /001 '|', 004(138) text-048 CENTERED, 140 '|'.
ENDIF.
ULINE.
* >> Início da exclusão: FORM IMPRESSAO
IF itab_zycit006-gpcambio EQ '53' OR itab_zycit006-gpcambio EQ '89'.
* << Fim da exclusão
SORT itab_item BY ebelp.
* >> Início da inclusão: FORM IMPRESSAO
IF NOT itab_item-li IS INITIAL.
* << Fim da inclusão
WRITE: /001 '|', 004 text-049, 049 text-050, 094 text-051, 140 '|'.
* >> Início da inclusão: FORM IMPRESSAO
ELSE.
WRITE: /001 '|', 004 text-049, 049 text-050, 140 '|'.
ENDIF.
* << Fim da inclusão
WRITE: /001 '|', 140 '|'.
LOOP AT itab_item.
* >> Início da inclusão: FORM IMPRESSAO
IF NOT itab_item-li IS INITIAL.
* << Fim da inclusão
WRITE: /001 '|', 004 itab_item-ebelp, 049 itab_item-ncm,
094 itab_item-li, 140 '|'.
* >> Início da inclusão: FORM IMPRESSAO
ELSE.
WRITE: /001 '|', 004 itab_item-ebelp, 049 itab_item-ncm, 140 '|'.
ENDIF.
* << Fim da inclusão
ENDLOOP.
ULINE.
* >> Início da exclusão: FORM IMPRESSAO
ENDIF.
* << Fim da exclusão
PERFORM impr_observacao.
ULINE.
WRITE: /001 '|', 004 text-053, 140 '|'.
ULINE.
WRITE: /001 '|', 004 text-054, 039 '|', 040 text-055, 075 '|',
...