Sintoma

Ao executar o relatório de contratos, esta exibindo Saldo a Vincular para contratos do tipo DP

criado por Operação C/C ME.

Solução

Verificar se o contrato é do tipo DP e criado por Operação de C/C ME. Se sim, o mesmo não tem saldo

a vincular.

Informações Complementares

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

Nota Número 07934 Data: 19/01/2009 Hora: 18:33:44

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

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

Nota Número              : 07934

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00082

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

Referência às notas relacionadas:

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

04495  - 00001 - 7.0    - 00002  - RELATÓRIO DE CONTRATOS - AJUSTES PERFORMANCE

05877  - 00002 - 7.0    - 00004  - RELATÓRIO DE CONTRATOS - NOVAS COLUNAS VALOR/PERCENTUAL COMISSÃO

06498  - 00003 - 7.0    - 00005  - REL. CONTRATOS - CONTRATOS ENCERRADOS

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

RELATÓRIO DE CONTRATOS - SALDO A VINCULAR PREENCHIDO PARA DP POR C/C ME

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

Palavras Chave:

RELATÓRIO DE CONTRATOS SALDO A VINCULAR PREENCHIDO PARA DP POR C/C ME

/PWS/ZYCBT001-TP_PAGT_ANTC

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

Objetos da nota:

REPS /PWS/ZYCBR010

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

Modificações efetuadas em REPS /PWS/ZYCBR010

...

    dtcred   LIKE /pws/zycbt001-dtcred,

    dtdesem  LIKE /pws/zycbt001-dtdesem,

    dtentr   LIKE /pws/zycbt001-dtentr,

    dtliquid LIKE /pws/zycbt001-dtliquid,

    waers    LIKE /pws/zycbt001-waers,

    vlme     LIKE /pws/zycbt001-vlme,

    vlcanc   LIKE /pws/zycbt001-vlcanc,

    slvinc   LIKE /pws/zycbt001-slvinc,

    slpagar  LIKE /pws/zycbt001-slpagar,

* >> Início da inclusão:

    tp_pagt_antc type /pws/zycbt001-tp_pagt_antc,

* << Fim da inclusão

    slpagbr  LIKE /pws/zycbt001-slpagar,

  END OF itab_zycbt001,

  BEGIN OF itab_zycbt074 OCCURS 0,

    nrseqc     LIKE /pws/zycbt074-nrseqc,

    perc_comis LIKE /pws/zycbt074-perc_comis,

    perc_comis_flat LIKE /pws/zycbt074-perc_comis_flat,

    fpagto_comis LIKE /pws/zycbt074-fpagto_comis,

  END OF itab_zycbt074,

  BEGIN OF itab_zycbt002 OCCURS 10,

    nrseqc   LIKE /pws/zycbt002-nrseqc,

    nrparc   LIKE /pws/zycbt002-nrparc,

...

...

  DATA:

    v_type       TYPE tcurr-kurst.

  REFRESH: itab_zycbt001,

           itab_zycbt002,

           itab_relat,

           itab_relat2.

  PERFORM verifica_parametros.

  SELECT nrseqc  nrcontr bukrs   tpcontr  bconegoc bcofinan fdtlanc

         dtcontr dtcred  dtdesem dtentr   dtliquid waers    vlme

         vlcanc  slvinc  slpagar

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

         tp_pagt_antc

* << Fim da inclusão

    FROM /pws/zycbt001

    INTO TABLE itab_zycbt001

    WHERE nrseqc   IN nrseqc

      AND nrcontr  IN nrcontr

      AND tpcontr  IN tpcontr

      AND bukrs    IN bukrs

      AND dtcontr  IN dtcontr

      AND bcofinan IN bcofinan

      AND bconegoc IN bconegoc

      AND dtcred   IN dtcred

...

...

                                        s_posic

                                        CHANGING itab_relat-slpagbr

                                        v_taxacambial.

        ENDIF.

        IF s_txcamb <> ''.

          itab_relat-slpagbr = itab_relat-slpagar * s_txcamb.

        ENDIF.

        MODIFY itab_relat TRANSPORTING slpagar slpagbr

                          WHERE nrseqc = itab_zycbt001-nrseqc.

      ENDIF.

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

      IF NOT ( itab_zycbt001-tpcontr(1)   = 'D' AND

               itab_zycbt001-tp_pagt_antc = 'C' ).

* << Fim da inclusão

      itab_relat-vlvinc = v_vlvinc.

      v_slvinc          = itab_zycbt001-vlme - v_vlvinc + v_vldev.

      itab_relat-slvinc = v_slvinc - v_vldev.

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

      ENDIF.

* << Fim da inclusão

      IF NOT s_a_entr IS INITIAL.

        IF itab_relat-slvinc IS INITIAL.

          DELETE itab_relat WHERE nrseqc = itab_zycbt001-nrseqc.

          CONTINUE.

...