CE PLUS - Nota 008183
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 12/03/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:03:33
Descrição da Nota: FECHAR CAMPOS APÓS CRIAÇÃO DA NOTA FISCAL
Sintoma
Fechar campos após a criação da nota fiscal.
Solução
Fecha campos após a criação da nota fiscal.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08183 Data: 12/03/2009 Hora: 11:15:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08183
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00088
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02325 - 00001 - 6.0 - 00025 - TRATAMENTO PARA SUSPENSÃO DE ICMS NA DI POR REGIÃO
----------------------------------------------------------------------------------------------------
FECHAR CAMPOS APÓS CRIAÇÃO DA NOTA FISCAL
----------------------------------------------------------------------------------------------------
Palavras Chave:
FECHAR - CAMPO - DI - NOTA - FISCAL - CRIAR - VALORES - DATA - TAXA
/PWS/SAPMZYCI023 - MOEDA - ALIQUOTA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
screen-input = 0.
ELSE.
screen-input = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF sy-tcode = '/PWS/ZYCI023_E'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: FORM SET_SCREEN_0110
IF sy-dynnr = '0434'.
IF sy-tcode EQ '/PWS/ZYCI023_E'
OR v_nf041 EQ 'S'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDFORM.
FORM set_screen_0131.
LOOP AT SCREEN.
IF screen-group1 EQ 'AC'.
screen-input = '0'.
IF v_acto EQ 'A'.
IF NOT sy-dynnr EQ '0420'.
screen-input = '1'.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
screen-name EQ '/PWS/ZYCIE100A-ADVALCOFINS'.
IF /pws/zycie100a-codregtripiscofi EQ '6'.
screen-input = 0.
ENDIF.
ENDIF.
IF v_acto EQ 'E'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDCASE.
* >> Início da inclusão: MODULE SET_SCREEN_PADRAO
IF sy-dynnr = '0435' OR
sy-dynnr = '0433' OR
sy-dynnr = '0132'.
IF sy-tcode EQ '/PWS/ZYCI023_E'
OR v_nf041 EQ 'S'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDLOOP.
IF sy-dynnr = '0141'.
IF itab_zycit001-meioemba EQ 'PS'.
LOOP AT tc_pag-cols INTO v_cols.
IF v_cols-screen-name EQ '/PWS/ZYCIE095-VALOR' OR
v_cols-screen-name EQ '/PWS/ZYCIE095-RECEITA'.
v_cols-screen-input = 0.
ENDIF.
MODIFY tc_pag-cols FROM v_cols.
ENDLOOP.
...