Sintoma

O programa não está preenchendo automaticamente as quantidades de perdas ao informarmos a

porcentagem.

Solução

Ajustado o preenchimento das quantidades de perda.

Informações Complementares

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

Nota Número 04954 Data: 10/10/2007 Hora: 14:59:54

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

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

Nota Número              : 04954

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

PREENCHIMENTO DAS QUANTIDADES DE PERDA NO ATO CONCESSÓRIO

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

Palavras Chave:

PERDA EXCEDENTE ATO CONCESSÓRIO PREENCHIMENTO

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

Objetos da nota:

REPS /PWS/MZYCI040F02

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

...

    ENDIF.

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

 itab_zycit245-netpr_t.

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

      /pws/zycie244-s_compqtd = /pws/zycie244-s_compqtd +

 itab_zycit245-qtd_tot.

    ENDIF.

    /pws/zycie244-waerscomp = itab_zycit245-waers.

    /pws/zycie244-meinscomp = itab_zycit245-meins.

    MODIFY itab_zycit245.

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

    CLEAR: v_um_rez, v_um_ren.

    PERFORM carrega_umncm_imp USING itab_zycit245-j_1bnbm

                                itab_zycit245-codcomp

                          CHANGING v_um_basica

                                   v_um_rez

                                   v_um_ren

                                   v_umncm.

    IF NOT  v_um_rez IS INITIAL

       AND  v_um_ren >= v_um_rez.

* << Fim da exclusão

      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_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

    ENDIF.

* << Fim da exclusão

    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.

...