CE PLUS - Nota 014079
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DA
Data/Hora da Publicação: 22/07/2014 13:57:29
Data/Hora Última Alteração: 22/07/2014 13:57:29
Descrição da Nota: MESMO COM FLAG DE TRANSMISSÃO NA /PWS/ZYCIT000, CAMPOS FICAM ABERTOS.
Sintoma
Mesmo com flag de transmissão na /PWS/ZYCIT000, campos ficam abertos.
Solução
Corrigir verificação de parâmetro antes de abrir ou fechar campo.
Versões Tratadas
9.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 14079 Data: 16/07/2014 Hora: 10:54:07
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 14079
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00008
Agrupamento : 00173
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
MESMO COM FLAG DE TRANSMISSÃO NA /PWS/ZYCIT000, CAMPOS FICAM ABERTOS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
PARÂMETRO - TRANSMISSÃO - ZYCIT000 - CAMPOS ABERTOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI070O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI070O01
...
MODULE set_screen OUTPUT.
DATA wa_cols TYPE cxtab_column.
* >> Início da inclusão: MODULE SET_SCREEN
IF t001-bukrs NE /pws/zycie442-bukrs OR
/pws/zycit000-land1 NE t001-land1 OR
/pws/zycit000 IS INITIAL .
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie442-bukrs.
SELECT SINGLE * FROM /pws/zycit000 INTO /pws/zycit000
WHERE land1 EQ t001-land1.
ENDIF.
* << Fim da inclusão
...
...
screen-name = 'TAB_FORN' OR
screen-name = 'TAB_LOTE' OR
screen-name = 'TAB_STATUS'.
IF itab_zycit001-regime EQ '04' AND
itab_zycit001-tpdecl EQ 'DI'.
screen-invisible = 1.
MODIFY SCREEN.
ELSE.
screen-invisible = 0.
MODIFY SCREEN.
* >> Início da inclusão: MODULE SET_SCREEN
ENDIF.
ENDIF.
IF screen-name = '/PWS/ZYCIE442-CANAL' .
IF /pws/zycit000-siscomex EQ 'X'.
screen-input = 0.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
MODIFY SCREEN.
* << Fim da inclusão
ENDIF.
ENDLOOP.
WHEN '0110' OR '0412' OR '0434'.
LOOP AT SCREEN.
IF sy-tcode = '/PWS/ZYCI070_E'
OR v_tcode EQ '/PWS/ZYCI070_E'.
IF screen-name = '/PWS/ZYCIE442-DATACI'.
screen-input = 0.
MODIFY SCREEN.
ELSEIF screen-name = '/PWS/ZYCIE442-DTENVCAMBIO'.
screen-input = 0.
MODIFY SCREEN.
ELSEIF screen-name = '/PWS/ZYCIE442-ID_NRBL'.
screen-input = 0.
MODIFY SCREEN.
* >> Início da exclusão: MODULE SET_SCREEN
ENDIF.
ENDIF.
IF screen-name = '/PWS/ZYCIE442-NRDI' OR
screen-name = '/PWS/ZYCIE442-DTREG'.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie442-bukrs.
SELECT SINGLE * FROM /pws/zycit000 INTO /pws/zycit000
WHERE land1 EQ t001-land1.
IF sy-subrc = 0.
IF /pws/zycit000-siscomex = 'X'.
IF v_acto EQ 'A'.
screen-input = 1.
ELSE.
screen-input = 0.
ENDIF.
ELSE.
screen-input = 0.
* << Fim da exclusão
ENDIF.
ENDIF.
* >> Início da exclusão: MODULE SET_SCREEN
ENDIF.
* << Fim da exclusão
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
IF sy-dynnr EQ '0110'.
IF screen-name IS INITIAL.
...
...
screen-invisible = 1.
screen-active = 0.
ENDIF.
IF NOT /pws/zycie442-nrseq_pgfat IS INITIAL.
screen-input = 0.
ENDIF.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE442-COBCAMB'.
IF NOT /pws/zycie442-nrseq_pgfat IS INITIAL.
screen-input = 0.
* >> Início da inclusão: MODULE SET_SCREEN
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
MODIFY SCREEN.
IF screen-name = '/PWS/ZYCIE442-NRDI' OR
screen-name = '/PWS/ZYCIE442-DTREG' OR
screen-name = '/PWS/ZYCIE442-CANAL' OR
screen-name = '/PWS/ZYCIE442-DTDESEMB'.
IF /pws/zycit000-siscomex = 'X'.
screen-input = '0'.
* << Fim da inclusão
ENDIF.
MODIFY SCREEN.
* >> Início da inclusão: MODULE SET_SCREEN
ENDIF.
* << Fim da inclusão
ENDLOOP.
WHEN '0131' OR '0210' OR '0420' OR '0321'.
...
...
/pws/zycie442-courier NE 'S'.
screen-input = '0'.
CLEAR: /pws/zycie442-cnpjdecl.
ELSEIF ( screen-group2 EQ 'MM' AND
/pws/zycie442-mdadicao EQ 'S' ) OR
( screen-name EQ '/PWS/ZYCIE442-SETOR' AND
/pws/zycie442-recalf IS INITIAL ).
screen-input = '0'.
ELSEIF screen-name EQ '/PWS/ZYCIE442-URFDESP'.
SELECT * FROM /pws/zyglt369
* >> Início da exclusão: MODULE SET_SCREEN
INTO TABLE itab_zyglt369. "#EC CI_NOWHERE
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
INTO TABLE itab_zyglt369. "#EC CI_NOWHERE
* << Fim da inclusão
IF sy-subrc EQ 0.
screen-required = '1'.
ELSE.
screen-required = '0'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE442-NTGEW'.
IF /pws/zycie442-codreg NE '02' OR
NOT ( v_exdoc IS INITIAL
AND v_nac IS INITIAL ).
screen-input = '0'.
...