CE PLUS - Nota 006608
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 21/05/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:57:44
Descrição da Nota: INCLUSÃO DE VERIFICAÇÃO DO NUMERO DA DECLARAÇÃO DA DI
Sintoma
Inclusão de verificação do numero de declaração da DI para não permitir numeros duplicado.
Solução
Inclusão de verificação do numero de declaração da DI para não permitir numeros duplicado.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06608 Data: 21/05/2008 Hora: 14:08:57
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06608
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00048
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00033 - 00001 - 6.0 - 00021 - VERIFICAÇÃO CAMPO NÚMERO DA DI
----------------------------------------------------------------------------------------------------
INCLUSÃO DE VERIFICAÇÃO DO NUMERO DA DECLARAÇÃO DA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
NUMERO - DECLARAÇÃO - DI - UTILIZADO
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
REPT /PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DI004' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_nrdi.
* >> Início da inclusão: FORM VERIFICA_NRDI
DATA: v_nrseqdi TYPE /pws/zycie085-nrseqdi.
* << Fim da inclusão
IF NOT t001-land1 EQ 'CL' AND NOT t001-land1 EQ 'AR'.
* >> Início da inclusão: FORM VERIFICA_NRDI
IF NOT /pws/zycie085-nrdi IS INITIAL.
SELECT SINGLE nrseqdi FROM /pws/zycit085 INTO v_nrseqdi
WHERE nrseqdi NE /pws/zycie085-nrseqdi
AND nrdi EQ /pws/zycie085-nrdi.
IF sy-subrc EQ 0 .
MESSAGE e015 WITH text-254 v_nrseqdi.
ENDIF.
ENDIF.
* << Fim da inclusão
v_tam_nrdi = strlen( /pws/zycie085-nrdi ).
IF v_tam_nrdi > 10. "#EC PORTABLE
SELECT SINGLE * FROM /pws/zyglt217
WHERE arbgb EQ '/PWS/ZYCIM'
AND msgnr EQ '127'.
IF sy-subrc EQ 0 AND NOT /pws/zyglt217-msgtp IS INITIAL.
MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '127'.
ENDIF.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI023
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 254
Texto: (39 caracteres)
"Numero de declaração já utilizado na DI"
Comprimento máximo: 39