Sintoma

A Rotina mensal está gerando valores indevidos.

Solução

Adicionado comando para ordenar a tabela interna.

Informações Complementares

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

Nota Número 06528 Data: 07/05/2008 Hora: 18:05:57

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

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

Nota Número              : 06528

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00046

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

Referência às notas relacionadas:

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

06478  - 00001 - 7.0    - 00005  - CAPTAÇÃO/ROTINA MENSAL - CALCULO DA COMISSAO

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

ROTINA MENSAL - GERAÇÃO DE VALORES INDEVIDOS

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

Palavras Chave:

ROTINA MENSAL - GERAÇÃO DE VALORES INDEVIDOS

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

Objetos da nota:

REPS /PWS/ZYCBR003

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

Modificações efetuadas em REPS /PWS/ZYCBR003

...

         INTO TABLE itab_zycbt002p

         FOR ALL ENTRIES IN itab_zycbt001

         WHERE nrseqc = itab_zycbt001-nrseqc AND

               tpparc = 'P'.

  SELECT *

         FROM /pws/zycbt002

         INTO TABLE itab_zycbt002j

         FOR ALL ENTRIES IN itab_zycbt001

         WHERE nrseqc = itab_zycbt001-nrseqc AND

               tpparc = 'J'.

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

  SORT itab_zycbt002j by nrseqc nrparc dtinicio.

* << Fim da inclusão

  SELECT nrseqc

         tptaxa_comis

         perc_comis

    FROM /pws/zycbt074

    INTO TABLE itab_zycbt074

    FOR ALL ENTRIES IN itab_zycbt001

    WHERE nrseqc       EQ itab_zycbt001-nrseqc AND

          fpagto_comis EQ 'P'                  AND

          tipo_comis   EQ 'P'.

  IF sy-subrc EQ 0.

...

...

    CLEAR itab_zycbt001.

  ENDIF.

  SELECT *

         FROM /pws/zycbt006

         INTO TABLE itab_zycbt006_pos

         FOR ALL ENTRIES IN itab_zycbt001

         WHERE nrseqc = itab_zycbt001-nrseqc AND

               dtpagto > s_dtentr.

  PERFORM seleciona_parametros_gerais.

  PERFORM get_parameters_001.

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

  SORT itab_zycbt002j by nrseqc nrparc dtinicio.

* << Fim da inclusão

ENDFORM.

FORM processa_dados.

  PERFORM processa_pre_pagamento.

  PERFORM processa_acc.

  PERFORM processa_cambio_pronto.

  PERFORM processa_periodo_comissao USING s_dtentr.

  IF wa_zycbt007-ftransf = 'X'.

    PERFORM processa_transfer_longo_curto.

  ENDIF.

  PERFORM exibe_relatorio.

ENDFORM.

FORM processa_pre_pagamento.

  DATA: v_dtfinal LIKE /pws/zycbt002-dtfinal,

        v_dtpagto LIKE sy-datum,

        v_vlmeaux LIKE /pws/zycbt001-vlme,

        v_ffrcalc.

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

  SORT itab_zycbt002j by nrseqc nrparc dtinicio.

* << Fim da inclusão

  LOOP AT itab_zycbt001 WHERE tpcontr+0(1) = 'P'

                           OR tpcontr+0(1) = 'S'.

    PERFORM seleciona_data_operacao.

    CLEAR itab_zycbt002p.

    IF itab_zycbt001-ffrcalc IS INITIAL.

      READ TABLE itab_zycbt022 WITH KEY tpcontr = itab_zycbt001-tpcontr.

      v_ffrcalc = itab_zycbt022-frcalcj.

    ELSE.

      v_ffrcalc = itab_zycbt001-ffrcalc.

    ENDIF.

...