PW.TP - Nota 002280
Módulo: PROCESSO EXPORTAÇÃO
Funcionalidade: Analise Oficial DIPJ
Data/Hora da Publicação: 19/10/2006 00:00:00
Data/Hora Última Alteração: 16/02/2011 09:43:34
Descrição da Nota: DUMP DIPJ EXIBIÇÃO 80% MAIORES OPERAÇÕES
Sintoma
Ocorre um Dump ao executar o relatório de DIPJ com a opção de exibição de 80% maiores operações.
Solução
A variável referenciada no field-symbol foi substituida por uma existente.
Versões Tratadas
Não Usar - 2.00.0000
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02280 Data: 19/10/2006 Hora: 09:54:45
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02280
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.TP : 2.0
Pacote : 00023
Agrupamento : 00002
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02186 - 02186 - 2.0 - 00023 - CÁLCULO DO MÉTODO PRL ACUMULADO
----------------------------------------------------------------------------------------------------
DUMP DIPJ EXIBIÇÃO 80% MAIORES OPERAÇÕES
----------------------------------------------------------------------------------------------------
Palavras Chave:
DUMP DIPJ EXIBIÇÃO 80% MAIORES OPERAÇÕES
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYTPR042
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYTPR042
...
MOVE v_hora TO ls_line-info.
APPEND ls_line TO t_cabec.
ENDFORM.
FORM linhas_a_serem_exibidas.
DATA: w_calc LIKE t_calculo.
* >> Início da inclusão: FORM LINHAS_A_SEREM_EXIBIDAS
DATA w_campo TYPE fieldname.
* << Fim da inclusão
FIELD-SYMBOLS: <valor_total> TYPE p,
<valor_aux> TYPE p,
<valor_linha> TYPE p,
<valor_acum> TYPE p,
<valor_max> TYPE p.
CATCH SYSTEM-EXCEPTIONS arithmetic_errors = 1.
IF p_80 = 'X'.
* >> Início da exclusão: FORM LINHAS_A_SEREM_EXIBIDAS
ASSIGN LOCAL COPY OF INITIAL (/pws/zytpt000-ordemr0003)
TO : <valor_aux>, <valor_total>.
* << Fim da exclusão
* >> Início da inclusão: FORM LINHAS_A_SEREM_EXIBIDAS
UNASSIGN <valor_total>.
CONCATENATE 'W_CALC-' /pws/zytpt000-ordemr0003
INTO w_campo.
ASSIGN LOCAL COPY OF INITIAL (w_campo)
TO <valor_total>.
CHECK sy-subrc EQ 0.
* << Fim da inclusão
LOOP AT t_calculo INTO w_calc.
ASSIGN COMPONENT /pws/zytpt000-ordemr0003
OF STRUCTURE w_calc TO <valor_aux>.
IF sy-subrc EQ 0.
<valor_total> = <valor_total> + <valor_aux>.
...