Sintoma

Não está aparecendo os documentos gerados na Devolução no Histórico Contábil.

Solução

Incluídas consistências para a impressão do histórico contábil

Informações Complementares

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

Nota Número 00901 Data: 16/02/2006 Hora: 19:30:29

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

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

Nota Número              : 00901

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00101

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

HISTÓRICO CONTÁBIL - PROCESSO DE DEVOULUÇÃO

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

Palavras Chave:

DEVOLUÇÃO HISTÓRICO CONTÁBIL

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

Objetos da nota:

REPS /PWS/ZYCBR059

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

Modificações efetuadas em REPS /PWS/ZYCBR059

...

    v_colunas = v_colunas + 11.

  ENDIF.

ENDFORM.

FORM dados_devolucao.

  LOOP AT itab_zycbt050.

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

    READ TABLE itab_zycbt051 WITH KEY tpdesp   = itab_zycbt050-tpdesp

                                      nrparc   = itab_zycbt050-nrparc

                                      dtincl   = itab_zycbt050-dtincl

                                      nrinvoic = itab_zycbt050-nrinvoic

                                      gsberf   = itab_zycbt050-gsberf

                                      dtvincul = itab_zycbt050-dtvincul

                                      dtvencto = itab_zycbt050-dtvencto

                                      tpdev(1) = 'R'.

    IF sy-subrc EQ 0.

      IF itab_zycbt051-tpdev EQ 'RP'.

* << Fim da exclusão

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

    LOOP AT itab_zycbt051 WHERE tpdesp = itab_zycbt050-tpdesp

         AND nrparc   = itab_zycbt050-nrparc

         AND dtincl   = itab_zycbt050-dtincl

         AND nrinvoic = itab_zycbt050-nrinvoic

         AND gsberf   = itab_zycbt050-gsberf

         AND dtvincul = itab_zycbt050-dtvincul

         AND dtvencto = itab_zycbt050-dtvencto.

      IF itab_zycbt051-tpdev(2) EQ 'RP'.

* << Fim da inclusão

        itab_dados_rp-tpdesp   = itab_zycbt051-tpdesp.

        itab_dados_rp-nrparc   = itab_zycbt051-nrparc.

        itab_dados_rp-dtincl   = itab_zycbt051-dtincl.

        itab_dados_rp-gsberf   = itab_zycbt051-gsberf.

        itab_dados_rp-dtvincul = itab_zycbt051-dtvincul.

...

...

        itab_dados_rp-tpdev    = itab_zycbt051-tpdev.

        itab_dados_rp-vlme     = itab_zycbt051-vlme.

        itab_dados_rp-belnr_rp = itab_zycbt051-belnr_rp.

        itab_dados_rp-dtreceb  = itab_zycbt051-dtreceb.

        APPEND itab_dados_rp.

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

      ELSEIF itab_zycbt051-tpdev EQ 'RD'.

* << Fim da exclusão

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

      ELSEIF itab_zycbt051-tpdev(2) EQ 'RD'.

* << Fim da inclusão

        itab_dados_rd-tpdesp   = itab_zycbt051-tpdesp.

        itab_dados_rd-nrparc   = itab_zycbt051-nrparc.

        itab_dados_rd-dtincl   = itab_zycbt051-dtincl.

        itab_dados_rd-gsberf   = itab_zycbt051-gsberf.

        itab_dados_rd-dtvincul = itab_zycbt051-dtvincul.

...

...

        itab_dados_rd-tpdev    = itab_zycbt051-tpdev.

        itab_dados_rd-vlme     = itab_zycbt051-vlme.

        itab_dados_rd-belnr_rd = itab_zycbt051-belnr_rd.

        itab_dados_rd-dtfech   = itab_zycbt051-dtfech.

        APPEND itab_dados_rd.

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

      ELSEIF itab_zycbt051-tpdev(2) EQ 'DP'.

* << Fim da inclusão

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

      ENDIF.

    ENDIF.

    READ TABLE itab_zycbt051 WITH KEY tpdesp = itab_zycbt050-tpdesp

                                      nrparc   = itab_zycbt050-nrparc

                                      dtincl   = itab_zycbt050-dtincl

                                      nrinvoic = itab_zycbt050-nrinvoic

                                      gsberf   = itab_zycbt050-gsberf

                                      dtvincul = itab_zycbt050-dtvincul

                                      dtvencto = itab_zycbt050-dtvencto

                                      tpdev(2) = 'DP'.

    IF sy-subrc EQ 0.

* << Fim da exclusão

      itab_dados_dp-tpdesp   = itab_zycbt051-tpdesp.

      itab_dados_dp-nrparc   = itab_zycbt051-nrparc.

      itab_dados_dp-dtincl   = itab_zycbt051-dtincl.

      itab_dados_dp-gsberf   = itab_zycbt051-gsberf.

      itab_dados_dp-dtvincul = itab_zycbt051-dtvincul.

...

...

      itab_dados_dp-tpdev    = itab_zycbt051-tpdev.

      itab_dados_dp-vlme     = itab_zycbt051-vlme.

      itab_dados_dp-belnr_apr = itab_zycbt051-belnr_apr.

      itab_dados_dp-dtapr    = itab_zycbt051-dtapr.

      APPEND itab_dados_dp.

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

    ENDIF.

    READ TABLE itab_zycbt051 WITH KEY tpdesp   = itab_zycbt050-tpdesp

                                      nrparc   = itab_zycbt050-nrparc

                                      dtincl   = itab_zycbt050-dtincl

                                      nrinvoic = itab_zycbt050-nrinvoic

                                      gsberf   = itab_zycbt050-gsberf

                                      dtvincul = itab_zycbt050-dtvincul

                                      dtvencto = itab_zycbt050-dtvencto

                                      tpdev(2) = 'PD'.

    IF sy-subrc EQ 0.

* << Fim da exclusão

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

      ELSEIF itab_zycbt051-tpdev(2) EQ 'PD'.

* << Fim da inclusão

      itab_dados_pd-tpdesp     = itab_zycbt051-tpdesp.

      itab_dados_pd-nrparc     = itab_zycbt051-nrparc.

      itab_dados_pd-dtincl     = itab_zycbt051-dtincl.

      itab_dados_pd-gsberf     = itab_zycbt051-gsberf.

      itab_dados_pd-dtvincul   = itab_zycbt051-dtvincul.

...

...

      itab_dados_pd-belnr_pdd1 = itab_zycbt051-belnr_pdd1.

      itab_dados_pd-belnr_pdd2 = itab_zycbt051-belnr_pdd2.

      itab_dados_pd-dtpdd      = itab_zycbt051-dtpdd.

      APPEND itab_dados_pd.

    ENDIF.

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

    ENDLOOP.

* << Fim da inclusão

  ENDLOOP.

  DESCRIBE TABLE itab_dados_rp LINES cont_rp.

  DESCRIBE TABLE itab_dados_rd LINES cont_rd.

  DESCRIBE TABLE itab_dados_dp LINES cont_dp.

  DESCRIBE TABLE itab_dados_pd LINES cont_pd.

...

...

    itab_dados_dev-dtdevol    = itab_zycbt050-dtdevol.

    itab_dados_dev-dtcanc     = itab_zycbt050-dtcanc.

    IF cont_geral EQ 0.

      APPEND itab_dados_dev.

    ELSE.

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

    READ TABLE itab_zycbt051 WITH KEY nrinvoic = itab_zycbt050-nrinvoic

                                        nrparc   = itab_zycbt050-nrparc

                                        gsberf   = itab_zycbt050-gsberf

                                      dtvincul = itab_zycbt050-dtvincul.

      IF sy-subrc EQ 0.

* << Fim da exclusão

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

      .

* << Fim da inclusão

        DO cont_geral TIMES.

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

          IF itab_zycbt051-tpdev EQ 'RP'.

* << Fim da exclusão

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

        READ TABLE itab_dados_rp INDEX sy-index.

        IF sy-subrc = 0.

* << Fim da inclusão

            itab_dados_dev-vlme_rp   = itab_dados_rp-vlme.

            itab_dados_dev-belnr_rp  = itab_dados_rp-belnr_rp.

            itab_dados_dev-dtreceb   = itab_dados_rp-dtreceb.

          ENDIF.

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

          IF itab_zycbt051-tpdev EQ 'RD'.

* << Fim da exclusão

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

        READ TABLE itab_dados_rd INDEX sy-index.

        IF sy-subrc = 0.

* << Fim da inclusão

            itab_dados_dev-vlme_rd   = itab_dados_rd-vlme.

            itab_dados_dev-belnr_rd  = itab_dados_rd-belnr_rd.

            itab_dados_dev-dtfech    = itab_dados_rd-dtfech.

          ENDIF.

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

          IF itab_zycbt051-tpdev EQ 'DP'.

* << Fim da exclusão

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

        READ TABLE itab_dados_dp INDEX sy-index.

        IF sy-subrc = 0.

* << Fim da inclusão

            itab_dados_dev-vlme_apr   = itab_dados_dp-vlme.

            itab_dados_dev-belnr_apr  = itab_dados_dp-belnr_apr.

            itab_dados_dev-dtapr      = itab_dados_dp-dtapr.

          ENDIF.

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

          IF itab_zycbt051-tpdev EQ 'DP'.

* << Fim da exclusão

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

        READ TABLE itab_dados_pd INDEX sy-index.

        IF sy-subrc = 0.

* << Fim da inclusão

            itab_dados_dev-vlme_pdd1  = itab_dados_pd-vlme.

            itab_dados_dev-belnr_pdd1 = itab_dados_pd-belnr_pdd1.

            itab_dados_dev-vlme_pdd2  = itab_dados_pd-vlme.

            itab_dados_dev-belnr_pdd2 = itab_dados_pd-belnr_pdd2.

            itab_dados_dev-dtpdd      = itab_dados_pd-dtpdd.

          ENDIF.

          APPEND itab_dados_dev.

          CLEAR itab_dados_dev.

        ENDDO.

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

      ENDIF.

* << Fim da exclusão

    ENDIF.

  ENDLOOP.

ENDFORM.