CE PLUS - Nota 001921
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 11/08/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:03:45
Descrição da Nota: O CAMPO REFERÊNCIA DA FATURA ESTÁ CONSISTINDO COM AS ELIMINADAS.
Sintoma
Temos um problema na fatura pois quando o usuário estorna, o campo referência não pode ser utilizado
com os dados iguais.Conseguimos achar uma tabela (T169P) onde o sistema faz uma verificação se os
campos estão flegados. Quando desflegamos todos os campos, a fatura poderá ser criada com os mesmos
dados.
Solução
Atualização do programa de Fatura para o sistema não selecionar faturas eliminadas.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01921 Data: 11/08/2006 Hora: 11:17:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01921
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00126
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01216 - 00001 - 6.0 - 00023 - DEV.ADIC. VERIFICA FATURAS DUPLICADAS
----------------------------------------------------------------------------------------------------
O CAMPO REFERÊNCIA DA FATURA ESTÁ CONSISTINDO COM AS ELIMINADAS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
T169P - FATURA - CAMPO REFERÊNCIA - CRIAÇÃO DE FATURA.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
SELECT SINGLE * FROM /pws/zycit006
INTO wa_zycit006
WHERE nrseq NE /pws/zycie006-nrseq
AND bukrs EQ /pws/zycie006-bukrs
AND nrfat EQ /pws/zycie006-nrfat
* >> Início da exclusão: FORM VERIFICA_NRFAT
AND dtincl EQ /pws/zycie006-dtincl.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRFAT
AND dtincl EQ /pws/zycie006-dtincl
and eliminado ne 'X'.
* << Fim da inclusão
IF sy-subrc EQ 0.
v_flag = 'X'.
ENDIF.
ELSEIF NOT t169p-xbukrs IS INITIAL
AND NOT t169p-xxblnr IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006
INTO wa_zycit006
WHERE nrseq NE /pws/zycie006-nrseq
AND bukrs EQ /pws/zycie006-bukrs
* >> Início da exclusão: FORM VERIFICA_NRFAT
AND nrfat EQ /pws/zycie006-nrfat.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRFAT
AND nrfat EQ /pws/zycie006-nrfat
and eliminado ne 'X'.
* << Fim da inclusão
IF sy-subrc EQ 0.
v_flag = 'X'.
ENDIF.
ELSEIF NOT t169p-xbukrs IS INITIAL
AND NOT t169p-xbldat IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006
INTO wa_zycit006
WHERE nrseq NE /pws/zycie006-nrseq
AND bukrs EQ /pws/zycie006-bukrs
AND nrfat EQ /pws/zycie006-nrfat
* >> Início da exclusão: FORM VERIFICA_NRFAT
AND dtincl EQ /pws/zycie006-dtincl.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRFAT
AND dtincl EQ /pws/zycie006-dtincl
and eliminado ne 'X'.
* << Fim da inclusão
IF sy-subrc EQ 0.
v_flag = 'X'.
ENDIF.
ELSEIF NOT t169p-xxblnr IS INITIAL
AND NOT t169p-xbldat IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006
INTO wa_zycit006
WHERE nrseq NE /pws/zycie006-nrseq
AND nrfat EQ /pws/zycie006-nrfat
* >> Início da exclusão: FORM VERIFICA_NRFAT
AND dtincl EQ /pws/zycie006-dtincl.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRFAT
AND dtincl EQ /pws/zycie006-dtincl
and eliminado ne 'X'.
* << Fim da inclusão
IF sy-subrc EQ 0.
v_flag = 'X'.
ENDIF.
ELSEIF NOT t169p-xbukrs IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006
INTO wa_zycit006
WHERE nrseq NE /pws/zycie006-nrseq
* >> Início da exclusão: FORM VERIFICA_NRFAT
AND bukrs EQ /pws/zycie006-bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRFAT
AND bukrs EQ /pws/zycie006-bukrs
and eliminado ne 'X'.
* << Fim da inclusão
IF sy-subrc EQ 0.
v_flag = 'X'.
ENDIF.
ELSEIF NOT t169p-xxblnr IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006
INTO wa_zycit006
WHERE nrseq NE /pws/zycie006-nrseq
* >> Início da exclusão: FORM VERIFICA_NRFAT
AND nrfat EQ /pws/zycie006-nrfat.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRFAT
AND nrfat EQ /pws/zycie006-nrfat
and eliminado ne 'X'.
* << Fim da inclusão
IF sy-subrc EQ 0.
v_flag = 'X'.
ENDIF.
ELSEIF NOT t169p-xbldat IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006
INTO wa_zycit006
WHERE nrseq NE /pws/zycie006-nrseq
* >> Início da exclusão: FORM VERIFICA_NRFAT
AND dtincl EQ /pws/zycie006-dtincl.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_NRFAT
AND dtincl EQ /pws/zycie006-dtincl
and eliminado ne 'X'.
* << Fim da inclusão
IF sy-subrc EQ 0.
v_flag = 'X'.
ENDIF.
ENDIF.
IF v_flag = 'X'.
...