Sintoma

AO ENTRAR NAS ADIÇÕES, VALOR NA MOEDA E RATEIO DE DESPESAS FICA ERRADO

Solução

Ajustar rateio e conversão de valores

Informações Complementares

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

Nota Número 07925 Data: 16/01/2009 Hora: 15:40:01

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

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

Nota Número              : 07925

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00081

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AO ENTRAR NAS ADIÇÕES, VALOR NA MOEDA E RATEIO DE DESPESAS FICA ERRADO

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

Palavras Chave:

ADIÇÃO - DI - MOEDA - RATEIO - DESPESA - THC - CAPATAZIA

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F03

REPS /PWS/MZYCI023O01

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

FORM comm_adic.

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

  perform refresh_all.

* << Fim da inclusão

...

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

Modificações efetuadas em REPS /PWS/MZYCI023O01

...

MODULE fill_struct049b OUTPUT.

  CLEAR: itab_zycit049b-vldp  , itab_zycit049b-vlreal,

         v_wa_vldp      , v_wa_vlreal    .

  READ TABLE itab_zycit122 WITH KEY codigo = itab_zycit049b-coddesp.

  wa_it122-reduz = itab_zycit122-descricao_reduz.

* >> Início da inclusão: MODULE FILL_STRUCT049B

  DESCRIBE TABLE itab_zycit116 LINES v_adics.

* << Fim da inclusão

  LOOP AT itab_zycit049 WHERE coddesp = itab_zycit049b-coddesp

                             AND tipo = 'A'

                             AND NOT vldp IS initial.

    MOVE itab_zycit049b TO wa_it122.

* >> Início da exclusão: MODULE FILL_STRUCT049B

    wa_it122-waers = itab_zycit049-waers.

* << Fim da exclusão

* >> Início da inclusão: MODULE FILL_STRUCT049B

    PERFORM calc_conv_moeda USING  itab_zycit049-waers

                                   /pws/zycie085-waersfob

                         CHANGING itab_zycit049-vldp    .

    wa_it122-waers = /pws/zycie085-waersfob.

* << Fim da inclusão

    READ TABLE itab_zycit122 WITH KEY codigo = itab_zycit049b-coddesp.

    wa_it122-reduz = itab_zycit122-descricao_reduz.

    IF NOT itab_zycit049-vldp IS INITIAL.

      IF v_adics EQ '1'.

        v_wa_vldp   = v_wa_vldp   + itab_zycit049-vldp.

        v_wa_vlreal = v_wa_vlreal + itab_zycit049-vlreal.

      ELSE.

        IF itab_zycit049-peso EQ 'X'.

          CLEAR : wa_it122-vldp, wa_it122-vlreal, v_ntgew_adic.

          LOOP AT itab_it WHERE adicao = wa_it-adicao.

...

...

MODULE fill_struct049c OUTPUT.

  CLEAR: itab_zycit049c-vldp  , itab_zycit049c-vlreal,

         v_wa_vldpc      , v_wa_vlrealc      .

  READ TABLE itab_zycit123 WITH KEY codigo = itab_zycit049c-coddesp.

  wa_it123-reduz = itab_zycit123-descricao_reduz.

  DESCRIBE TABLE itab_zycit116 LINES v_adics.

  LOOP AT itab_zycit049 WHERE coddesp = itab_zycit049c-coddesp

                             AND tipo = 'D'

                             AND NOT vldp IS initial.

    MOVE itab_zycit049c TO wa_it123.

* >> Início da inclusão: MODULE FILL_STRUCT049C

    PERFORM calc_conv_moeda USING  itab_zycit049-waers

                                   /pws/zycie085-waersfob

                         CHANGING itab_zycit049-vldp    .

    wa_it123-waers = /pws/zycie085-waersfob.

* << Fim da inclusão

    wa_it123-waers = itab_zycit049-waers.

    READ TABLE itab_zycit123 WITH KEY codigo = itab_zycit049c-coddesp.

    wa_it123-reduz = itab_zycit123-descricao_reduz.

    IF NOT itab_zycit049-vldp IS INITIAL.

      IF v_adics EQ '1'.

        v_wa_vldpc   = v_wa_vldpc   + itab_zycit049-vldp.

        v_wa_vlrealc = v_wa_vlrealc + itab_zycit049-vlreal.

      ELSE.

        IF itab_zycit049-peso EQ 'X'.

          CLEAR: wa_it123-vldp, wa_it123-vlreal, v_ntgew_adic.

...