CE PLUS - Nota 008293
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 09/04/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 16:17:37
Descrição da Nota: AO FAZER FATURA DE SERVIÇO, NÃO CONSIDERA MATUSE PARA FAZER MIGO
Sintoma
Ao fazer fatura de serviço, não considera matuse para fazer migo.
Solução
Passar a verificar matuse no programa de fatura.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08293 Data: 09/04/2009 Hora: 11:46:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08293
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00093
----------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------
AO FAZER FATURA DE SERVIÇO, NÃO CONSIDERA MATUSE PARA FAZER MIGO
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA DE SERVIÇO - MATUSE - UTILIZAÇÃO DE MATERIAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
IF v_mr1m_ok EQ 'S'.
IF NOT itab_zycit003[] IS INITIAL.
SELECT *
FROM ekpo
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln EQ itab_zycit003-ebeln AND
ebelp EQ itab_zycit003-ebelp AND
wepos EQ 'X'.
ENDSELECT.
ENDIF.
* >> Início da exclusão: FORM EXECUTA_RECEBIMENTO
IF sy-subrc EQ '0' AND /pws/zycie006-tpfatura NE '11'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_RECEBIMENTO
IF sy-subrc EQ '0' and not ekpo-j_1bmatuse is initial.
* << Fim da inclusão
PERFORM fill_date_mb01.
PERFORM unlock_fornecedor.
ELSE.
v_mb01_ok = 'S'.
v_servico = 'X'.
ENDIF.
IF v_mb01_ok EQ 'S'.
PERFORM fill_date_f_51.
IF v_f_51_ok EQ 'S'.
PERFORM calcula_custo.
...