Sintoma

Ao fazer liquidações de uma mesma fatura, parcelas diferentes, na mesma data, para um mesmo

contrato, efetuar o estorno das mesmas e refazer as liquidações, o programa estava buscando

documento incorreto no clearing do ACE, apresentando erro "Não foram encontradas partidas em

aberto", devido ao documento já estar compensado.

Solução

Incluir o campo ref. ao número da parcela (nrparcf) na atualização da itab_zycbt005_ant.

Informações Complementares

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

Nota Número 00475 Data: 16/12/2005 Hora: 14:35:55

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

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

Nota Número              : 00475

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00021

Agrupamento              : 00091

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

BUSCA DE DOCUMENTO INCORRETO NO DESMEMBRAMENTO DO ACE

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

Palavras Chave:

LIQUIDAÇÃO DESMEMBRAMENTO ACE PARCELA FATURA

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

Objetos da nota:

REPS /PWS/MZYCB004F02

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

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

    itab_zycbt005_ant-dtbelnr = itab_zycbt006-dtpagto.

    itab_zycbt005_ant-slpagar = itab_zycbt005_ant-slpagar -

                                itab_zycbt006-v_vldif.

    MODIFY itab_zycbt005_ant TRANSPORTING belnr dtbelnr slpagar

                             WHERE nrinvoic = itab_zycbt006-nrinvoic

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

                               AND gsberf   = itab_zycbt006-gsberf.

* << Fim da exclusão

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

                               AND gsberf   = itab_zycbt006-gsberf

                               and nrparcf  = itab_zycbt006-nrparcf.

* << Fim da inclusão

    IF NOT /pws/zycbe001-desc_receb IS INITIAL.

      LOOP AT itab_zycbt220 WHERE nrinvoic = itab_zycbt006-nrinvoic AND

                                  gsberf   = itab_zycbt006-gsberf   AND

                                  nrparcf  = itab_zycbt006-nrparcf  AND

                                  nrseqc   = itab_zycbt006-nrseqc   AND

...

...

    itab_zycbt005_ant-dtbelnr = itab_zycbt006-dtpagto.

    itab_zycbt005_ant-slpagar = itab_zycbt005_ant-slpagar -

                                itab_zycbt006-v_vldif.

    MODIFY itab_zycbt005_ant TRANSPORTING belnr dtbelnr slpagar

                             WHERE nrinvoic = itab_zycbt006-nrinvoic

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

                               AND gsberf   = itab_zycbt006-gsberf.

* << Fim da exclusão

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

                               AND gsberf   = itab_zycbt006-gsberf

                               and nrparcf  = itab_zycbt006-nrparcf.

* << Fim da inclusão

    IF NOT /pws/zycbe001-desc_receb IS INITIAL.

      LOOP AT itab_zycbt220 WHERE nrinvoic = itab_zycbt006-nrinvoic AND

                                  gsberf   = itab_zycbt006-gsberf   AND

                                  nrparcf  = itab_zycbt006-nrparcf  AND

                                  nrseqc   = itab_zycbt006-nrseqc   AND

...