Sintoma

Após a prorrogação de um contrato de pré-pagamento, o relatório /PWS/ZYCBR010 - Contratos, não está

apresentando as datas de vencimentos de acordo com as prorrogações.

Solução

Alterado programa /PWS/ZYCBR010, vericando caso o campo de Data de Prorrogação esteja preenchida,

considerar essa data para relatório.

Informações Complementares

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

Nota Número 04857 Data: 28/09/2007 Hora: 15:35:03

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

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

Nota Número              : 04857

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00014

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

RELATÓRIO DE CONTRATOS

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

Palavras Chave:

RELATÓRIO DE CONTRATOS

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

Objetos da nota:

REPS /PWS/ZYCBR010

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

Modificações efetuadas em REPS /PWS/ZYCBR010

...

  BEGIN OF itab_zycbt002 OCCURS 10,

    nrseqc   LIKE /pws/zycbt002-nrseqc,

    nrparc   LIKE /pws/zycbt002-nrparc,

    tpparc   LIKE /pws/zycbt002-tpparc,

    dtinicio LIKE /pws/zycbt002-dtinicio,

    dtfinal  LIKE /pws/zycbt002-dtfinal,

    txjfixa  LIKE /pws/zycbt002-txjfixa,

    txjvar   LIKE /pws/zycbt002-txjvar,

    vlme     LIKE /pws/zycbt002-vlme,

    slvinc   LIKE /pws/zycbt002-slvinc,

* >> Início da inclusão:

    dtpror   LIKE /pws/zycbt002-dtpror,

* << Fim da inclusão

  END OF itab_zycbt002,

  BEGIN OF itab_zycbt004 OCCURS 10,

    nrseqc   LIKE /pws/zycbt004-nrseqc,

    tpdesp   LIKE /pws/zycbt004-tpdesp,

    nrparc   LIKE /pws/zycbt004-nrparc,

    dtincl   LIKE /pws/zycbt004-dtincl,

    waers    LIKE /pws/zycbt004-waers,

    vlme     LIKE /pws/zycbt004-vlme,

    dtpagto  LIKE /pws/zycbt004-dtpagto,

  END OF itab_zycbt004,

...

...

                          gsberf dtvincul dtvencto dtpagto.

    SELECT tpcontr txtdesc

      FROM /pws/zycbt016

      INTO TABLE itab_zycbt016

      FOR ALL ENTRIES IN itab_zycbt001

      WHERE tpcontr = itab_zycbt001-tpcontr.

    SORT itab_zycbt016 BY tpcontr.

    SELECT nrseqc nrparc tpparc

           dtinicio dtfinal txjfixa

           txjvar vlme slvinc

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

          dtpror

* << Fim da inclusão

      FROM /pws/zycbt002

      INTO TABLE itab_zycbt002

      FOR ALL ENTRIES IN itab_zycbt001

      WHERE nrseqc EQ itab_zycbt001-nrseqc.

    SORT itab_zycbt002 BY nrseqc nrparc tpparc.

    SELECT nrseqc tpdesp nrparc

           dtincl waers vlme dtpagto

      FROM /pws/zycbt004

      INTO TABLE itab_zycbt004

      FOR ALL ENTRIES IN itab_zycbt001

...

...

        ENDIF.

        IF s_pagar <> '' AND  p_venda = 'X'.

          v_type = 'B'.

        ENDIF.

        IF s_pagar <> '' AND p_media = 'X'.

          v_type = 'M'.

        ENDIF.

        PERFORM verifica_periodo.

        MOVE:

          itab_zycbt002-tpparc   TO itab_relat-tpparc,

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

          itab_zycbt002-dtinicio TO itab_relat-dtinicio,

          itab_zycbt002-dtfinal  TO itab_relat-dtvencto,

* << Fim da exclusão

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

          itab_zycbt002-dtinicio TO itab_relat-dtinicio.

          IF itab_zycbt002-dtpror <> '00.00.0000' AND

             itab_zycbt002-dtpror <> '00/00/0000' AND

             itab_zycbt002-dtpror <> '00000000'.

             MOVE: itab_zycbt002-dtpror   TO itab_relat-dtvencto.

          ELSE.

             MOVE: itab_zycbt002-dtfinal  TO itab_relat-dtvencto.

          ENDIF.

        MOVE:

* << Fim da inclusão

          itab_zycbt002-txjfixa  TO itab_relat-txjfixa,

          itab_zycbt002-txjvar   TO itab_relat-txjvar,

          v_usd                  TO itab_relat-vlusd,

          v_prazo TO itab_relat-prazo.

        APPEND itab_relat.

      ENDLOOP.

      IF sy-subrc NE 0.

        LOOP AT itab_zycbt005 WHERE nrseqc = itab_relat-nrseqc.

          v_vlvinc = v_vlvinc + itab_zycbt005-vlvinc.

        ENDLOOP.

...