CE PLUS - Nota 009784
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 04/02/2010 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:16:50
Descrição da Nota: CORREÇÃO DO TRATAMENTO PARA O FLAG VINCULO SERVIÇO.
Sintoma
Para embarque modalidade 03 ao criar um fatura de despesas e flegar a opção vinculo serviço o
programa está considerando os itens que não são de serviços na contantabilização da fatura.
Solução
Ajustado programa para considerar apenas os itens que são de serviço na contabilização da fatura
quando a opção vinculo serviço estiver marcada.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09784 Data: 04/02/2010 Hora: 17:00:17
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09784
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00007
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07279 - 00001 - 7.0 - 00006 - QUANDO FATURA DE SERVIÇO LIVRE DE DÉBITO RECLAMA DE QUE NÃO POSSU
09568 - 00002 - 8.0 - 00002 - FATURA DE DESPESA COM PEDIDOS E MATUSES DIFERENTES SERVIÇO FALHA
----------------------------------------------------------------------------------------------------
CORREÇÃO DO TRATAMENTO PARA O FLAG VINCULO SERVIÇO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
CONTABILIZAÇÃO - FLAG - VINCULO - SERVIÇO - FATURA - DESPESAS
/PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
SELECT SINGLE nrseqce FROM /pws/zycit094
INTO v_nrseqce
WHERE nrseq = itab_zycit003-nrseq. "#EC CI_NOFIRST
SELECT SINGLE * FROM /pws/zycit001 INTO /pws/zycie001
WHERE nrseq = itab_zycit003-nrseq.
IF /pws/zycie001-modalidade EQ '02'.
v_subrc = 'X'.
ENDIF.
IF v_subrc NE 'X' .
IF ( /pws/zycie001-modalidade EQ '03' AND
* >> Início da inclusão: FORM SELECIONA_BL
v_nrseqce IS INITIAL AND
* << Fim da inclusão
itab_zycit003-servico EQ 'X' ).
ELSE.
SELECT * FROM /pws/zycit094 INTO TABLE itab_zycit094
WHERE nrseqce = v_nrseqce.
/pws/zycie006-nrseqce = v_nrseqce.
IF /pws/zycie006-nrseqce IS INITIAL.
MESSAGE s015 WITH text-075.
ENDIF.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
itab_zycbt035_aux.
FREE : itab_zycbt035_aux.
DESCRIBE TABLE itab_zycit003 LINES v_line.
SELECT * FROM /pws/zycit039
INTO TABLE itab_zycit039
WHERE codmod EQ 'D' AND
land1 EQ t001-land1.
LOOP AT itab_zycit047 WHERE vldp NE 0.
CLEAR : v_desp_aux, v_valor_desp.
IF /pws/zycie006-tpfatura = '04' AND
* >> Início da exclusão: FORM MULTIPLOS_LANCAMENTOS
/pws/zycie006-vinserv NE 'X' AND
itab_zycit003-servico EQ 'X' AND
* << Fim da exclusão
/pws/zycie001-modalidade = '03'.
* >> Início da exclusão: FORM MULTIPLOS_LANCAMENTOS
DELETE itab_zycit003 WHERE servico = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
DELETE itab_zycit003
WHERE servico NE /pws/zycie006-vinserv.
* << Fim da inclusão
DESCRIBE TABLE itab_zycit003 LINES v_line.
ENDIF.
...