Visualização da Nota 8075

CE PLUS - Nota 008075

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: BL

Data/Hora da Publicação: 18/02/2009 00:00:00

Data/Hora Última Alteração: 22/02/2011 14:17:04

Descrição da Nota: VERIFICAÇÃO DE QUANTIDADE DE CARACTERES PARA O CAMPO IDENTIFICAÇÃO DO BL

Sintoma

Verificação da quantidade de caracteres para o campo identificação no BL.

Solução

Verificação da quantidade de caracteres para o campo identificação no BL.

Versões Tratadas

7.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 4475

GRAVAÇÃO DA IDENTIFICAÇÃO DO BL COM CARACTERES E NÚMEROS

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 08075 Data: 18/02/2009 Hora: 11:29:28

----------------------------------------------------------------------------------------------------

Nota Número : 08075

Categoria : Melhoria

Prioridade : Baixa

Versão PW.CE : 7.0

Pacote : 00008

Agrupamento : 00086

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

04475 - 00001 - 7.0 - 00002 - GRAVAÇÃO DA IDENTIFICAÇÃO DO BL COM CARACTERES E NÚMEROS

----------------------------------------------------------------------------------------------------

VERIFICAÇÃO DE QUANTIDADE DE CARACTERES PARA O CAMPO IDENTIFICAÇÃO DO BL

----------------------------------------------------------------------------------------------------

Palavras Chave:

VERIFICA - CARACTERES - IDENTIFICAÇÃO - BL - QUANTIDADE - SISCOMEX

/PWS/SAPMZYCI002

----------------------------------------------------------------------------------------------------

Objetos da nota:

DYNP /PWS/SAPMZYCI002 0102

REPS /PWS/MZYCI002F02

REPS /PWS/MZYCI002I01

REPS /PWS/MZYCI002X01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em DYNP /PWS/SAPMZYCI002 0102

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0102

...

field /pws/zycie093-tpdoccheg module verifica_tpdoccheg.

field /pws/zycie093-tpconh module verifica_tpconh on request.

field /pws/zycie093-multimod module verifica_multimod.

field /pws/zycie093-idemissor module verifica_idemissor.

field /pws/zycie093-embarca module verifica_embarca.

field /pws/zycie093-placa module verifica_placa.

field /pws/zycie093-transp module verifica_transp.

field /pws/zycie093-descrtransp module verifica_descrtransp.

field /pws/zycie093-bandtransp module verifica_bandtransp.

field /pws/zycie093-localemb module verify_changes.

* >> Início da inclusão:

FIELD /pws/zycie093-identconh MODULE verifica_ident.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI002F02

...

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

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 ) .

MESSAGE i015 WITH text-040 text-041.

v_changed = '2'.

EXIT.

ENDIF.

CLEAR v_cont.

ELSE.

* << Fim da inclusão

IF t001-land1 EQ 'BR'.

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

...

MESSAGE i015 WITH text-046 text-047.

v_changed = '2'.

EXIT.

ENDIF.

IF ( /pws/zycie093-meiotransp EQ 'PS' ).

CLEAR v_cont.

v_cont = strlen( /pws/zycie093-identconh ).

IF v_cont > 11.

MESSAGE i015 WITH text-048 text-049.

* >> Início da inclusão: FORM VERIFY_INTEGRITY_FIELDS

v_changed = '2'.

EXIT.

ENDIF.

IF ( /pws/zycie093-meiotransp EQ 'RD' ).

CLEAR v_cont.

v_cont = strlen( /pws/zycie093-identconh ).

IF v_cont > 16 .

MESSAGE i015 WITH text-044 text-045.

* << Fim da inclusão

v_changed = '2'.

EXIT.

* >> Início da inclusão: FORM VERIFY_INTEGRITY_FIELDS

ENDIF.

* << Fim da inclusão

ENDIF.

ENDFORM.

...

SELECT SINGLE nrseq

FROM /pws/zycit094

INTO v_nrseq

WHERE nrseqce = /pws/zycie093-nrseqce.

IF NOT v_nrseq IS INITIAL.

SELECT SINGLE nrseqdi

FROM /pws/zycit100

INTO v_nrseqdi

WHERE nrseq = v_nrseq. "#EC CI_NOFIRST

IF NOT v_nrseqdi IS INITIAL.

* >> Início da exclusão: FORM DADOS_CABECALHO

SELECT SINGLE dtatrac

* << Fim da exclusão

* >> Início da inclusão: FORM DADOS_CABECALHO

SELECT SINGLE tpdi dtatrac

* << Fim da inclusão

FROM /pws/zycit085

* >> Início da exclusão: FORM DADOS_CABECALHO

INTO /pws/zycie093-dtatrac

* << Fim da exclusão

* >> Início da inclusão: FORM DADOS_CABECALHO

INTO (v_tpdi, /pws/zycie093-dtatrac)

* << Fim da inclusão

WHERE nrseqdi = v_nrseqdi.

ENDIF.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI002I01

...

* >> Início da inclusão:

module verifica_ident input.

perform verify_integrity_fields.

endmodule.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI002X01

...

v_dtemiss .

DATA: gv_subscreen_0050 TYPE sy-dynnr VALUE '0051',

gv_subscreen_0100_1 TYPE sy-dynnr,

gv_subscreen_0300_2 TYPE sy-dynnr.

CONSTANTS: BEGIN OF gc_subscreen,

prog TYPE sy-dynnr VALUE '0100',

help TYPE sy-dynnr VALUE '0053',

END OF gc_subscreen.

DATA: gv_html_help TYPE REF TO cl_gui_html_viewer.

DATA: gv_help_show TYPE boolean VALUE ' '.

* >> Início da inclusão:

DATA: v_tpdi TYPE /pws/zycit085-tpdi.

* << Fim da inclusão

DATA: END OF COMMON PART a.