Sintoma

Complemento do Boleto - Inserida EXTI CBI003

Solução

Complemento do Boleto - Inserida EXTI CBI003

Informações Complementares

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

Nota Número 03299 Data: 22/03/2007 Hora: 17:22:12

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

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

Nota Número              : 03299

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

COMPLEMENTO DO BOLETO - INSERIDA EXTI CBI003

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

Palavras Chave:

COMPLEMENTO DO BOLETO - INSERIDA EXTI CBI003

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

Objetos da nota:

REPS /PWS/MZYCM110F01

REPS /PWS/MZYCM110TOP1

REPS /PWS/MZYGL110TOP

REPS /PWS/MZYGL110X01

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

Modificações efetuadas em REPS /PWS/MZYCM110F01

...

                v_modo          = v_modo_bi

                v_predic        = wa_zycbt007-fpredicao

           TABLES

                t_dados         = itab_zycbe033

                t_campo         = itab_zycbt034

                t_zycbt032      = itab_zycbt032

           EXCEPTIONS

                campo_em_branco = 1

                OTHERS          = 2.

    ELSE.

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

  CLEAR:   itab_zyglt100.

  REFRESH: itab_zyglt100.

  v_syrepid = sy-repid.

  IF /pws/zycbe031-mdcorresp(1) = 'C'.

    v_modulo = 'F'.

  ELSE.

    v_modulo = /pws/zycbe031-mdcorresp(1).

  ENDIF.

  CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

       EXPORTING

            i_codmod                = v_modulo

            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  = 'CBI003' BINARY SEARCH.

  IF sy-subrc EQ 0.

    IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

      PERFORM (itab_zyglt100-formulario)

              IN PROGRAM (itab_zyglt100-programa).

    ENDIF.

  ELSE.

* << Fim da inclusão

      CALL FUNCTION '/PWS/ZYCM_TRANSACAO_F_43C'

           EXPORTING

                v_modo          = v_modo_bi

           TABLES

                t_dados         = itab_zycbe033

                t_item          = itab_item

                t_zycbt032      = itab_zycbt032

           EXCEPTIONS

                campo_em_branco = 1

                periodo_fechado = 2

                OTHERS          = 3.

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

      ENDIF.

* << Fim da inclusão

    ENDIF.

    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 = 0.

        IF v_tcode EQ 'F-63'.

          MESSAGE i057 WITH itab_zycbt032-belnr.

        ELSE.

...

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

Modificações efetuadas em REPS /PWS/MZYCM110TOP1

...

DATA: v_bukrs_p    LIKE /pws/zycbt145-bukrs_p,

      v_aux_ktosl  LIKE /pws/zyglt316-ktosl,

      v_aux_cod    LIKE /pws/zyglt316-codaux1.

DATA: BEGIN OF itab_zycmt020 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycmt020.

DATA: END OF itab_zycmt020.

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,

* >> Início da exclusão:

      v_tabix          LIKE sy-tabix,

      itab_item        LIKE /pws/zycbe033 OCCURS 20 WITH HEADER LINE.

* << Fim da exclusão

* >> Início da inclusão:

      v_tabix          LIKE sy-tabix.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYGL110TOP

...

DATA: BEGIN OF itab_contas OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt350.

DATA: END OF itab_contas.

DATA: BEGIN OF itab_custo OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt350.

DATA: END OF itab_custo.

DATA: BEGIN OF itab_lucro OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt350.

DATA: END OF itab_lucro.

DATA:

* >> Início da exclusão:

      itab_zycbt032     LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE,

* << Fim da exclusão

      itab_zycbt032_aux LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE,

      itab_zycbt013     LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,

      itab_zycbt012     LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,

      itab_zyglt316     LIKE /pws/zyglt316 OCCURS 10 WITH HEADER LINE,

      itab_doctos       LIKE /pws/zycbt036 OCCURS 10 WITH HEADER LINE.

DATA: BEGIN OF itab_modo OCCURS 0.

DATA:   modo    LIKE /pws/zycbt039-modo,

        descr   LIKE /pws/zycbt039-descr.

        INCLUDE STRUCTURE spopli.

DATA: END OF itab_modo.

...

...

  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_cta_credito       LIKE /pws/zycbt012-saknr1,

  v_codeven           LIKE /pws/zycbt011-codeven,

* >> Início da exclusão:

  v_tcode(20) TYPE c,

* << Fim da exclusão

  v_codaux            LIKE /pws/zycbt012-codaux,

  v_belnr             LIKE /pws/zycbe031-belnr_p,

  v_prazo,

  v_codigo            LIKE /pws/zycbt011-codeven,

  v_date              LIKE t009b-bdatj,

  v_date_est          LIKE t009b-bdatj,

  v_taxat             LIKE tcurr-ukurs,

  v_ano               LIKE t009b-bdatj,

  v_monat             LIKE t001b-frpe1,

  v_parvw             LIKE /pws/zycbt017-parvw,

...

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

Modificações efetuadas em REPS /PWS/MZYGL110X01

...

DATA: wa_zycbt004  LIKE /pws/zycbt004,

      wa_zycbe004  LIKE /pws/zycbt004,

      wa_zycbe031  LIKE /pws/zycbe031,

      wa_zycbt031  LIKE /pws/zycbe031,

      wa_zycbe031c LIKE /pws/zycbe031,

      wa_zycbt145  LIKE /pws/zycbt145,

      wa_zycbt119  LIKE /pws/zycbt119,

      wa_zycbt112  LIKE /pws/zycbt112,

      wa_zycbt113  LIKE /pws/zycbt113,

      wa_zycbt117  LIKE /pws/zycbt117.

* >> Início da inclusão:

DATA: itab_item        LIKE /pws/zycbe033 OCCURS 20 WITH HEADER LINE,

      itab_zycbt032    LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE.

* << Fim da inclusão

DATA: BEGIN OF itab_zycbt031 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt031.

DATA: nrcontr LIKE /pws/zycbt048-nrcontr.

DATA: v_checked_flg(1) TYPE c.

DATA: v_process(1)     TYPE c.

DATA: END OF itab_zycbt031.

DATA: BEGIN OF itab_zycbt031a OCCURS 0.

        INCLUDE STRUCTURE /pws/zycbt031.

DATA: nrcontr LIKE /pws/zycbt048-nrcontr.

DATA: v_checked_flg(1) TYPE c.

...

...

        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.

DATA: ok_code      LIKE sy-ucomm,

      w_ok         LIKE ok_code,

* >> Início da inclusão:

      v_tcode(20)  TYPE c,

* << Fim da inclusão

      v_cbi002(1)  type c.

DATA: END OF COMMON PART.