Sintoma

Fatura em reais não vão para o Câmbio.

não vão para as tabelas cbt119 e cbt108 do cambio como contabilizado, envia como excluido.

Solução

Retirar consistência que impede Fatura em reais de ir para o Câmbio.

Informações Complementares

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

Nota Número 10514 Data: 19/08/2010 Hora: 10:19:51

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

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

Nota Número              : 10514

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00004

Agrupamento              : 00035

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

FATURA EM REAIS NÃO VÃO PARA O CÂMBIO.

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

Palavras Chave:

FATURA EM REAIS - CAMBIO - BRL - WAERS - STATUS

ZYCBT108 - ZYCBT119

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

Objetos da nota:

REPS /PWS/MZYCI003F01

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

Modificações efetuadas em REPS /PWS/MZYCI003F01

...

  IF  /pws/zycie006-tpfatura = '04'.

    DELETE FROM /pws/zycit047 WHERE nrseq = /pws/zycie006-nrseq AND

                               nrfat = /pws/zycie006-nrfat.

    PERFORM atualiza_despesas.

  ENDIF.

  IF v_existe_di NE 'S'.

    IF ( NOT itab_zycit132[] IS INITIAL

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

          AND /pws/zycie006-waers NE /pws/zycbt007-waersb

* << Fim da exclusão

          AND ( /pws/zycie006-tpfatura = '01' OR

          /pws/zycie006-tpfatura = '11' )

          AND /pws/zycie006-frpagto = 'N' )

          OR  ( NOT itab_zycit132[] IS INITIAL

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

          AND /pws/zycie006-waers NE /pws/zycbt007-waersb

* << Fim da exclusão

          AND ( /pws/zycie006-tpfatura = '01'

          OR /pws/zycie006-tpfatura = '11' )

          AND /pws/zycie006-frpagto = 'P' ).

...

...

    CLEAR v_estorno.

    IF ( NOT itab_zycit132[] IS INITIAL

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

         AND /pws/zycie006-waers NE /pws/zycbt007-waersb

* << Fim da exclusão

         AND ( /pws/zycie006-tpfatura = '01'

         OR /pws/zycie006-tpfatura = '11' )

         AND /pws/zycie006-frpagto = 'N' )

         OR ( NOT itab_zycit132[] IS INITIAL

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

         AND /pws/zycie006-waers NE /pws/zycbt007-waersb

* << Fim da exclusão

         AND ( /pws/zycie006-tpfatura = '01' OR

         /pws/zycie006-tpfatura = '11' )

         AND /pws/zycie006-frpagto EQ 'P' ).

...

...

      MODIFY /pws/zycit006 FROM /pws/zycie006.

      APPEND /pws/zycie006 TO itab_zycit006.

      IF ( /pws/zycie006-frpagto EQ 'N'

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

      OR /pws/zycie006-frpagto EQ 'P' AND NOT v_di IS INITIAL ) AND

         /pws/zycie006-waers NE /pws/zycbt007-waersb.

* << Fim da exclusão

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

      OR /pws/zycie006-frpagto EQ 'P' AND NOT v_di IS INITIAL ).

* << Fim da inclusão

        MESSAGE i061 WITH text-008 /pws/zycbt119-nrfat

                          text-009 /pws/zycbt119-nrseq.

      ELSE.

        /pws/zycbt119-status = 'E'.

        MODIFY /pws/zycbt119.

      ENDIF.

    ELSE.

      IF /pws/zycie006-frpagto NE 'N' .

        /pws/zycbt119-status = 'E'.

      ENDIF.

...

...

      MOVE /pws/zycbt119-nrseq TO /pws/zycie006-nrseq_pgfat.

      MODIFY /pws/zycit006 FROM /pws/zycie006.

      APPEND /pws/zycie006 TO itab_zycit006.

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

      IF ( /pws/zycie006-frpagto EQ 'N' OR /pws/zycie006-frpagto EQ 'P'

          AND NOT v_di IS INITIAL ) AND

         /pws/zycie006-waers NE /pws/zycbt007-waersb.

* << Fim da exclusão

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

      IF ( /pws/zycie006-frpagto EQ 'N' OR

           /pws/zycie006-frpagto EQ 'P'

           AND NOT v_di IS INITIAL ).

* << Fim da inclusão

        MESSAGE i061 WITH text-008 /pws/zycbt119-nrfat

                          text-009 /pws/zycbt119-nrseq.

...

...

  SELECT SINGLE nrdi FROM /pws/zycit085

    INTO /pws/zycit085-nrdi

    WHERE nrbl = /pws/zycie006-nrseqce .                "#EC CI_NOFIELD

  MOVE /pws/zycit085-nrdi      TO /pws/zycbt108-nrdi.

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

  IF /pws/zycie006-frpagto EQ 'A' OR

     /pws/zycie006-waers EQ /pws/zycbt007-waersb.

* << Fim da exclusão

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

  IF /pws/zycie006-frpagto EQ 'A'.

* << Fim da inclusão

    /pws/zycbt108-status = 'E'.

  ENDIF.

  IF v_parcela = 'X'.

...