Sintoma

Ao executar o processar boleto para prestação de contas, algumas não estão aparecendo no relatório.

Solução

Tratar as prestações que já possuem boleto por variável que carregue o sy-tabix correto, assim

exclui na posição do registro na tabela interna.

Informações Complementares

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

Nota Número 07766 Data: 12/12/2008 Hora: 12:48:24

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

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

Nota Número              : 07766

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00076

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

Referência às notas relacionadas:

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

02138  - 00001 - 6.0    - 00024  - ROTINA DE PAGAMENTO EXPORTAÇÃO - CHAVE DE SELEÇÃO

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

PROCESSAR BOLETO - PRESTAÇÃO DE CONTAS - EXCLUSÃO DE DADOS INCORRETA

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

Palavras Chave:

PROCESSAR BOLETO PRESTAÇÃO DE CONTAS EXCLUSÃO DE DADOS INCORRETA

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

Objetos da nota:

REPS /PWS/ZYGLR002

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

Modificações efetuadas em REPS /PWS/ZYGLR002

...

  v_me            LIKE /pws/zycbt112-vlme,

  v_usd           LIKE /pws/zycbt112-vlme,

  v_control2      TYPE i,

  v_zero8(8)      TYPE n,

  v_codmodul      LIKE /pws/zycbe118-codmodul,

  v_desp,

  v_mconame       TYPE shlpname,

  l_display(1)    TYPE c,

  v_fat(1)        TYPE c,

  v_averb(1)      TYPE c.

* >> Início da inclusão:

DATA: v_tabix TYPE sy-tabix.

* << Fim da inclusão

DATA: BEGIN OF itab_result OCCURS 0.

        INCLUDE STRUCTURE ddshretval.

DATA: END OF itab_result.

DATA: BEGIN OF record_tab OCCURS 0.

        INCLUDE STRUCTURE seahlpres.

DATA: END OF record_tab.

SELECTION-SCREEN BEGIN OF BLOCK bl_1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: empresa FOR /pws/zycbt007-bukrs    NO-DISPLAY,

                data    FOR /pws/zycbt119-dtvencto NO-DISPLAY,

                fornece FOR lfa1-lifnr,

...

...

          pgtocamb  EQ 'X'           AND

          statuscb  NE 'E'           AND

          ( docfat  NE ''            OR

            docfat  NE space ).

  ENDIF.

  IF NOT itab_zycet033[] IS INITIAL.

    SELECT * FROM /pws/zycbt031

    INTO TABLE itab_zycbt031

    WHERE mdcorresp = 'EP'.

    LOOP AT itab_zycet033.

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

      v_tabix = sy-tabix.

* << Fim da inclusão

      READ TABLE itab_zycbt031

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

      WITH KEY nrcorresp = itab_zycet033-nrpres.

* << Fim da exclusão

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

          WITH KEY nrcorresp = itab_zycet033-nrpres

                   mdcorresp = 'EP'.

* << Fim da inclusão

      IF sy-subrc = 0.

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

        DELETE itab_zycet033 INDEX sy-tabix.

* << Fim da exclusão

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

        DELETE itab_zycet033 INDEX v_tabix.

* << Fim da inclusão

        CONTINUE.

      ENDIF.

      v_tipo = text-002.

      MOVE:

      itab_zycet033-despach   TO itab_selreg-benefic,

      text-032                TO itab_selreg-mod,

      itab_zycet033-nrpres    TO itab_selreg-nrchave,

      '/PWS/ZYCET033'         TO itab_selreg-tab,

      v_tipo                  TO itab_selreg-tipo,

      v_taxa_dia              TO itab_selreg-txdia,

...