Sintoma

Ao criar a fatura de serviço e salvar, zera o campo de peso liquido do item no embarque, não

deixando modificar.

Solução

Quando é fatura de serviço o programa não deve recalcular o peso. Só recalcula o peso quando

Modalidade diferente de "02" e Serviço diferente de "X".

Informações Complementares

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

Nota Número 04403 Data: 13/08/2007 Hora: 14:23:48

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

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

Nota Número              : 04403

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00007

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

FATURA DE SERVIÇO

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

Palavras Chave:

PESO DO ITEM; DIFERE DO PESO DA FATURA

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

Objetos da nota:

REPS /PWS/MZYCI003F02

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

                                ebelp = itab_zycit003-ebelp.

      tfre = tfre + itab_zycit263-vlfre_fat.

      tseg = tseg + itab_zycit263-vlseg_fat.

      tntg = tntg + itab_zycit263-ntgew.

      tqtd = tqtd + itab_zycit263-qtd_iten.

      tvlr = tvlr + ( itab_zycit263-vlreal * itab_zycit263-qtd_iten ).

    ENDLOOP.

    itab_zycit003-vlfre_fat = tfre.

    itab_zycit003-vlseg_fat = tseg.

    IF okcode NE 'DELE'.

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

      IF /pws/zycie001-modalidade NE '02' AND

         itab_zycit003-servico    NE 'X'.

* << Fim da inclusão

      itab_zycit003-ntgew     = tntg.

    ENDIF.

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

    ENDIF.

* << Fim da inclusão

    itab_zycit003-vlreal    = tvlr / tqtd.

    MODIFY itab_zycit003 INDEX v_idx

                    TRANSPORTING ntgew vlseg_fat vlfre_fat vlreal.

  ENDLOOP.

  MODIFY /pws/zycit003 FROM TABLE itab_zycit003.

...