Sintoma

Ao executar a rotina mensal de exportação, para um contrato de Pré-pagamento, os dados estão

bagunçados na tela, onde tem os pagamentos, depois transferência e depois as provisões do período.

Obs.: as provisões geradas estão duplicadas na tela e o valor à provisionar esta incorreto.

Solução

Alterar o sort da tabela interna itab_relat considerando o tpcontab antes do ftpj.

Informações Complementares

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

Nota Número 03834 Data: 04/06/2007 Hora: 12:01:32

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

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

Nota Número              : 03834

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00168

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

Referência às notas relacionadas:

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

01309  - 00001 - 6.0    - 00023  - ROTINA MENSAL EXPORTAÇÃO CONTABILIZAÇÃO SEPARADA DE ACC E ACE = S

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

ROTINA MENSAL EXPORTAÇÃO - ORDENAÇÃO DADOS - CÁLCULO INCORRETO

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

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO ORDENAÇÃO DADOS CÁLCULO INCORRETO

SORT

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

Objetos da nota:

REPS /PWS/ZYCBI003

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

Modificações efetuadas em REPS /PWS/ZYCBI003

...

          lifnr LIKE lfa1-lifnr,

          name1 LIKE lfa1-name1,

        END OF itab_lfa1.

  IF /pws/zyglt009-imp_rot_sep EQ 'S'.

    v_tamr = 245.

  ELSE.

    v_tamr = 229.

  ENDIF.

  NEW-PAGE LINE-SIZE v_tamr.

  PERFORM totaliza_valores_lancados.

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

  SORT itab_relat BY tpcontr nrseqc ftpj tpcontab nrcontr nrinvoic

* << Fim da exclusão

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

  SORT itab_relat BY tpcontr nrseqc tpcontab ftpj nrcontr nrinvoic

* << Fim da inclusão

                       dtvincul nrparcp nrparcj dtde.

  IF NOT itab_relat[] IS INITIAL.

    SELECT lifnr name1

           FROM lfa1

           INTO TABLE itab_lfa1

           FOR ALL ENTRIES IN itab_relat

           WHERE lifnr = itab_relat-bco.

  ENDIF.

  v_sytabix = 0.

  DESCRIBE TABLE itab_relat LINES v_lin.

...