Sintoma

Programa não está atualizando conforme o campo para seleção considerando mais de uma liquidação em

uma unica fatura.

Solução

Foi corrigida a maneira que é feita a soma das liquidações, para considerar todas as liquidações,

parciais e totais.

Informações Complementares

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

Nota Número 03116 Data: 16/02/2007 Hora: 16:14:28

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

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

Nota Número              : 03116

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00151

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

RELATÓRIO DE CONTRATOS - ATUALIZAÇÃO DE CAMPO SALDO Á PAGAR

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

Palavras Chave:

RELATÓRIO DE CONTRATOS - ATUALIZAÇÃO DE CAMPO SALDO Á PAGAR

SLPAGAR

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

Objetos da nota:

REPS /PWS/ZYCBR010

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

Modificações efetuadas em REPS /PWS/ZYCBR010

...

        ENDIF.

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

          v_type = 'M'.

        ENDIF.

        CLEAR v_vldev.

        LOOP AT itab_zycbt050 WHERE nrseqc = itab_relat-nrseqc.

          v_vldev = v_vldev + itab_zycbt050-vldev.

        ENDLOOP.

        CLEAR v_slpagar.

        LOOP AT itab_zycbt005 WHERE nrseqc = itab_zycbt001-nrseqc.

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

          READ TABLE itab_zycbt006 WITH KEY

                                    nrseqc = itab_zycbt005-nrseqc

                                    tpdesp = itab_zycbt005-tpdesp

                                    nrparc = itab_zycbt005-nrparc

                                    dtincl = itab_zycbt005-dtincl

                                  nrinvoic = itab_zycbt005-nrinvoic

                                   nrparcf = itab_zycbt005-nrparcf

                                    gsberf = itab_zycbt005-gsberf

                                  dtvincul = itab_zycbt005-dtvincul

                                 dtvencto = itab_zycbt005-dtvencto.

          IF sy-subrc EQ '0'.

* << Fim da exclusão

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

          loop at itab_zycbt006

                          where nrseqc = itab_zycbt005-nrseqc

                            and tpdesp = itab_zycbt005-tpdesp

                            and nrparc = itab_zycbt005-nrparc

                            and dtincl = itab_zycbt005-dtincl

                            and nrinvoic = itab_zycbt005-nrinvoic

                            and nrparcf = itab_zycbt005-nrparcf

                            and gsberf = itab_zycbt005-gsberf

                            and dtvincul = itab_zycbt005-dtvincul

                            and dtvencto = itab_zycbt005-dtvencto.

* << Fim da inclusão

            IF itab_zycbt005-waers NE itab_zycbt005-waers_c.

              IF itab_zycbt001-tpcontr = 'DP'.

                v_slpagar = v_slpagar + itab_zycbt005-vlvinc.

              ELSE.

                v_slpagar = v_slpagar +

                 ( itab_zycbt006-vlme * itab_zycbt005-parid ).

              ENDIF.

            ELSE.

              v_slpagar = v_slpagar + itab_zycbt006-vlme.

            ENDIF.

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

          ENDIF.

* << Fim da exclusão

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

          endloop.

* << Fim da inclusão

        ENDLOOP.

        CLEAR v_vlreceb.

        LOOP AT itab_zycbt051 WHERE nrseqc = itab_relat-nrseqc.

          v_vlreceb = v_vlreceb + itab_zycbt051-vlme.

        ENDLOOP.

        itab_relat-slpagar = itab_zycbt001-vlme - v_slpagar -

                             v_vldev + v_vlreceb.

        CLEAR: v_montante, v_taxacambial.

        IF itab_zycbt001-waers EQ /pws/zycbt007-waersb.

          v_montante = itab_relat-slpagbr.

...