Sintoma

O programa não esta convertendo as unidades de medida.

Solução

Atualização da rotina de conversão de unidades de medidas no ato concessório.

Informações Complementares

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

Nota Número 07708 Data: 04/12/2008 Hora: 10:05:14

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

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

Nota Número              : 07708

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00079

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

CONVERSÃO DE UNIDADES DE MEDIDA CONTROLE POR NCM

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

Palavras Chave:

ATO CONCESSÓRIO NCM CONVERSÃO DE UNIDADES DE MEDIDA

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

Objetos da nota:

REPS /PWS/MZYCI040F02

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

...

      itab_zycit245-qtd_perda = itab_zycit245-qtd_ncm *

          ( itab_zycit245-perda / 100 ).

      itab_zycit245-qtd_perda_e = itab_zycit245-qtd_ncm *

          ( itab_zycit245-perda_e / 100 ).

      itab_zycit245-qtd_ncm = itab_zycit245-qtd_ncm -

                              itab_zycit245-qtd_perda_e.

      itab_zycit245-qtd_tot = itab_zycit245-qtd_tot -

                ( itab_zycit245-qtd_perda_e * v_conv_t ).

    ENDIF.

    MODIFY itab_zycit245.

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

    IF NOT  v_um_ren IS INITIAL

       AND  v_um_rez > v_um_ren.

      IF NOT itab_zycit245-qtd_tot IS INITIAL.

        itab_zycit245-qtd_ncm = itab_zycit245-qtd_tot.

        itab_zycit245-um_ncm = itab_zycit245-meins .

        PERFORM converte_um_ncm USING itab_zycit245-codcomp

                                CHANGING itab_zycit245-um_ncm

                                         itab_zycit245-werks

                                         itab_zycit245-qtd_ncm.

      ENDIF.

      IF NOT itab_zycit245-qtd_ncm IS INITIAL.

        v_conv_t = itab_zycit245-qtd_tot / itab_zycit245-qtd_ncm.

        itab_zycit245-qtd_ncm = itab_zycit245-qtd_ncm +

                                   itab_zycit245-qtd_perda_e .

        itab_zycit245-qtd_tot = itab_zycit245-qtd_tot +

             ( itab_zycit245-qtd_perda_e * v_conv_t ).

        itab_zycit245-qtd_perda = itab_zycit245-qtd_ncm *

            ( itab_zycit245-perda / 100 ).

        itab_zycit245-qtd_perda_e = itab_zycit245-qtd_ncm *

            ( itab_zycit245-perda_e / 100 ).

        itab_zycit245-qtd_ncm = itab_zycit245-qtd_ncm -

                                itab_zycit245-qtd_perda_e.

        itab_zycit245-qtd_tot = itab_zycit245-qtd_tot -

                  ( itab_zycit245-qtd_perda_e * v_conv_t ).

      ENDIF.

      MODIFY itab_zycit245.

    ENDIF.

* << Fim da exclusão

  ENDLOOP.

  LOOP AT itab_zycit246_final.

    CHECK itab_zycit246_final-cancel EQ space.

    IF /pws/zycie244-tipo NE 'G'.

      /pws/zycie244-s_compfob = /pws/zycie244-s_compfob -

         ( itab_zycit246_final-netpr * itab_zycit246_final-qtd_iten ).

      /pws/zycie244-s_compqtd =

                    /pws/zycie244-s_compqtd -

 itab_zycit246_final-qtd_iten.

    ELSE.

...