Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 01/03/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:39:39
Descrição da Nota: DESEMBARAÇO - OCULTAR CAMPOS DIVISA E AJUSTE
Sintoma
Ocultar os campos DIVISA e AJUSTE na pasta Valor Aduaneiro no Detalhe do Item.
Solução
Verificar a tabela /PWS/ZYCIT477 e caso o país esteja parametrizado, ocultar os campos DIVISA e
AJUSTE na pasta Valor Aduaneiro no Detalhe do Item.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09883 Data: 01/03/2010 Hora: 09:06:10
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09883
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00010
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08919 - 00004 - 7.0 - 00010 - TRADUÇÃO CLASSE /PWS/ZYCI (EN)
09072 - 00003 - 8.0 - 00001 - VÁRIOS AJUSTES DE TRATAMENTO E VARIAÇÃO DA ANA - DI ARGENTINA
09392 - 00002 - 8.0 - 00001 - REMOVER OBRIGATORIEDADE DE CANAL PARA O CHILE (ANA)
09397 - 00001 - 8.0 - 00001 - NOS PROCESSOS DO CHILE AVISAR O NUMERO DA DECLARAÇÃO COM 11 DIGIT
----------------------------------------------------------------------------------------------------
DESEMBARAÇO - OCULTAR CAMPOS DIVISA E AJUSTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESEMBARAÇO - OCULTAR CAMPOS DIVISA E AJUSTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI059 0420
REPS /PWS/MZYCI059F02
REPS /PWS/MZYCI059O01
REPS /PWS/MZYCI059X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI059 0420
MODIFICAR FRAME "%#AUTOTEXT003"
Grupo 1 AC
MODIFICAR TEXTO "/PWS/ZYCIE100A-AJUSTE"
Grupo 1 AC
MODIFICAR TEXTO "/PWS/ZYCIE100A-DIVISA"
Grupo 1 AC
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059F02
...
FORM load_inco.
CLEAR a_inco1.
SELECT SINGLE bezei FROM tinct INTO a_inco1 WHERE
spras = sy-langu AND
inco1 = wa_it-inco1.
ENDFORM.
FORM load_mval USING p_mval.
CLEAR a_metv.
SELECT SINGLE descricao FROM /pws/zycit173 INTO a_metv WHERE
codmat = p_mval.
* >> Início da inclusão: FORM LOAD_MVAL
CLEAR wa_zycit477.
SELECT SINGLE * FROM /pws/zycit477 INTO wa_zycit477
WHERE land = t001-land1.
* << Fim da inclusão
ENDFORM.
FORM load_alad USING p_aladi.
CLEAR a_aladi.
SELECT SINGLE descricao FROM /pws/zycet168 INTO a_aladi WHERE
codaladi = p_aladi.
ENDFORM.
FORM load_mdpg.
CLEAR: a_modpa.
SELECT SINGLE descricao FROM /pws/zycit193 INTO a_modpa WHERE
codmodpag = /pws/zycie006-mdpgto.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059O01
...
ENDIF.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
WHEN '0131' OR '0420'.
LOOP AT SCREEN.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
* >> Início da inclusão: MODULE SET_SCREEN
IF sy-dynnr EQ '0420' AND t001-land1 EQ wa_zycit477-land.
screen-invisible = '1'.
MODIFY screen.
CONTINUE.
ENDIF.
* << Fim da inclusão
IF v_acto EQ 'A'.
screen-input = '1'.
IF screen-group4 EQ 'REQ'.
screen-required = '1'.
ENDIF.
IF screen-name EQ '/PWS/ZYCIE085-OPFUNDAP' AND
/pws/zycie085-codreg EQ '03'.
screen-input = screen-required = '0'.
screen-invisible = '1'.
ELSEIF screen-name EQ '/PWS/ZYCIE085-OPFUNDAP' AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059X01
...
wa_it122 LIKE itab_zycit049,
wa_it123 LIKE itab_zycit049,
xthead LIKE thead,
xtheadc LIKE thead,
xtheadi LIKE thead,
xtheada LIKE thead,
xtheado LIKE thead,
xtheadx LIKE thead,
wa_j_1bbranch LIKE j_1bbranch,
wa_t001w LIKE t001w,
* >> Início da inclusão:
wa_zycit477 LIKE /pws/zycit477,
* << Fim da inclusão
wa_zycet050 LIKE /pws/zycet050,
wa_zycit375 LIKE /pws/zycit375.
DATA: BEGIN OF wa_ender.
DATA: stras LIKE t001w-spras,
ort01 LIKE t001w-ort01,
regio LIKE t001w-regio.
DATA: END OF wa_ender.
DATA:
i_desc(20),
s_ometv,
...