CE PLUS - Nota 001215

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Custo Efetivo

Data/Hora da Publicação: 18/04/2006 00:00:00

Data/Hora Última Alteração: 20/06/2011 12:25:25

Descrição da Nota: SISTEMA ESTA SE PERDENDO NA COMPOSIÇÃO DO VALOR TOTAL DA PASTA ITEM NO D

Sintoma

Sistema está se perdendo na composição do valor Total da pasta Item, no detalhe da Nota Fiscal

Global.

 

 

 

Solução

Ajustado calculo incorreto no FORM CALCULAR_OUTROS_CUSTOS.

 

 

Versões Tratadas

6.0

Informações Complementares

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

Nota Número 01215 Data: 18/04/2006 Hora: 10:27:10

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

 

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

Nota Número              : 01215

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00109

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

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

SISTEMA ESTA SE PERDENDO NA COMPOSIÇÃO DO VALOR TOTAL DA PASTA ITEM NO D

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

Palavras Chave:

COMPOSIÇÃO - VALOR - TOTAL - NFG

 

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

Objetos da nota:

REPS /PWS/ZYCIR006

 

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

Modificações efetuadas em REPS /PWS/ZYCIR006

 

...

                v_valor = itab_zycit036-vlreal.

              ENDIF.

              v_val_tots = v_val_tots + v_valor.

              MOVE v_valor TO v_val.

            ELSE.

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

           IF NOT v_val_tots IS INITIAL AND itab_zycit036-origem = 'NF'

* << Fim da exclusão

                                          .

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

               v_val = ( /pws/zycit085-vlseg * /pws/zycit085-ukursseg )

                                                     - v_val_tots .

* << Fim da exclusão

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

           if not v_val_tots is initial and itab_zycit036-origem = 'NF'.

              v_val = ( /pws/zycit085-vlseg * /pws/zycit085-ukursseg ) .

              perform retorna_decimais using /pws/zycit085-waersseg

                                             changing v_val.

               v_val = v_val - v_val_tots.

* << Fim da inclusão

              ELSE.

                IF itab_zycit036-origem = 'NF'.

                  IF t001-land1 = 'BR'.

                    v_valor = itab_zycit100-vlseg.

                  ELSE.

...

 

...

                  ENDIF.

                  IF v_tot_lins = 1 .

                    v_val = ( /pws/zycit085-vlseg      *

                              /pws/zycit085-ukursseg ) .

                  ELSE.

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

                    v_val = ( /pws/zycit085-vlseg      *

                             /pws/zycit085-ukursseg ) -

                             v_valor .

* << Fim da exclusão

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

                    v_val =  ( /pws/zycit085-vlseg      *

                             /pws/zycit085-ukursseg ) - v_valor .

* << Fim da inclusão

                  ENDIF.

                ELSE.

                  v_valor = itab_zycit036-vlreal.

                  v_val   = itab_zycit036-vlreal.

                ENDIF.

...