Sintoma

embarque de mercadoria + serviço a fatura de seguro deveria considerar somente o item de mercadoria,

porém está considerando os três itens. Tanto no icone rateio como na contabilização.

Solução

Eliminar o Item de Serviço

Informações Complementares

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

Nota Número 09952 Data: 12/03/2010 Hora: 15:52:26

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

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

Nota Número              : 09952

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00012

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

09881  - 00001 - 8.0    - 00002  - AO CRIAR UMA FATURA DE FRETE CONTABILIZA INCORRETAMENTE ITEM DE S

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

FATURA DE SEGURO CONTABILIZA TODOS OS ITENS INCLUSIVE O DE SERVIÇO

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

Palavras Chave:

FATURA - SEGURO - SERVIÇO - SEGURO

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

Objetos da nota:

REPS /PWS/MZYCI003F02

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

    ENDLOOP.

  ELSEIF /pws/zycie006-tpfatura EQ '03'.

    IF NOT itab_zycit094[] IS INITIAL.

      SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003

             FOR ALL ENTRIES IN itab_zycit094

             WHERE nrseq = itab_zycit094-nrseq.

      SELECT * FROM /pws/zycit036 INTO TABLE itab_zycit036_aux

            FOR ALL ENTRIES IN itab_zycit094

            WHERE nrseq = itab_zycit094-nrseq AND

                  codigo = 'FRETEI'.

    ENDIF.

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

    IF /pws/zycie006-tpfatura = '03'.

      DELETE itab_zycit003 WHERE servico = 'X'.

    ENDIF.

* << Fim da inclusão

    CLEAR v_tpeso.

    LOOP AT itab_zycit003.

      v_tpeso = itab_zycit003-ntgew + v_tpeso.

      v_valor  = itab_zycit003-qtd_iten * itab_zycit003-vlreal.

      v_tvalor = v_tvalor + v_valor.

    ENDLOOP.

    READ TABLE itab_zycit003 INDEX 1.

    SELECT SINGLE * FROM /pws/zycit001 INTO /pws/zycie001 WHERE

    nrseq  = itab_zycit003-nrseq.

...

...

  CLEAR itab_zyglt100 .

  READ TABLE itab_zyglt100 WITH KEY zexit = 'FAT005'.

  IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

    EXPORT /pws/zycie006 TO MEMORY ID 'FAT005'.

    PERFORM (itab_zyglt100-formulario) IN PROGRAM

     (itab_zyglt100-programa)

                        TABLES     itab_zycit003

                                   itab_zycit094

                        USING      /pws/zycie001

                                   /pws/zycie006.

* >> Início da exclsão: FORM VISUALIZA_RATEIO

  IF /pws/zycie006-tpfatura = '02'.

* << Fim da inclusão

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

  IF /pws/zycie006-tpfatura = '02' OR

     /pws/zycie006-tpfatura = '03'.

    DELETE itab_zycit003 WHERE SERVICO = 'X'.

  ENDIF.

* << Fim da inclusão

  ENDIF.

  LOOP AT itab_zycit003.

    MOVE-CORRESPONDING itab_zycit003 TO itab_item_funcao.

    APPEND itab_item_funcao.

  ENDLOOP.

  CLEAR v_erro_tax.

  IF /pws/zycie006-tpfatura EQ '04'.

    LOOP AT itab_zycit047.

      MOVE: itab_zycit047-tpdesp TO itab_desp_funcao-tpdesp,

            itab_zycit047-vldp   TO itab_desp_funcao-netpr,

...