Sintoma

Complemento do Boleto - Remessa com Origem - ponto de exit CBF003

Solução

Permite alterar os dados da F-51 ou o mapeamento da mesma, gerando uma nova função.

Informações Complementares

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

Nota Número 05363 Data: 30/11/2007 Hora: 17:54:21

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

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

Nota Número              : 05363

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00024

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

Referência às notas relacionadas:

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

03321  - 00001 - 6.0    - 00026  - EXIT COMPLEMENTO DO BOLETO - PAGAMENTO DE FATURA - F-43

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

COMPLEMENTO DO BOLETO - REMESSA COM ORIGEM - PONTO DE EXIT CBF003

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

Palavras Chave:

COMPLEMENTO DO BOLETO REMESSA COM ORIGEM PONTO DE EXIT CBF003

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

Objetos da nota:

REPS /PWS/MZYCA110F01

REPS /PWS/MZYCA110TOP1

REPS /PWS/MZYGL110X01

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

Modificações efetuadas em REPS /PWS/MZYCA110F01

...

               NOT itab_zyglt321-descr IS INITIAL.

          itab_zycbe033-c_zuonr = itab_zyglt321-descr.

        ENDIF.

    ENDCASE.

  ENDLOOP.

  APPEND itab_zycbe033.

  LOOP AT itab_zycbt034.

    MESSAGE i016 WITH itab_zycbt034-descricao.

  ENDLOOP.

  IF itab_zycbt034[] IS INITIAL.

* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP

    CLEAR   itab_zyglt100.

    REFRESH itab_zyglt100.

    v_syrepid = sy-repid.

    CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         EXPORTING

              i_codmod                = 'F'

              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  = 'CBF003' 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

    CALL FUNCTION '/PWS/ZYCA_TRANSACAO_F_51Q'

         EXPORTING

              v_modo          = v_modo_bi

              v_buzei         = v_buzei

         IMPORTING

              v_dtlanc        = v_dtlanc

         TABLES

              t_dados         = itab_zycbe033

              t_campo         = itab_zycbt034

              t_zycbt032      = itab_zycbt032

              t_zycbt036      = itab_zycbt036

         EXCEPTIONS

              campo_em_branco = 1

              periodo_fechado = 2

              OTHERS          = 3.

* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP

    ENDIF.

* << Fim da inclusão

    IF sy-subrc = 0.

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

                                        tabela = '/PWS/ZYCBT031'

                                        cpochv = /pws/zycbe031-nrseq

                                        tpmsg  = 'S'.

      IF sy-subrc = 0.

        MESSAGE i218 WITH itab_zycbt032-belnr.

        IF v_dtlanc NE itab_zycbt124_aux-dtdocto AND

           NOT v_dtlanc = '00000000' AND

           NOT v_dtlanc = '        '.

...

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

Modificações efetuadas em REPS /PWS/MZYCA110TOP1

...

        INCLUDE STRUCTURE casdayattr.

DATA : END OF itab_periodo.

DATA: wa_ftpt_req_advance LIKE ftpt_req_advance,

      wa_pa0017           LIKE pa0017,

      wa_zyglt009         LIKE /pws/zyglt009,

      wa_zycat025         LIKE /pws/zycat025.

DATA: v_dia_taxa      LIKE sy-datum,

      v_estorno(1)    TYPE c,

      v_ok(1)         VALUE 'N',

      v_reportv       LIKE /pws/zyglt009-reportv,

* >> Início da exclusão:

      v_buzei         LIKE /pws/zycbt124-buzei,

      v_dtlanc(10)    TYPE c,

* << Fim da exclusão

      v_cont_irrf_bco TYPE c,

      v_esto_irrf_bco TYPE c,

      v_cont_cide_bco TYPE c,

      v_esto_cide_bco TYPE c,

      v_cred_imp      LIKE /pws/zycat024-credito_imp,

      v_controla_cp(2) type n.

      .

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

Modificações efetuadas em REPS /PWS/MZYGL110X01

...

        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.

DATA: ok_code      LIKE sy-ucomm,

      v_subrc      TYPE sy-subrc,

      w_ok         LIKE ok_code,

      v_tcode(20)  TYPE c,

      v_cbi002(1)  TYPE c,

* >> Início da exclusão:

      v_agums      type /pws/zycbt011-agums.

* << Fim da exclusão

* >> Início da inclusão:

      v_agums      type /pws/zycbt011-agums,

      v_dtlanc(10) TYPE c,

      v_buzei      type /pws/zycbt124-buzei.

* << Fim da inclusão

DATA: END OF COMMON PART.