CE PLUS - Nota 007168
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 20/08/2008 00:00:00
Data/Hora Última Alteração: 03/02/2010 17:05:39
Descrição da Nota: ESTAVA PERMITINDO ALTERAR A FATURA MESMO DEPOIS DA CRIAÇÃO DA DI
Sintoma
O programa de Fatura de Mercadoria não estava verificando se existia DI para realizar o controle de
permissão de acesso para altera-la
Solução
Verificava se exite DI para permitir alterar a Fatura de Mercadoria
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07168 Data: 20/08/2008 Hora: 11:51:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07168
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00061
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
ESTAVA PERMITINDO ALTERAR A FATURA MESMO DEPOIS DA CRIAÇÃO DA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - ALTERAR - DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
SELECT SINGLE *
FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycie006-bukrs.
IF sy-subrc NE 0.
MESSAGE e120.
ENDIF.
ENDIF.
MOVE /pws/zycbt007 TO wa_zycbt007.
ENDFORM.
FORM trata_save.
* >> Início da exclusão: FORM TRATA_SAVE
SELECT SINGLE *
FROM /pws/zycit085
WHERE nrbl EQ /pws/zycie006-nrseqce
AND nrdi NE ''
AND dtreg NE ''. "#EC CI_NOFIELD
* << Fim da exclusão
IF /pws/zycie006-imposto EQ 'X'
AND /pws/zycie006-tpfatura EQ '04'.
DELETE itab_zycit483 WHERE vldp EQ 0
OR iva EQ space
OR tpdesp EQ space.
IF itab_zycit483[] IS INITIAL.
MESSAGE i015 WITH text-184 text-185.
EXIT.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM TRATA_SAVE
IF v_refer NE 'X' AND sy-subrc NE 0.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_SAVE
SELECT SINGLE *
FROM /pws/zycit085
WHERE nrbl EQ /pws/zycie006-nrseqce.
IF sy-subrc NE 0.
* << Fim da inclusão
PERFORM consiste_campos_obrigatorios.
ELSEIF ( /pws/zycie006-tpfatura EQ '01' AND
/pws/zycie006-frpagto EQ 'P' ) OR
/pws/zycie006-tpfatura NE '01'.
IF v_refer NE 'X'.
PERFORM consiste_campos_obrigatorios.
ENDIF.
ELSE.
MESSAGE e039 WITH text-041.
ENDIF.
...