CE PLUS - Nota 001216
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 18/04/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:25:31
Descrição da Nota: DEV.ADIC. VERIFICA FATURAS DUPLICADAS
Sintoma
O sistema permite que um número de fatura seja utilizado para o mesmo fornecedor duas vezes, as
faturas de dois embarques diferentes possuem o mesmo número (referência), segundo a key-user da
Rhodia a versão hoje em produção (4.6C) não permite que isso ocorra
Solução
Se o fornecedor tiver marcado na VerifFaturDupl e na SPRO (revisão de faturas duplas), antes de
gravar a entrada de fatura, o pwCE fará uma verificação.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01216 Data: 18/04/2006 Hora: 10:42:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01216
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00109
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
DEV.ADIC. VERIFICA FATURAS DUPLICADAS
----------------------------------------------------------------------------------------------------
Palavras Chave:
DEV.ADIC. - VERIFICA - FATURAS - DUPLICADAS - FORNECEDOR - EMBARQUE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
REPS /PWS/MZYCI003I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
* ELSE.
* CLEAR v_refer.
* ENDIF.
* ENDIF.
* ENDIF.
* >> Início da inclusão:
PERFORM verifica_nrfat.
* << Fim da inclusão:
ENDMODULE. " consiste_referencia INPUT
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
ENDLOOP.
CLEAR v_tabix.
ENDFORM.
form verifica_nrfat.
* >> Início da inclusão: FORM VERIFICA_NRFAT
DATA: wa_zycit006 LIKE /pws/zycit006.
IF sy-tcode = '/PWS/ZYCI003_C'.
IF NOT /pws/zycie006-lifnr IS INITIAL.
SELECT SINGLE * FROM lfb1 WHERE
lifnr EQ /pws/zycie006-lifnr.
IF sy-subrc EQ 0 AND lfb1-reprf EQ 'X'.
SELECT SINGLE * FROM t169p
WHERE bukrs EQ /pws/zycie006-bukrs.
DATA v_flag TYPE c.
IF NOT t169p-xbukrs IS INITIAL
AND 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 bukrs EQ /pws/zycie006-bukrs
AND nrfat EQ /pws/zycie006-nrfat
AND dtincl EQ /pws/zycie006-dtincl.
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
AND nrfat EQ /pws/zycie006-nrfat.
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
AND dtincl EQ /pws/zycie006-dtincl.
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
AND dtincl EQ /pws/zycie006-dtincl.
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
AND bukrs EQ /pws/zycie006-bukrs.
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
AND nrfat EQ /pws/zycie006-nrfat.
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
AND dtincl EQ /pws/zycie006-dtincl.
IF sy-subrc EQ 0.
v_flag = 'X'.
ENDIF.
ENDIF.
IF v_flag = 'X'.
MESSAGE e013 WITH text-163 text-164.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
...