Sintoma

Para os financiamentos do tipo PM, é necessário o preenchimento do Elemento PEP para Comissão, mas

este dado não está sendo levado para a contabilização.

Solução

Tratamento do campo elemento pep na provisão de comissão de financiamento na tela de financiamento.

Informações Complementares

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

Nota Número 03804 Data: 30/05/2007 Hora: 16:56:33

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

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

Nota Número              : 03804

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00027

Agrupamento              : 00168

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

FINANCIAMENTO - CONTABILIZAÇÃO ELEMENTO PEP

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

Palavras Chave:

FINANCIAMENTO - CONTABILIZAÇÃO ELEMENTO PEP

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

Objetos da nota:

FUNC /PWS/ZYCM_TRANSACAO_F_02

REPS /PWS/MZYCM101F01

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

Modificações efetuadas em FUNC /PWS/ZYCM_TRANSACAO_F_02

...

      IF NOT t_dados-d_fipos IS INITIAL.

        PERFORM bdc_field USING 'COBL-FIPOS' t_dados-d_fipos.

      ENDIF.

    ENDIF.

    READ TABLE itab_oculto WITH KEY campo = 'COBL-FISTL' chave = 'D'.

    IF sy-subrc <> 0.

      IF NOT t_dados-d_fictr IS INITIAL.

        PERFORM bdc_field USING 'COBL-FISTL' t_dados-d_fictr.

      ENDIF.

    ENDIF.

* >> Início da inclusão: FUNCTION /PWS/ZYCM_TRANSACAO_F_02

      READ TABLE itab_oculto

             WITH KEY campo = 'COBL-PS_POSID' chave = 'D'.

      IF sy-subrc <> 0.

        IF NOT  t_dados-ps_posid IS INITIAL.

          PERFORM bdc_field  USING:

             'COBL-PS_POSID' t_dados-ps_posid.

        ENDIF.

      ENDIF.

* << Fim da inclusão

    PERFORM bdc_field USING 'BDC_OKCODE' '=ENTE'.

    WRITE: t_dados-c_valut TO v_data_val_char.

    PERFORM bdc_screen USING 'SAPMF05A' v_tela.

    IF NOT t_dados-dmbtr IS INITIAL.

      WRITE : t_dados-dmbtr TO v_dmbtr CURRENCY t_dados-waersb.

      PERFORM bdc_field  USING:

        'BSEG-DMBTR' v_dmbtr.

    ENDIF.

    PERFORM bdc_field  USING:

           'BSEG-WRBTR' '*'.

...

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

Modificações efetuadas em REPS /PWS/MZYCM101F01

...

    itab_zycbe033-d_gsber = /pws/zycbe112-gsber.

    itab_zycbe033-d_kostl = itab_zycbt113c-kostl.

    itab_zycbe033-d_prctr = /pws/zycbe112-prctr.

    itab_zycbe033-d_fipos = /pws/zycbe112-fipos.

    itab_zycbe033-d_fictr = /pws/zycbe112-fictr.

    itab_zycbe033-c_gsber = /pws/zycbe112-gsber.

    itab_zycbe033-c_kostl = itab_zycbt113c-kostl.

    itab_zycbe033-c_prctr = /pws/zycbe112-prctr.

    itab_zycbe033-c_fipos = /pws/zycbe112-fipos.

    itab_zycbe033-c_fictr = /pws/zycbe112-fictr.

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

    itab_zycbe033-ps_posid = itab_zycbt113c-ps_posid.

* << Fim da inclusão

    APPEND itab_zycbe033.

    CLEAR:   itab_zyglt100.

    REFRESH: itab_zyglt100.

    IF itab_zyglt100[] IS INITIAL.

      v_syrepid = sy-repid.

      CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

           EXPORTING

                i_codmod                = 'I'

                i_func                  = v_syrepid

           TABLES

...