CE PLUS - Nota 013999
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 05/06/2014 08:29:41
Data/Hora Última Alteração: 05/06/2014 08:29:41
Descrição da Nota: TRATAMENTO PARA CAMPOS DA LI
Sintoma
TRATAMENTO PARA CAMPOS DA LI: Quando a LI tiver embarque fechar todos os campos da LI na
modificação. Pode até mesmo mudar para "exibição" como fazemos quando o registro está em uso se for
mais fácil de fazer no programa do que fechar campos a campo
Solução
Atualizado programa para fazer tratamentos para abertura ou fechamento dos campos da LI de acordo
com parametrização de transmissão e existência de PLI
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13999 Data: 04/06/2014 Hora: 14:57:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13999
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00171
----------------------------------------------------------------------------------------------------
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
13034 - 00003 - 9.0 - 00004 - PLI NÃO ABRE PASTA COMPLEMENTAR
13208 - 00004 - 9.0 - 00005 - TRATAMENTO PARA BLOQUEIOS DE CAMPOS DA PLI
13883 - 00005 - 9.0 - 00007 - NECESSÁRIO TRATAMENTO DE CAMPOS NA LI
----------------------------------------------------------------------------------------------------
TRATAMENTO PARA CAMPOS DA LI
----------------------------------------------------------------------------------------------------
Palavras Chave:
TRATAMENTO - CAMPOS - EXIBIÇÃO - LI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020O01
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
ENDIF.
IF /pws/zycit000-siscomex EQ 'X'.
IF screen-name EQ '/PWS/ZYCIE078-NRLI' OR
screen-name EQ '/PWS/ZYCIE078-DTREG' OR
screen-name EQ '/PWS/ZYCIE078-DTDEF' OR
screen-name EQ '/PWS/ZYCIE078-NRLI_DJAI'.
screen-input = '0'.
IF screen-name NE '/PWS/ZYCIE078-NRLI_DJAI' AND
NOT /pws/zycie078-numpli IS INITIAL.
screen-input = '1' .
* >> Início da inclusão: MODULE SET_SCREEN_0101
MODIFY SCREEN.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN_0101
MODIFY SCREEN.
* << Fim da exclusão
ENDIF.
MODIFY SCREEN.
ELSEIF /pws/zycit000-siscomex IS INITIAL.
IF screen-name EQ '/PWS/ZYCIE078-NRLI' OR
screen-name EQ '/PWS/ZYCIE078-DTREG' OR
screen-name EQ '/PWS/ZYCIE078-DTDEF' OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
PERFORM load_cnpj.
IF v_tcode = '/PWS/ZYCI020_A'.
IF /pws/zycie078-status EQ 'INA'.
v_tcode = '/PWS/ZYCI020_E'.
MESSAGE s015 WITH text-043.
PERFORM authority_empresa.
CALL SCREEN '0100'.
* >> Início da inclusão: FORM CARREGA_DADOS
ELSEIF NOT /pws/zycie078-nrseq IS INITIAL.
v_tcode = '/PWS/ZYCI020_E'.
PERFORM authority_empresa.
CALL SCREEN '0100'.
* << Fim da inclusão
ELSE.
IF /pws/zycie078-status = 'CAN'.
v_tcode = '/PWS/ZYCI020_E'.
MESSAGE s015 WITH text-036.
PERFORM authority_empresa.
CALL SCREEN '0100'.
ELSE.
PERFORM authority_empresa.
CALL SCREEN '0100'.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
top_editmode = '1'.
CALL METHOD editor2->set_readonly_mode EXPORTING
readonly_mode = top_editmode.
ELSE.
IF ( NOT v_nrpli IS INITIAL AND
NOT v_dtreg IS INITIAL ) .
top_editmode = '1'.
CALL METHOD editor2->set_readonly_mode EXPORTING
readonly_mode = top_editmode.
ELSE.
* >> Início da inclusão: FORM MODO_EXIB
IF NOT /pws/zycie078-nrseq IS INITIAL.
top_editmode = '1'.
ELSE.
* << Fim da inclusão
top_editmode = '0'.
* >> Início da inclusão: FORM MODO_EXIB
ENDIF.
* << Fim da inclusão
CALL METHOD editor2->set_readonly_mode EXPORTING
readonly_mode = top_editmode.
ENDIF.
ENDIF.
WHEN '0502'.
...