Sintoma

Desenvolvimento Adicional para buscar conta da primeira F-02 do refinanciamento, onde deve respeitar

tipo de material do financiamento origem. Erro ao tentar refinanciar financiamentos com tipo de

material diferente, onde exibe mensagem, mas grava registro.

Solução

Incluir tratamento para buscar conta da F-02 respeitando o tipo de material do financiamento. Se

tentar refinanciar financiamentos com tipo de material diferentes, não permitir.

Informações Complementares

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

Nota Número 06949 Data: 11/07/2008 Hora: 15:33:18

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

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

Nota Número              : 06949

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00055

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

REFINANCIAMENTO - DA - BUSCA CONTAS POR TIPO MATERIAL FINANCIAMENTO

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

Palavras Chave:

REFINANCIAMENTO - DA - BUSCA CONTAS POR TIPO MATERIAL FINANCIAMENTO

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

Objetos da nota:

REPS /PWS/MZYCB114F01

REPS /PWS/MZYCB114TOP

REPS /PWS/MZYCM101F01

REPS /PWS/MZYCM101O01

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

Modificações efetuadas em REPS /PWS/MZYCB114F01

...

    MESSAGE w015 WITH text-010.

  ENDIF.

ENDFORM.

FORM salvar_dados.

  DATA:

        v_bukrs   LIKE /pws/zycbt112-bukrs,

        v_gsber   LIKE /pws/zycbt112-gsber,

        v_codint  LIKE /pws/zycbt112-codint,

        v_sai(1).

  IF /pws/zycbe116-waers = /pws/zycbt007-waersb.

    MESSAGE i126.                                           "#EC *

    EXIT.

  ENDIF.

  IF /pws/zycbe116-dtincl IS INITIAL.

    MESSAGE i015 WITH text-031.

    EXIT.

  ENDIF.

  IF /pws/zycbe116-waers IS INITIAL.

    MESSAGE i015 WITH text-032.

    EXIT.

  ENDIF.

  IF /pws/zycbe116-vlrefinan IS INITIAL.

    MESSAGE i015 WITH text-033.

    EXIT.

  ENDIF.

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

  CLEAR v_erro.

* << Fim da inclusão

  LOOP AT itab_zycbt116.

    IF sy-tabix EQ 1.

      v_bukrs  = itab_zycbt116-bukrs.

      v_gsber  = itab_zycbt116-gsber.

      v_codint = itab_zycbt116-codint.

    ENDIF.

    IF itab_zycbt116-bukrs NE v_bukrs.

      MESSAGE i061 WITH text-027 text-028 text-017.

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

      v_erro = 'X'.

* << Fim da inclusão

      EXIT.

    ENDIF.

    IF itab_zycbt116-gsber NE v_gsber.

      MESSAGE i061 WITH text-029 text-028 text-017.

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

      v_erro = 'X'.

* << Fim da inclusão

      EXIT.

    ENDIF.

    IF itab_zycbt116-codint NE v_codint.

      MESSAGE i061 WITH text-030 text-028 text-017.

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

      v_erro = 'X'.

* << Fim da inclusão

      EXIT.

    ENDIF.

  ENDLOOP.

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

  CHECK v_erro IS INITIAL.

* << Fim da inclusão

  IF v_valortot = /pws/zycbe116-vlrefinan.

    IF NOT /pws/zycbe116-nrrefin IS INITIAL.

      IF NOT /pws/zycbe116-fprincipal IS INITIAL.

        DELETE itab_zycbt116 WHERE vlme IS initial.

...

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

Modificações efetuadas em REPS /PWS/MZYCB114TOP

...

  v_answer,

  v_index         TYPE i,

  v_ind_delecao,

  v_flag_moeda,

  v_valortot      LIKE /pws/zycbt112-vlme,

  v_moedarefin    LIKE /pws/zycbt116-waers,

  v_valortot1     LIKE    /pws/zycbt112-vlme,

  v_syrepid       LIKE sy-repid,

  v_sydynnr       LIKE sy-dynnr,

  v_visivel       LIKE /pws/zyglt319-visivel,

* >> Início da exclusão:

  v_tcodebotao    LIKE /pws/zyglt319-tcode."#EC NEEDED

* << Fim da exclusão

* >> Início da inclusão:

  v_tcodebotao    LIKE /pws/zyglt319-tcode,"#EC NEEDED

  v_erro(1)       type c.

* << Fim da inclusão

CONTROLS: tc_finan TYPE TABLEVIEW USING SCREEN '0100'.

DATA:     wa_cols  TYPE cxtab_column.

SELECTION-SCREEN BEGIN OF SCREEN 0300.

SELECT-OPTIONS: so_nrseq FOR /pws/zycbe112-nrseq MATCHCODE OBJECT

/PWS/ZYCBA121,

                so_banco FOR /pws/zycbe112-bcofinan,

                so_dtven FOR /pws/zycbe112-dtvencto,

                so_waers FOR /pws/zycbe112-waers.

SELECTION-SCREEN END OF SCREEN 0300.

AT SELECTION-SCREEN OUTPUT.

...

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

Modificações efetuadas em REPS /PWS/MZYCM101F01

...

  ENDIF.

  v_newkof = itab_zyglt316-konth.

  PERFORM verify_null_field USING itab_zycbt035-d_newko

                                  'C_NEWKO'

                                  text-018.

ENDFORM.

FORM conta_debito.

  PERFORM verify_null_field USING /pws/zycbe112-bcofinan

                                  'BCOFINAN'

                                  text-023.

* >> Início da exclusão: FORM CONTA_DEBITO

  CONCATENATE /pws/zycbe112-codint itab_totais-prazo

* << Fim da exclusão

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

  CONCATENATE itab_zycbt116-codint itab_totais-prazo

* << Fim da inclusão

              INTO v_codaux1 SEPARATED BY space.

  CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'

       EXPORTING

            bukrs           = /pws/zycbe112-bukrs

            ktosl           = 'FIN'

            codaux1         = v_codaux1

       TABLES

            account         = itab_zyglt316

       EXCEPTIONS

            key_not_found   = 1

...

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

Modificações efetuadas em REPS /PWS/MZYCM101O01

...

        IF screen-name = '/PWS/ZYCBE112-SLDESEM'.

          screen-input = '0'.

        ELSEIF screen-name EQ '/PWS/ZYCBE112-BCOFINAN'.

          IF /pws/zycbe112-flinha = 'X'.

            screen-input = '0'.

          ELSE.

            screen-input = '1'.

          ENDIF.

        ELSEIF v_nrseqcview(1) EQ '5' AND

               ( screen-name EQ '/PWS/ZYCBE112-WAERS' OR

* >> Início da exclusão: MODULE SET-SCREEN

                 screen-name EQ '/PWS/ZYCBE112-VLME'  OR

                 screen-name EQ '/PWS/ZYCBE112-CODINT' ).

* << Fim da exclusão

* >> Início da inclusão: MODULE SET-SCREEN

                 screen-name EQ '/PWS/ZYCBE112-VLME' ).

* << Fim da inclusão

          screen-input = '0'.

        ELSE.

          screen-input = '1'.

        ENDIF.

        IF v_prinpg EQ 'X' OR /pws/zycbe112-fassoc = 'X'.

          IF screen-name EQ '/PWS/ZYCBE112-NRFINANC' OR

             screen-name EQ '/PWS/ZYCBE112-DTDESEM'  OR

             screen-name EQ '/PWS/ZYCBE112-BUKRS'    OR

             screen-name EQ '/PWS/ZYCBE112-WAERS'    OR

             screen-name EQ '/PWS/ZYCBE112-KURSF'    OR

...