Sintoma

Complemento do Boleto - ponto de exit CBF006

Solução

Permite alterar mapeamento da F-51

Informações Complementares

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

Nota Número 07410 Data: 07/10/2008 Hora: 11:38:24

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

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

Nota Número              : 07410

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00068

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

COMPLEMENTO DO BOLETO - PONTO DE EXIT CBF006

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

Palavras Chave:

COMPLEMENTO DO BOLETO PONTO DE EXIT CBF006

REMESSA IMPOSTOS BANCO F-51

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

Objetos da nota:

REPS /PWS/MZYCA110F01

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

Modificações efetuadas em REPS /PWS/MZYCA110F01

...

  ELSE.

    CALL CUSTOMER-FUNCTION '075'

      TABLES

        t_dados = itab_zycbe033.                            "#EC *

    MODIFY itab_zycbe033 INDEX 1.

  ENDIF.

  LOOP AT itab_zycbt034.

    MESSAGE i016 WITH itab_zycbt034-descricao.

  ENDLOOP.

  IF itab_zycbt034[] IS INITIAL.

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

    v_syrepid = sy-repid.

    clear itab_zyglt100. refresh itab_zyglt100.

    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 = 'CBF006'.

    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/ZYGL_TRANSACAO_F_51K'

         EXPORTING

              v_modo          = v_modo_bi

              v_nfiltra_atrib = 'X'

         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 COMPENSA_EMPRESA_CP

    ENDIF.

* << Fim da inclusão

    IF sy-subrc = 0.

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

                                        tabela = '/PWS/ZYCBT124'

                                        cpochv = /pws/zycbe031-nrseq

                                        tpmsg  = 'S'.

      IF sy-subrc = 0.

        MESSAGE i218 WITH itab_zycbt032-belnr.

        IF p_tpimp(4) = 'IRRF'.

          /pws/zycbe031-belnr_pi    = itab_zycbt032-belnr.

          /pws/zycbe031-statuspi    = 'C'.

...