CE PLUS - Nota 013883
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 24/04/2014 00:00:00
Data/Hora Última Alteração: 20/05/2014 09:08:53
Descrição da Nota: NECESSÁRIO TRATAMENTO DE CAMPOS NA LI
Sintoma
Quando está flegado transmissão Siscomex na cit000 os três campos devem ficar fechados...inclusive a
data de deferimento que está ficando aberta
quando não tiver o flag na cit000 os três ficam abertos e isto já está ok
mas tem um porém, quando a li for gerada por uma pli estes 3 campos precisam ficar abertos mesmo
quando na cit000 tiver o flag de transmissão...
Solução
Fazer tratamento para Abrir campos na LI se for originada por uma PLI e de acordo com o flag
siscomex
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13883 Data: 24/04/2014 Hora: 15:36:17
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13883
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
12255 - 00001 - 8.0 - 00011 - AJUSTES PARA TRANSMISSÃO SUFRAMA PLI
12259 - 00002 - 8.0 - 00011 - AJUSTES PARA TRATAMENTO DE TRANSMISSÃO PLI
13342 - 00003 - 9.0 - 00006 - DJAI PARA PROCESSOS LATAM - DESENVOLVIMENTO ADICIONAL
13371 - 00004 - 9.0 - 00006 - DJAI PARA PROCESSOS LATAM - DESENVOLVIMENTO ADICIONAL
13487 - 00005 - 9.0 - 00006 - EDIÇÃO DO CAMPO LICENCIAMENTO E DATA DE REGISTRO DA LI
----------------------------------------------------------------------------------------------------
NECESSÁRIO TRATAMENTO DE CAMPOS NA LI
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAMPO - LI - DEFERIMENTO - TRANSMISSÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
ELSE.
IF screen-group3 EQ 'VIN'.
screen-input = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycit000-siscomex EQ 'X'.
IF screen-name EQ '/PWS/ZYCIE078-NRLI' OR
screen-name EQ '/PWS/ZYCIE078-DTREG' OR
* >> Início da inclusão: MODULE SET_SCREEN_0101
screen-name EQ '/PWS/ZYCIE078-DTDEF' OR
* << Fim da inclusão
screen-name EQ '/PWS/ZYCIE078-NRLI_DJAI'.
screen-input = '0'.
* >> Início da inclusão: MODULE SET_SCREEN_0101
IF screen-name NE '/PWS/ZYCIE078-NRLI_DJAI' AND
NOT /pws/zycie078-numpli IS INITIAL.
screen-input = '1' .
ENDIF.
* << Fim da inclusão
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN_0101
MODIFY SCREEN.
* << Fim da inclusão
ELSEIF /pws/zycit000-siscomex IS INITIAL.
IF screen-name EQ '/PWS/ZYCIE078-NRLI' OR
screen-name EQ '/PWS/ZYCIE078-DTREG' OR
* >> Início da inclusão: MODULE SET_SCREEN_0101
screen-name EQ '/PWS/ZYCIE078-DTDEF' OR
* << Fim da inclusão
screen-name EQ '/PWS/ZYCIE078-NRLI_DJAI'.
screen-input = '1'.
MODIFY SCREEN.
ENDIF.
...
...
sy-tcode EQ '/PWS/ZYCI020_U' OR
sy-tcode EQ '/PWS/ZYCI020_T' ) AND
( NOT v_nrpli IS INITIAL OR
NOT v_dtreg IS INITIAL ) .
IF screen-name NE '/PWS/ZYCIE078-NRLI' AND
screen-name NE '/PWS/ZYCIE078-DTREG' AND
screen-name NE '/PWS/ZYCIE078-NRLI_DJAI'.
screen-input = '0'.
IF screen-name EQ '/PWS/ZYCIE078-DTDEF'.
screen-input = '1'.
* >> Início da inclusão: MODULE SET_SCREEN_0101
ENDIF.
MODIFY SCREEN.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN_0101
IF ( sy-tcode EQ '/PWS/ZYCI020_A' OR
sy-tcode EQ '/PWS/ZYCI020_C' ) AND
NOT /pws/zycie078-numpli IS INITIAL.
IF screen-name EQ '/PWS/ZYCIE078-NRLI' OR
screen-name EQ '/PWS/ZYCIE078-DTREG' OR
screen-name EQ '/PWS/ZYCIE078-DTDEF'.
screen-input = '1' .
* << Fim da inclusão
MODIFY SCREEN.
* >> Início da inclusão: MODULE SET_SCREEN_0101
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
IF v_tcode EQ '/PWS/ZYCI020_T' OR
v_tcode EQ '/PWS/ZYCI020_U' OR
v_tcode EQ '/PWS/ZYCI020_V'.
IF screen-group2 = 'DJA'.
...