CE PLUS - Nota 011208
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: BL
Data/Hora da Publicação: 06/06/2011 00:00:00
Data/Hora Última Alteração: 08/06/2011 16:36:24
Descrição da Nota: DADOS DO BL - PASTA TRANSPORTE - TIPO DE DOCUMENTO DE CHEGADA DA CARGA
Sintoma
Se o Tipo de Documento de Chegada da Carga for "termo de entrada" (TPDOCCHEG), pasta transporte, o
campo identificação (IDENTDCHEG) deve ter apenas 9 dígitos, conforme siscomex.
Solução
Verificar se o campo tem 9 dígitos conforme Siscomex.
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11208 Data: 06/06/2011 Hora: 14:09:46
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11208
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00007
Agrupamento : 00073
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
DADOS DO BL - PASTA TRANSPORTE - TIPO DE DOCUMENTO DE CHEGADA DA CARGA
----------------------------------------------------------------------------------------------------
Palavras Chave:
DADOS DO BL - PASTA TRANSPORTE - TIPO DE DOCUMENTO DE CHEGADA DA CARGA
IDENTIFICAÇÃO - IDENTDCHEG - SISCOMEX
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI002F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI002F02
...
FORM verify_changes.
* >> Início da exclusão: FORM VERIFY_CHANGES
CLEAR v_changed.
IF ( /pws/zycie093 NE wa_zycie093 ) OR
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_CHANGES
IF v_changed IS INITIAL.
IF ( /pws/zycie093 NE wa_zycie093 ) OR
* << Fim da inclusão
( itab_zycit094s[] NE itab_zycit094a[] ).
* >> Início da inclusão: FORM VERIFY_CHANGES
PERFORM verify_integrity_fields.
* << Fim da inclusão
PERFORM verify_tpdoccheg.
PERFORM verify_tpconh.
* >> Início da exclusão: FORM VERIFY_CHANGES
PERFORM verify_integrity_fields.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_CHANGES
ENDIF.
* << Fim da inclusão
ENDIF.
IF v_changed IS INITIAL.
v_changed = '1'.
ENDIF.
ENDFORM.
...
...
FORM verify_integrity_fields.
DATA: v_cont TYPE i VALUE 0,
v_cont2 TYPE i VALUE 0.
* >> Início da inclusão: FORM VERIFY_INTEGRITY_FIELDS
CLEAR: v_changed.
* << Fim da inclusão
v_cont = strlen( /pws/zycie093-identdcheg ).
READ TABLE itab_zycit094s INDEX 1.
IF /pws/zycit001-nrseq NE itab_zycit094s-nrseq.
SELECT SINGLE * FROM /pws/zycit001
WHERE nrseq EQ itab_zycit094s-nrseq.
ENDIF.
IF /pws/zycit001-tpdecl EQ 'DSI'.
CLEAR v_cont.
v_cont = strlen( /pws/zycie093-identconh ).
IF ( v_cont > 11 ) .
...
...
/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
CLEAR v_cont.
v_cont = strlen( /pws/zycie093-identdcheg ).
IF v_cont > 9 .
MESSAGE i015 WITH text-232 text-233.
v_changed = '2'.
EXIT.
ENDIF.
* << Fim da inclusão
ENDIF.
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.
...
----------------------------------------------------------------------------------------------------
MODIFICAR SÍMBOLOS DE TEXTO DO PROGRAMA /PWS/SAPMZYCI002 :
TEXTOS NOVOS:
SÍM.: TEXTO: CD. CM.
232 Identificação do Documento de Chegada não pode 46 46
233 conter mais que 9 dígitos. 26 26