CE PLUS - Nota 014028
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 11/06/2014 17:16:38
Data/Hora Última Alteração: 11/06/2014 17:16:38
Descrição da Nota: CAMPOS DA DI NÃO OBEDECEM O FLAG /PWS/ZYCIT000-SISCOMEX
Sintoma
O campo transmissão siscomex está marcado na ZERO (/PWS/ZYCIT000-SISCOMEX) e
os campos declaração (/PWS/ZYCIE085-NRDI), data do registro (/PWS/ZYCIE085-DTREG), data do
desembaraço (/PWS/ZYCIE085-DTDESEMB) e canal (/PWS/ZYCIE085-CANAL) estão abertos.
Solução
Quando o campo na zero estiver marcado, os campos mencinados acima na DI
devem ficar fechados.
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 14028 Data: 11/06/2014 Hora: 10:45:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 14028
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
05819 - 00001 - 7.0 - 00004 - HABILITAR CAMPOS DECLARAÇÃO E DATA DE REGISTRO SENÃO HOUVER RECEB
12326 - 00002 - 9.0 - 00001 - DAI - NOVA PASTA NA DI PARA INFORMAÇÕES SOBRE LACRE
----------------------------------------------------------------------------------------------------
CAMPOS DA DI NÃO OBEDECEM O FLAG /PWS/ZYCIT000-SISCOMEX
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - TRANSMISSÃO - CAMPOS DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F04
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
FORM set_screen_0100.
* >> Início da inclusão: FORM SET_SCREEN_0100
IF t001-bukrs NE /pws/zycie085-bukrs OR
/pws/zycit000-land1 NE t001-land1.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.
ENDIF.
* << Fim da inclusão
...
...
IF screen-name = 'TAB_CONT'.
* >> Início da exclusão: FORM SET_SCREEN_0100
IF t001-bukrs NE /pws/zycie085-bukrs OR
/pws/zycit000-land1 NE t001-land1.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT SINGLE * FROM /pws/zycit000 WHERE land1 EQ t001-land1.
ENDIF.
* << Fim da exclusão
IF /pws/zycit000-flag_reclass IS INITIAL.
IF /pws/zycie085-flag_reclass IS INITIAL AND
/pws/zycie085-belnr_0 IS INITIAL AND
/pws/zycie085-belnr_1 IS INITIAL AND
/pws/zycie085-belnr_2 IS INITIAL AND
/pws/zycie085-belnr_3 IS INITIAL.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDIF.
IF screen-name EQ 'TAB_LACRE'.
IF v_region EQ 'AM' .
IF /pws/zycie085-nrdi IS INITIAL.
screen-invisible = '1'.
ELSE.
screen-invisible = '0'.
ENDIF.
ELSE.
screen-invisible = '1'.
ENDIF.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: FORM SET_SCREEN_0100
IF screen-name = '/PWS/ZYCIE085-CANAL' .
IF NOT itab_zycit041-dt_mr1m IS INITIAL
OR v_nf041 EQ 'S'.
screen-input = 0.
ENDIF.
IF /pws/zycit000-siscomex EQ 'X'.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDFORM.
FORM set_screen_0110.
* >> Início da exclusão: FORM SET_SCREEN_0110
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCIE085-NRDI' OR
screen-name = '/PWS/ZYCIE085-DTREG'.
* << Fim da exclusão
IF t001-bukrs NE /pws/zycie085-bukrs OR
/pws/zycit000-land1 NE t001-land1.
SELECT SINGLE * FROM t001 WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT SINGLE * FROM /pws/zycit000 INTO /pws/zycit000
WHERE land1 EQ t001-land1.
ENDIF.
* >> Início da exclusão: FORM SET_SCREEN_0110
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.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF v_nf041 EQ 'S' .
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0110
LOOP AT SCREEN.
* << Fim da inclusão
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
IF sy-dynnr EQ '0110'.
IF ( screen-name EQ '/PWS/ZYCIE085-NRBL'
AND v_calci = 'S' ) OR
( screen-name EQ '/PWS/ZYCIE093-MEIOTRANSP' AND
NOT /pws/zycie085-nrbl IS INITIAL ).
ELSEIF ( screen-name EQ '/PWS/ZYCIE085-DTREG' AND
NOT /pws/zycie085-nrdi IS INITIAL ).
...
...
ELSEIF sy-dynnr = '0434'.
IF /pws/zycie100a-antidrate IS INITIAL AND
screen-name = 'S_ADBS'.
ELSE.
screen-input = '1'.
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
* >> Início da exclusão: FORM SET_SCREEN_0110
IF ( screen-name EQ '/PWS/ZYCIE085-DTREG' OR
screen-name EQ '/PWS/ZYCIE085-NRDI' ).
IF NOT itab_zycit041-dt_mr1m IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0110
IF screen-name = '/PWS/ZYCIE085-NRDI' OR
screen-name = '/PWS/ZYCIE085-DTREG' OR
screen-name = '/PWS/ZYCIE085-CANAL' OR
screen-name = '/PWS/ZYCIE085-DTDESEMB'.
IF NOT itab_zycit041-dt_mr1m IS INITIAL.
* << Fim da inclusão
screen-input = 0.
ELSE.
screen-input = 1.
* >> Início da inclusão: FORM SET_SCREEN_0110
ENDIF.
IF /pws/zycit000-siscomex = 'X'.
screen-input = '0'.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM SET_SCREEN_0110
MODIFY SCREEN.
IF v_nf041 EQ 'S' .
screen-input = '0'.
* << Fim da inclusão
MODIFY SCREEN.
* >> Início da inclusão: FORM SET_SCREEN_0110
ENDIF.
* << Fim da inclusão
ENDIF.
IF sy-tcode = '/PWS/ZYCI023_E'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
IF sy-dynnr = '0434'.
...