CE PLUS - Nota 004475
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: BL
Data/Hora da Publicação: 21/08/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 10:11:14
Descrição da Nota: GRAVAÇÃO DA IDENTIFICAÇÃO DO BL COM CARACTERES E NÚMEROS
Sintoma
O programa não esta permitindo a gravação do número de identificação do BL que contenha letras.
Solução
Criada tratativa para conferir o país do processo.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04475 Data: 21/08/2007 Hora: 15:15:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04475
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
GRAVAÇÃO DA IDENTIFICAÇÃO DO BL COM CARACTERES E NÚMEROS
----------------------------------------------------------------------------------------------------
Palavras Chave:
BL IDENTIFICAÇÃO ARGENTINA CHILE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI002F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002F02
...
IF wa_zycie093 IS INITIAL.
MOVE: /pws/zycie093 TO wa_zycie093.
v_proc = 'S'.
ENDIF.
ENDIF.
ENDFORM.
FORM verify_integrity_fields.
DATA: v_cont TYPE i VALUE 0,
v_cont2 TYPE i VALUE 0.
v_cont = strlen( /pws/zycie093-identdcheg ).
* >> Início da inclusão: FORM VERIFY_INTEGRITY_FIELDS
IF t001-land1 EQ 'BR'.
* << Fim da inclusão
IF ( /pws/zycie093-meiotransp EQ 'TA' AND
/pws/zycie093-tpdoccheg EQ '2' ).
DO v_cont TIMES.
IF ( /pws/zycie093-identdcheg+v_cont2(1) NE '0' AND
/pws/zycie093-identdcheg+v_cont2(1) NE '1' AND
/pws/zycie093-identdcheg+v_cont2(1) NE '2' AND
/pws/zycie093-identdcheg+v_cont2(1) NE '3' AND
/pws/zycie093-identdcheg+v_cont2(1) NE '4' AND
/pws/zycie093-identdcheg+v_cont2(1) NE '5' AND
/pws/zycie093-identdcheg+v_cont2(1) NE '6' AND
/pws/zycie093-identdcheg+v_cont2(1) NE '7' AND
/pws/zycie093-identdcheg+v_cont2(1) NE '8' AND
/pws/zycie093-identdcheg+v_cont2(1) NE '9' ).
MESSAGE i015 WITH text-038 text-039.
v_changed = '2'.
EXIT.
ENDIF.
v_cont2 = v_cont2 + 1.
ENDDO.
* >> Início da inclusão: FORM VERIFY_INTEGRITY_FIELDS
ENDIF.
* << Fim da inclusão
ENDIF.
IF ( /pws/zycie093-meiotransp EQ 'TA' ).
CLEAR v_cont.
v_cont = strlen( /pws/zycie093-identconh ).
IF ( v_cont > 11 ) AND
( /pws/zycie093-tpconh EQ '01' OR
/pws/zycie093-tpconh EQ '03' OR
/pws/zycie093-tpconh EQ '14' ).
MESSAGE i015 WITH text-040 text-041.
v_changed = '2'.
...