Sintoma

Desvinculação parcial de fatura com arbitragem - Ao efetuar uma

desvinculação parcial de arbitragem o programa faz as contabilizações

corretamente(no valor do contrato), porém, ao preencher o valor na

Table control no campo VLSLF(saldo da fatura) ao invés de preencher

o valor devolvido na moeda da fatura, o programa preenche o valor

devolvido na moeda do doc contábil(Moeda do contrato).

Solução

Verificar se as moedas do contrato e fatura são iguais. Se sim, fazer

o cálculo normalmente. Caso contrário, calcular, considerando a

paridade preenchida na própria vinculação.

Informações Complementares

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

Nota Número 01003 Data: 10/03/2006 Hora: 13:45:36

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

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

Nota Número              : 01003

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00022

Agrupamento              : 00103

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

VINCULAÇÃO - DESVINCULAR PARCIALMENTE FATURA ARBITRAGEM

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

Palavras Chave:

VINCULAÇÃO DESVINCULAR PARCIALMENTE PARCIAL

FATURA ARBITRAGEM VALOR SALDO FATURA VLSLF

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

Objetos da nota:

REPS /PWS/MZYCB009F10

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

Modificações efetuadas em REPS /PWS/MZYCB009F10

...

  ENDIF.

  PERFORM limpa_desvincula.

ENDFORM.

FORM calcula_estorno.

  DATA: v_parafator LIKE tcurf-ffact ,

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

        v_defator   LIKE tcurf-tfact  .

* << Fim da exclusão

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

        v_defator   LIKE tcurf-tfact .

* << Fim da inclusão

  /pws/zycbe001-slvinc =

    /pws/zycbe001-slvinc + itab_desvincula-vldesvin.

  itab_zycbt005-vlvinc =

    itab_zycbt005-vlvinc - itab_desvincula-vldesvin.

  itab_zycbt005-slpagar =

    itab_zycbt005-slpagar - itab_desvincula-vldesvin.

  itab_zycbt005-vldif =

    itab_zycbt005-vldif + itab_desvincula-vldesvin.

  MOVE: 'S'                      TO itab_zycbt005-flag     ,

        itab_desvincula-vldesvin TO itab_zycbt005-vlestorno.

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

  itab_zycbt017-vlslf = itab_zycbt017-vlslf + itab_desvincula-vldesvin.

* << Fim da exclusão

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

  IF itab_zycbt005-waers EQ /pws/zycbe001-waers.

    MOVE itab_zycbt005-vlvinc TO itab_zycbt005-vlme_p.

    itab_zycbt017-vlslf = itab_zycbt017-vlslf +

                          itab_desvincula-vldesvin.

* << Fim da inclusão

  MOVE itab_zycbt017-vlslf  TO itab_zycbt005-vlslf.

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

  IF itab_zycbt005-waers EQ /pws/zycbe001-waers.

    MOVE itab_zycbt005-vlvinc TO itab_zycbt005-vlme_p.

* << Fim da exclusão

  ELSE.

    PERFORM determina_fator

      USING v_parafator

            v_defator.

    itab_zycbt005-vlme_p =

      itab_zycbt005-vlvinc / ( ( itab_zycbt005-parid / v_defator )

      * v_parafator ).

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

    itab_zycbt017-vlslf = itab_zycbt017-vlslf +

      ( itab_desvincula-vldesvin / ( ( itab_zycbt005-parid / v_defator )

      * v_parafator ) ).

    MOVE itab_zycbt017-vlslf  TO itab_zycbt005-vlslf.

* << Fim da inclusão

    IF v_decimais NE v_decimais_c.

      IF v_decimais EQ 0.

        itab_zycbt005-vlme_p = itab_zycbt005-vlme_p / 100.

      ELSE.

        itab_zycbt005-vlme_p = itab_zycbt005-vlme_p * 100.

...