CE PLUS - Nota 010702
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 29/10/2010 00:00:00
Data/Hora Última Alteração: 05/11/2010 13:45:33
Descrição da Nota: APAGANDO INFORMAÇÃO DA ANA
Sintoma
Ao criar a ANA, preencher algumas informações (exemplo: IVA) e não dar ENTER e Salvar a ANA, o
sistema não grava as modificações feitas.
Solução
Chamar/executar o PAI das subtelas.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10702 Data: 29/10/2010 Hora: 16:25:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10702
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00005
Agrupamento : 00045
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
10699 - 00001 - TRATAMENTO DOS CAMPOS NA ANA
----------------------------------------------------------------------------------------------------
APAGANDO INFORMAÇÃO DA ANA
----------------------------------------------------------------------------------------------------
Palavras Chave:
ANA - DETALHES DO ITEM - PASTA TRIBUTOS - ERRO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI059I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI059I01
...
sy-tcode NE '/PWS/ZYCI059_I' AND
v_nrseqdi IS INITIAL.
LEAVE TO SCREEN '0010'.
ELSE.
LEAVE PROGRAM.
ENDIF.
ENDIF.
ENDCASE.
WHEN '0400'.
CASE ok_code.
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
WHEN 'BACK' OR 'LEAV'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
WHEN 'LEAV'.
* << Fim da inclusão
PERFORM: save_data_item,
calc_itab.
LOOP AT itab_it WHERE NOT mark IS initial.
itab_it-mark = space.
MODIFY itab_it INDEX sy-tabix TRANSPORTING mark.
ENDLOOP.
LEAVE TO SCREEN '0100'.
ENDCASE.
ENDCASE.
ENDMODULE.
...
...
IF v_ipt > 1.
s_ometv = s_oregt = s_oregp = s_ofund =
s_oacor = s_oalad = s_oexm = s_oexii =
s_oexipi = s_oexad = space.
CALL SCREEN '0440' STARTING AT 5 2.
ELSE.
MESSAGE s015 WITH text-041.
ENDIF.
WHEN 'ENTE'.
PERFORM save_data_item.
* >> Início da inclusão: MODULE USER_COMMAND_0231
WHEN 'BACK'.
PERFORM: save_data_item,
calc_itab.
LOOP AT itab_it WHERE NOT mark IS initial.
itab_it-mark = space.
MODIFY itab_it INDEX sy-tabix TRANSPORTING mark.
ENDLOOP.
LEAVE TO SCREEN '0100'.
* << Fim da inclusão
ENDCASE.
ENDCASE.
ENDMODULE.
...
...