Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 10/11/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:23:42
Descrição da Nota: CONTABILIZAR FATURA COM ELEMENTO PEP,NÃO CONSIDERA CLASSE DE AVALIAÇÃO
Sintoma
Ao contabilizar fatura com elemento pep, não considera a classe de avaliação para buscar conta.
Solução
Verificar se a fatura é de serviço antes de remover a classe de avaliação.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10723 Data: 10/11/2010 Hora: 11:36:05
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10723
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00005
Agrupamento : 00047
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08116 - 00001 - 7.0 - 00008 - IMPLEMENTAÇÃO DA FATURA DE SERVIÇO COM PEDIDO DE SERVIÇO
08250 - 00002 - 7.0 - 00009 - SELEÇÃO DE CONTAS PARA ITENS SEM MATUSE
----------------------------------------------------------------------------------------------------
CONTABILIZAR FATURA COM ELEMENTO PEP,NÃO CONSIDERA CLASSE DE AVALIAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ELEMENTO PEP - CLASSE DE AVALIAÇÃO - FATURA DE SERVIÇO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
IF sy-subrc EQ 0.
MOVE:
itab_matuse-j_1bmatuse TO itab_zycbt035_aux-matuse,
itab_classe_aval-bklas TO itab_zycbt035_aux-bklas .
ELSE.
MOVE: itab_matuse-j_1bmatuse TO itab_zycbt035_aux-matuse,
space TO itab_zycbt035_aux-bklas .
ENDIF.
ELSE.
MOVE: itab_matuse-j_1bmatuse TO itab_zycbt035_aux-matuse,
* >> Início da exclusão: FORM MULTIPLOS_LANCAMENTOS
itab_matuse-knttp TO itab_zycbt035_aux-knttp ,
space TO itab_zycbt035_aux-bklas .
* << Fim da exclusão
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
itab_matuse-knttp TO itab_zycbt035_aux-knttp .
IF /pws/zycie006-tpfatura EQ '11'.
MOVE space TO itab_zycbt035_aux-bklas .
ELSE.
READ TABLE itab_classe_aval WITH KEY
matnr = itab_matuse-matnr
bwkey = itab_zycit003-werks
bwtar = itab_matuse-bwtar.
IF sy-subrc EQ 0.
MOVE itab_classe_aval-bklas TO itab_zycbt035_aux-bklas .
ENDIF.
ENDIF.
* << Fim da inclusão
IF itab_matuse-j_1bmatuse IS INITIAL.
CLEAR: itab_t023.
READ TABLE itab_t023 WITH KEY matkl = itab_matuse-matkl.
IF sy-subrc NE 0.
SELECT SINGLE * FROM t023 INTO itab_t023
WHERE matkl EQ itab_matuse-matkl.
APPEND itab_t023.
ENDIF.
MOVE: itab_t023-bklas TO itab_zycbt035_aux-bklas.
ENDIF.
...
...
IF itab_matuse-j_1bmatuse IS INITIAL.
CLEAR: itab_t023.
READ TABLE itab_t023 WITH KEY matkl = itab_matuse-matkl.
IF sy-subrc NE 0.
SELECT SINGLE * FROM t023 INTO itab_t023
WHERE matkl EQ itab_matuse-matkl.
APPEND itab_t023.
ENDIF.
MOVE: itab_t023-bklas TO itab_zycbt035_aux-bklas.
ELSE.
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS_F_51
IF /pws/zycie006-tpfatura EQ '11'.
* << Fim da inclusão
MOVE: itab_matuse-j_1bmatuse TO itab_zycbt035_aux-matuse,
space TO itab_zycbt035_aux-bklas .
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS_F_51
ELSE.
MOVE itab_matuse-j_1bmatuse TO itab_zycbt035_aux-matuse.
CLEAR: itab_classe_aval.
READ TABLE itab_classe_aval WITH KEY
matnr = itab_matuse-matnr
bwkey = itab_zycit003-werks
bwtar = itab_matuse-bwtar.
IF sy-subrc EQ 0.
MOVE itab_classe_aval-bklas TO itab_zycbt035_aux-bklas .
ENDIF.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
itab_zycbt035_aux-wrbtr = itab_zycit003-total.
itab_zycbt035_aux-werks = itab_zycit003-werks.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
...