Sintoma

Quando era tentado pagar a comissão da parcela Flat para um contrato de Pré-Pagamento o complemento

do boleto executava a transação F-51. Essa transação somente é executada quando para pagamento de

parcelas de comissão do tipo Livre / Valor.

Solução

Foi efetuada consistências para que o programa sempre verifique que tipo de parcela está sendo paga

para poder executar a transação F-51.

Informações Complementares

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

Nota Número 02500 Data: 23/11/2006 Hora: 14:36:55

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

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

Nota Número              : 02500

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00140

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

CONTABILIZAÇÃO DE COMISSÃO DE CONTRATO PARA PRÉ-PAGAMENTO

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

Palavras Chave:

COMISSÃO FLAT LIVRE VALOR

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

Objetos da nota:

REPS /PWS/MZYCB110F01

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

Modificações efetuadas em REPS /PWS/MZYCB110F01

...

ENDFORM.

FORM get_parameters_com.

  CLEAR v_codeven.

  SELECT SINGLE * FROM /pws/zycbt089

    WHERE bukrs = /pws/zycbe031-bukrs.

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

  IF /pws/zycbt074-fpagto_comis EQ 'D' OR

     itab_zycbt002-flat EQ 'X'.

* << Fim da exclusão

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

  IF /pws/zycbt074-fpagto_comis EQ 'D' OR itab_zycbt002-flat EQ 'X'.

* << Fim da inclusão

    v_oper    = 'DSE'.

  ELSE.

    IF /pws/zycbt007-fprovisao EQ 'C' OR

       /pws/zycbt074-fpagto_comis EQ 'L'.

      v_oper    = 'PVE'.

    ELSE.

      v_oper    = 'DSE'.

    ENDIF.

  ENDIF.

  IF sy-index EQ 1.

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

    IF /pws/zycbt074-fpagto_comis EQ 'D' OR

       itab_zycbt002-flat EQ 'X'.

* << Fim da exclusão

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

    IF /pws/zycbt074-fpagto_comis EQ 'D' OR itab_zycbt002-flat EQ 'X'.

* << Fim da inclusão

      v_codaux1 = text-255.

      CONCATENATE '004' text-250 INTO v_codeven.

    ELSE.

      IF /pws/zycbt007-fprovisao EQ 'C' OR

         /pws/zycbt074-fpagto_comis EQ 'L'.

...

...

ENDFORM.

FORM fill_date_f_63_eo.

  DATA: v_erro(1) TYPE c.

  CLEAR: erro_bi, v_oper, v_codaux1, v_codaux2, v_codaux3.

  PERFORM clear_date_batch.

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

  READ TABLE itab_zycbt002 WITH KEY nrseqc = /pws/zycbe031-nrcorresp

                                    nrparc = /pws/zycbe031-nrparc.

* << Fim da inclusão

  PERFORM get_parameters_com.

  v_codaux2 = /pws/zycbt001-tpcontr.

  PERFORM busca_conta_contabil USING /pws/zycbt001-bukrs

                                     v_oper

                                     v_codaux1

...

...

  itab_zycbe033-tcode  = text-248.

  itab_zycbe033-tabela = text-249.

  itab_zycbe033-cpochv = /pws/zycbe031-nrseq.

  v_agkon = itab_zycbe033-d_newko.

  IF v_oper EQ 'DSE'.

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

    READ TABLE itab_zycbt002 WITH KEY nrseqc = /pws/zycbe031-nrcorresp

                                      nrparc = /pws/zycbe031-nrparc.

    IF sy-subrc EQ 0.

* << Fim da exclusão

      itab_zycbe033-d_kostl = itab_zycbt002-kostl.

      itab_zycbe033-c_kostl = itab_zycbt002-kostl.

      itab_zycbe033-d_prctr = itab_zycbt002-prctr.

      itab_zycbe033-c_prctr = itab_zycbt002-prctr.

      itab_zycbe033-d_fipos = itab_zycbt002-fipos.

      itab_zycbe033-c_fipos = itab_zycbt002-fipos.

      itab_zycbe033-d_fictr = itab_zycbt002-fictr.

      itab_zycbe033-c_fictr = itab_zycbt002-fictr.

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

    ENDIF.

* << Fim da exclusão

  ENDIF.

  PERFORM preenche_dados_batch.

  IF sy-index EQ 1.

    PERFORM verify_null_field USING /pws/zycbe031-vlme

                                    'VLME'

...

...

        IF sy-index EQ 1.

          itab_zycbt002-dtpagto       = /pws/zycbe031-dtcredpr.

        ELSE.

          itab_zycbt002-dtpagtoir     = /pws/zycbe031-dtcredir.

        ENDIF.

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

        IF /pws/zycbt074-fpagto_comis EQ 'L'.

* << Fim da exclusão

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

        IF /pws/zycbt074-fpagto_comis EQ 'L' AND

           itab_zycbt002-flat NE 'X'.

* << Fim da inclusão

          PERFORM executa_f51_eo.

        ENDIF.

        MODIFY itab_zycbt002 TRANSPORTING belnr_comp dtpagto

          belnr_ir_comp dtpagtoir

          WHERE nrseqc = itab_zycbt002-nrseqc

...