CE PLUS - Nota 002312
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 25/10/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:13:01
Descrição da Nota: EXIT PARA FATURA: COMPARTILHAMENTO DA VARIÁVEL V_RATVAL
Sintoma
Não existia variavel para atender a exit.
Solução
criada variavel para atender a exit
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02312 Data: 25/10/2006 Hora: 14:33:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02312
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00137
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00017 - 00001 - 6.0 - 00021 - TAXA DE CORVERSÃO PARA FATURA DE FRETE CLP
00501 - 00002 - 6.0 - 00022 - EXIT PARA ALTERAÇÃO DA MENSAGEM DE ASSOCIAÇÃO DA FATURA
00731 - 00003 - 6.0 - 00022 - PREENCHER O FABRICANTE DE ACORDO COM O INFORMADO NO PEDIDO DE COM
00965 - 00004 - 6.0 - 00022 - FABRICANTE NO PEDIDO DE COMPRAS (EKPO-MFRNR)
01256 - 00005 - 6.0 - 00023 - ERRO NAS FATURAS DE SERVIÇO, QUANDO GERAMOS A REMESSA PARA O MÓDU
01509 - 00006 - 6.0 - 00023 - TRATAR E AJUSTAR O CAMPO DTVENCTO (FATURA)
01530 - 00007 - 6.0 - 00023 - DECLARAÇÃO DE ESTRUTURA EM COMMON PART NA FATURA
01637 - 00008 - 6.0 - 00024 - DESENVOLVIMENTO ADICIONAL PARA QUE QUANDO A FATURA DE MERCADORIA
02063 - 00009 - 6.0 - 00024 - A MSG DE "ITENS COM VALOR ZERO" É EXIBIDA PARA TODOS ITENS DA FAT
02200 - 00010 - 6.0 - 00025 - TRATAMENTO PARA MOTIVO DE ESTORNO DA FB08 NA FATURA
----------------------------------------------------------------------------------------------------
EXIT PARA FATURA: COMPARTILHAMENTO DA VARIÁVEL V_RATVAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - FATURA - FAT001
COMPARTILHAMENTO DA VARIÁVEL V_RATVAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003TOP
REPS /PWS/MZYCI003X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003TOP
...
tc_ded TYPE TABLEVIEW USING SCREEN '0109',
tc_fat_parc TYPE TABLEVIEW USING SCREEN '0111',
tc_cambio TYPE TABLEVIEW USING SCREEN '0350',
tc_pg_ant TYPE TABLEVIEW USING SCREEN '0500'.
DATA:
* >> Início da exclusão:
v_status_s VALUE 1 ,
wa_cols TYPE cxtab_column,
v_trans(4) TYPE c,
v_kursf LIKE /pws/zycbe033-kursf,
erro_bi,
v_codeven LIKE /pws/zycbt011-codeven,
v_answer,
v_campo(40),
v_valor(10),
v_merc,
i_ebeln LIKE ekko-ebeln,
i_belnr LIKE bkpf-belnr,
i_bukrs LIKE bkpf-bukrs,
i_gjahr LIKE bkpf-gjahr,
v_dforn LIKE lfa1-name1,
v_dbanco LIKE lfa1-name1,
v_dmoeda LIKE tcurt-ltext,
v_dmoeda_emb LIKE tcurt-ltext,
v_condicao LIKE t052u-text1,
v_dtpfatura LIKE /pws/zycit009-descricao,
v_dfrpagto LIKE /pws/zycit017-descricao,
v_livre,
v_nitens TYPE i,
v_dif_saldo,
v_total LIKE /pws/zycie006-vltotal,
v_contabiliza,
v_existe_di,
v_data TYPE sy-datum,
v_total_erro,
v_ano LIKE bkpf-gjahr,
v_linha TYPE i,
v_vlme(16) TYPE c,
v_waers(5) TYPE c,
v_valmoed(41) TYPE c,
v_flag,
v_flag_fabric,
v_porigem LIKE /pws/zycie006-porigem,
v_paquis LIKE /pws/zycie006-paquis,
v_fabricante LIKE /pws/zycie003-fabric,
v_pais_origem LIKE t005t-landx,
v_pais_aquis LIKE t005t-landx,
v_cnpj(18) TYPE c,
v_texto1(13),
v_txtkey LIKE thead-tdname,
v_observ LIKE tline-tdline,
v_texto LIKE tline-tdline,
v_preenche TYPE c,
v_obser,
v_consiste(1) TYPE n,
v_exibe_fat,
v_taxa LIKE tcurr-ukurs,
v_waers_diferente,
v_moeda LIKE /pws/zycit003-waers,
v_chave(50) TYPE c,
v_lifnr LIKE /pws/zycie006-lifnr,
v_tot_desp LIKE /pws/zycit047-vldp,
v_salva(1) TYPE n,
v_linha47 TYPE i,
v_line TYPE i,
v_fabr_ant,
v_okcode LIKE sy-ucomm,
v_acto,
v_rateio,
v_input,
v_ded_saldo LIKE /pws/zycie130-montante,
v_ded_dev LIKE /pws/zycie130-montante,
v_m LIKE /pws/zycie006-codcambial,
v_nrfat LIKE /pws/zycie006-nrfat,
v_flag_agente,
v_exibe_ded,
v_nivel_tsr_desc LIKE t036t-ktext,
a_inicio VALUE 'X',
a_lfa LIKE lfa1-name1,
a_txjur(120),
a_ifina(120),
a_modpa(35),
a_desc(30),
a_motiv(120),
v_cobcambial,
rimc2 LIKE indx-srtfd VALUE 'NRBL',
v_nrbl LIKE /pws/zycie093-nrseqce,
v_total_parc LIKE /pws/zycit132-vlparc,
v_nrparc_ant LIKE /pws/zycie132-nrparc,
v_parcela,
v_pg_ant,
v_zprz3 LIKE t052-zprz2,
v_existe VALUE 'N',
v_contabilizou,
v_flag_sequencial,
v_total_desp(18),
v_refer,
v_flag_sele,
e_status,
v_sele_zycit003,
v_tot_deducoes LIKE /pws/zycie006-vltotal,
v_banco(3),
v_agencia(12),
v_index_det LIKE sy-tabix,
v_cont LIKE sy-tabix,
v_irrf,
v_importou,
v_val_plan_tot LIKE /pws/zycit003-netpr,
v_vlreal LIKE /pws/zycit001-netpr,
v_plan LIKE /pws/zycit001-netpr,
v_codint LIKE /pws/zycit129-codint,
v_existe_bol,
v_tot LIKE /pws/zycie003-netpr,
v_tot_ntgew LIKE /pws/zycit006-ntgew,
v_tot_frete LIKE /pws/zycit036-vlmov,
v_tot_vlseg LIKE /pws/zycit036-vlmov,
v_frcob(20),
v_bco_cob(35),
v_estorno,
v_flag_regime,
v_erro,
v_prof,
v_tabix LIKE sy-tabix,
vcalc LIKE /pws/zycie263-qtd_iten,
v_sisco1 LIKE /pws/zycit085-vlfob,
v_sisco2 LIKE /pws/zycit085-vlfob,
v_sisco3 LIKE /pws/zycit085-vlfob,
v_sisco_item LIKE /pws/zycit085-vlfob,
v_sisco_tot LIKE /pws/zycit085-vlfob,
v_stop,
vsaldo LIKE /pws/zycie263-qtd_iten,
v_flag_saldo,
v_idx LIKE sy-tabix,
tqtd LIKE /pws/zycie003-qtd_iten,
tvlr LIKE /pws/zycie003-vlreal,
tntg LIKE /pws/zycie003-ntgew,
tfre LIKE /pws/zycie003-vlfre_fat,
tseg LIKE /pws/zycie003-vlseg_fat,
v_ln TYPE i,
v_rev,
v_parametro,
v_tot_item LIKE /pws/zycie006-vlmerc,
v_total2 LIKE /pws/zycit006-vlmerc,
v_mark TYPE c ,
v_waers_par LIKE /pws/zycit006-waers ,
v_erro_par TYPE c ,
v_di TYPE c ,
v_tot_qtd LIKE /pws/zycit003-qtd_iten ,
v_name1 LIKE lfa1-name1 ,
v_serv TYPE c,
v_mr1m_ok,
v_mr8m_ok,
v_mbst_ok,
v_mb01_ok,
v_fbra_ok,
v_fb08_ok,
v_f_51_ok,
v_mensagem(220) TYPE c,
v_sede LIKE lfb1-lnrze,
v_totline TYPE n,
v_belnr LIKE bkpf-belnr,
v_congela,
vaux_belnr LIKE rbkp-belnr,
v_belnr2(10),
v_cpochv_fb08 LIKE /pws/zycie043-nrseq,
v_belnr_fb08 LIKE /pws/zycie043-belnr_f_51,
v_bukrs_fb08 LIKE /pws/zycie043-bukrs,
v_bldat_fb08 LIKE /pws/zycie043-dt_f_51,
v_docant_fb08 LIKE /pws/zycie043-belnr_f_51,
v_resp TYPE c,
v_erro1 TYPE c,
v_visualiza TYPE c,
v_operacao LIKE /pws/zyglt315-ktosl,
v_fornec,
v_land1 LIKE t001-land1,
v_res_dt_fat(01),
v_tot_fat LIKE /pws/zycie006-vltotal,
v_fat_limite LIKE /pws/zycie006-vltotal,
v_limite_min LIKE /pws/zycie006-vltotal,
v_limite_max LIKE /pws/zycie006-vltotal,
t_limite_min LIKE /pws/zycie006-vltotal,
v_par,
v_data_conv LIKE sy-datum,
v_ratval(40) TYPE c,
v_freteclp,
v_emissor LIKE ekpa-lifn2,
v_tot_aux LIKE /pws/zycie003-vlreal,
v_ttotal LIKE /pws/zycie006-vltotal,
v_dif LIKE /pws/zycie003-vlreal,
v_difp LIKE /pws/zycie003-vlreal ,
* << Fim da exclusão
* >> Início da inclusão:
wa_cols TYPE cxtab_column.
* << Fim da inclusão
* >> Início da exclusão:
v_vlfre LIKE /pws/zycie006-vlfre ,
v_vlseg LIKE /pws/zycie006-vlseg ,
v_vtot LIKE /pws/zycie006-vltotal,
v_forn,
v_tela_help LIKE sy-dynnr VALUE '0052',
v_kurst LIKE /pws/zycit000-kurst ,
v_nrseq LIKE /pws/zycit001-nrseq ,
v_awkey LIKE bkpf-awkey ,
v_existe_lc TYPE c ,
v_descfab(01) ,
v_recebi,
v_dtvencto LIKE /pws/zycie006-dtvencto.
DATA v_obrig.
* << Fim da exclusão
DATA: gv_subscreen_0050 TYPE sy-dynnr VALUE '0051',
gv_subscreen_0100_1 TYPE sy-dynnr,
gv_subscreen_0300_2 TYPE sy-dynnr.
CONSTANTS: BEGIN OF gc_subscreen,
prog TYPE sy-dynnr VALUE '0100',
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003X01
* >> Início da exclusão:
TABLES: /pws/zycie006.
* << Fim da exclusão
TABLES:
/pws/zycbt108,
/pws/zycit001,
/pws/zycbt115,
/pws/zycit006,
* >> Início da inclusão:
/pws/zycie006,
* << Fim da inclusão
/pws/zyglt334,
/pws/zycie006a,
/pws/zycbe108,
/pws/zycbe115,
/pws/zycie001,
...
...
v_sgtxt LIKE bseg-sgtxt ,
v_bktxt LIKE /pws/zycbt007-bktxt,
v_resposta .
DATA: v_monat TYPE bsis-monat,
v_subrc TYPE sy-subrc,
* >> Início da exclusão:
v_gjahr TYPE /pws/zycbe033-gjahr .
* << Fim da exclusão
* >> Início da inclusão:
v_gjahr TYPE /pws/zycbe033-gjahr ,
v_ratval(40) TYPE c.
DATA:
v_status_s VALUE 1 ,
v_trans(4) TYPE c,
v_kursf LIKE /pws/zycbe033-kursf,
erro_bi,
v_codeven LIKE /pws/zycbt011-codeven,
v_answer,
v_campo(40),
v_valor(10),
v_merc,
i_ebeln LIKE ekko-ebeln,
i_belnr LIKE bkpf-belnr,
i_bukrs LIKE bkpf-bukrs,
i_gjahr LIKE bkpf-gjahr,
v_dforn LIKE lfa1-name1,
v_dbanco LIKE lfa1-name1,
v_dmoeda LIKE tcurt-ltext,
v_dmoeda_emb LIKE tcurt-ltext,
v_condicao LIKE t052u-text1,
v_dtpfatura LIKE /pws/zycit009-descricao,
v_dfrpagto LIKE /pws/zycit017-descricao,
v_livre,
v_nitens TYPE i,
v_dif_saldo,
v_total LIKE /pws/zycie006-vltotal,
v_contabiliza,
v_existe_di,
v_data TYPE sy-datum,
v_total_erro,
v_ano LIKE bkpf-gjahr,
v_linha TYPE i,
v_vlme(16) TYPE c,
v_waers(5) TYPE c,
v_valmoed(41) TYPE c,
v_flag,
v_flag_fabric,
v_porigem LIKE /pws/zycie006-porigem,
v_paquis LIKE /pws/zycie006-paquis,
v_fabricante LIKE /pws/zycie003-fabric,
v_pais_origem LIKE t005t-landx,
v_pais_aquis LIKE t005t-landx,
v_cnpj(18) TYPE c,
v_texto1(13),
v_txtkey LIKE thead-tdname,
v_observ LIKE tline-tdline,
v_texto LIKE tline-tdline,
v_preenche TYPE c,
v_obser,
v_consiste(1) TYPE n,
v_exibe_fat,
v_taxa LIKE tcurr-ukurs,
v_waers_diferente,
v_moeda LIKE /pws/zycit003-waers,
v_chave(50) TYPE c,
v_lifnr LIKE /pws/zycie006-lifnr,
v_tot_desp LIKE /pws/zycit047-vldp,
v_salva(1) TYPE n,
v_linha47 TYPE i,
v_line TYPE i,
v_fabr_ant,
v_okcode LIKE sy-ucomm,
v_acto,
v_rateio,
v_input,
v_ded_saldo LIKE /pws/zycie130-montante,
v_ded_dev LIKE /pws/zycie130-montante,
v_m LIKE /pws/zycie006-codcambial,
v_nrfat LIKE /pws/zycie006-nrfat,
v_flag_agente,
v_exibe_ded,
v_nivel_tsr_desc LIKE t036t-ktext,
a_inicio VALUE 'X',
a_lfa LIKE lfa1-name1,
a_txjur(120),
a_ifina(120),
a_modpa(35),
a_desc(30),
a_motiv(120),
v_cobcambial,
rimc2 LIKE indx-srtfd VALUE 'NRBL',
v_nrbl LIKE /pws/zycie093-nrseqce,
v_total_parc LIKE /pws/zycit132-vlparc,
v_nrparc_ant LIKE /pws/zycie132-nrparc,
v_parcela,
v_pg_ant,
v_zprz3 LIKE t052-zprz2,
v_existe VALUE 'N',
v_contabilizou,
v_flag_sequencial,
v_total_desp(18),
v_refer,
v_flag_sele,
e_status,
v_sele_zycit003,
v_tot_deducoes LIKE /pws/zycie006-vltotal,
v_banco(3),
v_agencia(12),
v_index_det LIKE sy-tabix,
v_cont LIKE sy-tabix,
v_irrf,
v_importou,
v_val_plan_tot LIKE /pws/zycit003-netpr,
v_vlreal LIKE /pws/zycit001-netpr,
v_plan LIKE /pws/zycit001-netpr,
v_codint LIKE /pws/zycit129-codint,
v_existe_bol,
v_tot LIKE /pws/zycie003-netpr,
v_tot_ntgew LIKE /pws/zycit006-ntgew,
v_tot_frete LIKE /pws/zycit036-vlmov,
v_tot_vlseg LIKE /pws/zycit036-vlmov,
v_frcob(20),
v_bco_cob(35),
v_estorno,
v_flag_regime,
v_erro,
v_prof,
v_tabix LIKE sy-tabix,
vcalc LIKE /pws/zycie263-qtd_iten,
v_sisco1 LIKE /pws/zycit085-vlfob,
v_sisco2 LIKE /pws/zycit085-vlfob,
v_sisco3 LIKE /pws/zycit085-vlfob,
v_sisco_item LIKE /pws/zycit085-vlfob,
v_sisco_tot LIKE /pws/zycit085-vlfob,
v_stop,
vsaldo LIKE /pws/zycie263-qtd_iten,
v_flag_saldo,
v_idx LIKE sy-tabix,
tqtd LIKE /pws/zycie003-qtd_iten,
tvlr LIKE /pws/zycie003-vlreal,
tntg LIKE /pws/zycie003-ntgew,
tfre LIKE /pws/zycie003-vlfre_fat,
tseg LIKE /pws/zycie003-vlseg_fat,
v_ln TYPE i,
v_rev,
v_parametro,
v_tot_item LIKE /pws/zycie006-vlmerc,
v_total2 LIKE /pws/zycit006-vlmerc,
v_mark TYPE c ,
v_waers_par LIKE /pws/zycit006-waers ,
v_erro_par TYPE c ,
v_di TYPE c ,
v_tot_qtd LIKE /pws/zycit003-qtd_iten ,
v_name1 LIKE lfa1-name1 ,
v_serv TYPE c,
v_mr1m_ok,
v_mr8m_ok,
v_mbst_ok,
v_mb01_ok,
v_fbra_ok,
v_fb08_ok,
v_f_51_ok,
v_mensagem(220) TYPE c,
v_sede LIKE lfb1-lnrze,
v_totline TYPE n,
v_belnr LIKE bkpf-belnr,
v_congela,
vaux_belnr LIKE rbkp-belnr,
v_belnr2(10),
v_cpochv_fb08 LIKE /pws/zycie043-nrseq,
v_belnr_fb08 LIKE /pws/zycie043-belnr_f_51,
v_bukrs_fb08 LIKE /pws/zycie043-bukrs,
v_bldat_fb08 LIKE /pws/zycie043-dt_f_51,
v_docant_fb08 LIKE /pws/zycie043-belnr_f_51,
v_resp TYPE c,
v_erro1 TYPE c,
v_visualiza TYPE c,
v_operacao LIKE /pws/zyglt315-ktosl,
v_fornec,
v_land1 LIKE t001-land1,
v_res_dt_fat(01),
v_tot_fat LIKE /pws/zycie006-vltotal,
v_fat_limite LIKE /pws/zycie006-vltotal,
v_limite_min LIKE /pws/zycie006-vltotal,
v_limite_max LIKE /pws/zycie006-vltotal,
t_limite_min LIKE /pws/zycie006-vltotal,
v_par,
v_data_conv LIKE sy-datum,
v_freteclp,
v_emissor LIKE ekpa-lifn2,
v_tot_aux LIKE /pws/zycie003-vlreal,
v_ttotal LIKE /pws/zycie006-vltotal,
v_dif LIKE /pws/zycie003-vlreal,
v_difp LIKE /pws/zycie003-vlreal ,
v_vlfre LIKE /pws/zycie006-vlfre ,
v_vlseg LIKE /pws/zycie006-vlseg ,
v_vtot LIKE /pws/zycie006-vltotal,
v_forn,
v_tela_help LIKE sy-dynnr VALUE '0052',
v_kurst LIKE /pws/zycit000-kurst ,
v_nrseq LIKE /pws/zycit001-nrseq ,
v_awkey LIKE bkpf-awkey ,
v_existe_lc TYPE c ,
v_descfab(01) ,
v_recebi,
v_dtvencto LIKE /pws/zycie006-dtvencto,
v_obrig.
* << Fim da inclusão
DATA: END OF COMMON PART.