Sintoma

Criar ponto de exit para permitir alterar mapeamento da F-43 gerada no complemento do boleto,

pagamento de fatura de importação, onde o campo Base Desconto tem que ser preenchido com 0,00.

Solução

Incluir ponto de exit CBI004.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 03321 Data: 26/03/2007 Hora: 16:47:58

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 03321

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00156

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

03299  - 00001 - 6.0    - 00026  - COMPLEMENTO DO BOLETO - INSERIDA EXTI CBI003

----------------------------------------------------------------------------------------------------

EXIT COMPLEMENTO DO BOLETO - PAGAMENTO DE FATURA - F-43

----------------------------------------------------------------------------------------------------

Palavras Chave:

EXIT COMPLEMENTO DO BOLETO PAGAMENTO DE FATURA IMPORTAÇÃO F-43

BASE DESCONTO CONTABILIZA_IP CBI004

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCM110F01

REPS /PWS/MZYCM110TOP1

REPS /PWS/MZYGL110TOP

REPS /PWS/MZYGL110X01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCM110F01

...

    itab_zycbe033-c_newko = wa_zycbt119-lifnr.

  ENDIF.

  APPEND itab_zycbe033.

  IF NOT itab_zycmt020[] IS INITIAL.

    PERFORM contabiliza_item.

  ENDIF.

  LOOP AT itab_zycbt034.

    MESSAGE i016 WITH itab_zycbt034-descricao.

  ENDLOOP.

  IF itab_zycbt034 IS INITIAL.

* >> Início da inclusão: FORM FILL_DATE_F-63_IP

    v_syrepid = sy-repid.

    CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         EXPORTING

              i_codmod                = 'I'

              i_func                  = v_syrepid

         TABLES

              itab_zyglt100           = itab_zyglt100

         EXCEPTIONS

              i_codmod_nao_encontrado = 1

              i_func_nao_encontrado   = 2

              i_zexit_nao_encontrado  = 3

              OTHERS                  = 4.

    READ TABLE itab_zyglt100 WITH KEY zexit  = 'CBI004' BINARY SEARCH.

    IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario)

              IN PROGRAM (itab_zyglt100-programa).

    ELSE.

* << Fim da inclusão

    IF v_exec_f51 EQ 'X'.

      EXPORT v_exec_f51 TO MEMORY ID 'F51'.

      CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_51D'

           EXPORTING

                v_modo          = v_modo_bi

           TABLES

                t_dados         = itab_zycbe033

                t_campo         = itab_zycbt034

                t_zycbt032      = itab_zycbt032

                t_zycbt036      = itab_zycbt036

...

...

             TABLES

                  t_dados         = itab_zycbe033

                  t_item          = itab_item

                  t_zycbt032      = itab_zycbt032

             EXCEPTIONS

                  campo_em_branco = 1

                  periodo_fechado = 2

                  OTHERS          = 3.

      ENDIF.

    ENDIF.

* >> Início da inclusão: FORM FILL_DATE_F-63_IP

    ENDIF.

* << Fim da inclusão

    IF sy-subrc = 0.

      READ TABLE itab_zycbt032 WITH KEY tcode  = v_tcode

                                        tabela = '/PWS/ZYCBT031'

                                        cpochv = /pws/zycbe031-nrseq

                                        tpmsg  = 'S'.

      IF sy-subrc NE 0.

        READ TABLE itab_zycbt032 WITH KEY tcode  = 'F-51'

                                          tabela = '/PWS/ZYCBT031'

                                         cpochv = /pws/zycbe031-nrseq

                                          tpmsg  = 'S'.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCM110TOP1

...

DATA : BEGIN OF itab_zycbt112 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt112.

DATA : END OF itab_zycbt112.

DATA: itab_zyglt321

      TYPE STANDARD TABLE OF /pws/zyglt321

      WITH HEADER LINE.

DATA: v_tipo_prazo LIKE /pws/zyglt316-codaux1.

DATA: v_bukrs_p    LIKE /pws/zycbt145-bukrs_p,

      v_aux_ktosl  LIKE /pws/zyglt316-ktosl,

      v_aux_cod    LIKE /pws/zyglt316-codaux1.

* >> Início da exclusão:

DATA: BEGIN OF itab_zycmt020 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycmt020.

DATA: END OF itab_zycmt020.

* << Fim da exclusão

DATA: v_wrbtr          LIKE /pws/zycbe033-wrbtr,

      v_ult_pedi       LIKE ekpo-ebeln,

      v_ult_item       LIKE ekpo-ebelp,

      v_vlr_item       LIKE /pws/zycmt020-vlpago,

      v_tabix          LIKE sy-tabix.

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL110TOP

...

    /pws/zyglt343,

    /pws/zyglt340,

    rm06b,

    t16fe.

CONTROLS:

    tc_fatura TYPE TABLEVIEW USING SCREEN 0400,

    tc_banco  TYPE TABLEVIEW USING SCREEN 0900,

    tc_cont   TYPE TABLEVIEW USING SCREEN 0100,

    tc_dados  TYPE TABLEVIEW USING SCREEN 0101.

DATA: wa_t001w     LIKE t001w,

* >> Início da exclusão:

      wa_zycbt007  LIKE /pws/zycbt007,

* << Fim da exclusão

      wa_zycbt089  LIKE /pws/zycbt089,

      wa_zycbt011  LIKE /pws/zycbt011,

      wa_zycbt031a LIKE /pws/zycbe031,

      wa_zycbt118  LIKE /pws/zycbt118,

      wa_zycbt124  LIKE /pws/zycbt124,

      wa_zycet010  LIKE /pws/zycet010,

      wa_cols      TYPE cxtab_column,

      wa_zycbt048  LIKE /pws/zycbe048,

      wa_zycbt128  LIKE /pws/zycbt128,

      wa_zycbt129  LIKE /pws/zycbt129,

...

...

  v_index             TYPE p,

  v_indmod            TYPE p,

  v_paging_cntr       TYPE i VALUE 0,

  v_paging_cntr_old   TYPE i VALUE 0,

  v_totrec            LIKE rc29p-entry,

  v_index2            LIKE rc29p-entac,

  v_evento            LIKE /pws/zycbt011-codeven,

  v_total_flag        TYPE i VALUE 0,

  erro_bi             VALUE ' ',

  erro_bi_cl          VALUE ' ',

* >> Início da exclusão:

  v_modo_bi           LIKE  /pws/zycbt039-modo,

* << Fim da exclusão

  v_modo_bi_aux       LIKE  /pws/zycbt039-modo,

  v_campo(30),

  v_valor(20),

  v_valor2            LIKE /pws/zycbt031-vlme,

  i_belnr             LIKE bkpf-belnr,

  i_bukrs             LIKE bkpf-bukrs,

  i_gjahr             LIKE bkpf-gjahr,

  v_origem(1),

  v_erro_anulacomp,

  v_err_estapr,

...

...

      v_taxa_kursf       LIKE /pws/zycbt031-kursf,

      v_est_aprov,

      v_okfbra,

      v_resp,

      v_nrchave(60)   TYPE c,

      v_docto(60)     TYPE c,

      v_lifnr2(80)    TYPE c,

      v_total         LIKE /pws/zycbt064-vlme,

      v_total_mi      LIKE /pws/zycbt064-vlme,

      v_linhas        TYPE i,

* >> Início da exclusão:

      v_exec_f51(01)  TYPE c,

* << Fim da exclusão

      v_linha2        TYPE i,

      v_cod_fech_aux  LIKE /pws/zygle326-cod_fech,

      v_area          LIKE /pws/zycbt119-cod_area,

      v_codaux3 LIKE /pws/zyglt316-codaux3,

      v_subtela(4)   TYPE n,

      v_date2 LIKE   sy-datum,

      v_repid       LIKE sy-repid,

      v_cod_mod     TYPE c VALUE 'E',

      v_exit        LIKE /pws/zyglt100-zexit VALUE 'PBE002'.

DATA: v_dias(2)       TYPE c,

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYGL110X01

...

data: end of itab_zycbt141.

data: begin of itab_zycbt141_i occurs 0.

        include structure /pws/zycbt141.

data: end of itab_zycbt141_i.

data: begin of itab_zycat025 occurs 0.

        include structure /pws/zycat025.

data: end of itab_zycat025.

data: begin of itab_zycat024 occurs 0.

        include structure /pws/zycat024.

data: end of itab_zycat024.

* >> Início da inclusão:

DATA: BEGIN OF itab_zycmt020 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycmt020.

DATA: END OF itab_zycmt020.

DATA: wa_zycbt007    type /pws/zycbt007,

      v_modo_bi      type /pws/zycbt039-modo,

      v_exec_f51(01) TYPE c.

* << Fim da inclusão

DATA: ok_code      LIKE sy-ucomm,

      w_ok         LIKE ok_code,

      v_tcode(20)  TYPE c,

      v_cbi002(1)  type c.

DATA: END OF COMMON PART.