Sintoma

Ao criar uma Fatura de Frete que possui mais de um item e um dos itens é de serviço esta

contabilizando junto com os outros itens

Solução

Verificar se o pedido possui mais de um item e possui itens de serviço no mesmo processo para

remover o item de serviço da contabilização

Informações Complementares

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

Nota Número 09881 Data: 26/02/2010 Hora: 17:18:31

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

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

Nota Número              : 09881

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00010

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AO CRIAR UMA FATURA DE FRETE CONTABILIZA INCORRETAMENTE ITEM DE SERVIÇO

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

Palavras Chave:

FATURA - FRETE - ITEM - SERVIÇO - MATERIAL

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

Objetos da nota:

REPS /PWS/MZYCI003F02

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

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

      ENDIF.

      CLEAR : itab_zycbt035-ebeln, itab_zycbt035-ebelp.

      COLLECT itab_zycbt035.

    ENDLOOP.

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

    SELECT SINGLE * FROM /pws/zycit000 WHERE land1 = t001-land1.

    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.

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

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

        DELETE itab_zycit003 WHERE SERVICO = 'X'.

* << Fim da inclusão

    ENDIF.

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

    ENDIF.

* << Fim da inclusão

    CLEAR v_tpeso.

    LOOP AT itab_zycit003.

      v_tpeso = itab_zycit003-ntgew + v_tpeso.

    ENDLOOP.

    CLEAR: itab_ekkn. FREE itab_ekkn.

    IF NOT itab_zycit003[] IS INITIAL.

...

...

  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 inclusão: FORM VISUALIZA_RATEIO

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

    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,

...