CE PLUS - Nota 004558
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Relatórios
Data/Hora da Publicação: 29/08/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:46:00
Descrição da Nota: EXPORTAÇÃO RELATÓRIO DE CONTRATOS
Sintoma
Drill down do n° do contrato. Não está chamando o contrato referenciado
Solução
Chamar a tabela interna que contêm as informações correspondente ao DrilDown.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04558 Data: 29/08/2007 Hora: 10:55:17
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04558
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00010
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04495 - 00001 - 7.0 - 00002 - RELATÓRIO DE CONTRATOS - AJUSTES PERFORMANCE
----------------------------------------------------------------------------------------------------
EXPORTAÇÃO RELATÓRIO DE CONTRATOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
RELATÓRIO, CONTRATOS,
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR010
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR010
...
itab_relat-txtnegoc TO i_result-bconegoc,
itab_relat-txtfinan TO i_result-bcofinan.
MOVE /pws/zycbt007-waersa TO i_result-waersa.
APPEND i_result.
ENDLOOP.
LOOP AT i_result.
CLEAR i_final.
MOVE-CORRESPONDING i_result TO i_final.
APPEND i_final.
ENDLOOP.
* >> Início da inclusão: FORM F_MONTA_FINAL
CLEAR i_final.
* << Fim da inclusão
ENDFORM.
FORM user_command USING ucomm TYPE sy-ucomm
selfield TYPE slis_selfield.
CASE ucomm.
WHEN 'BEAN'.
READ TABLE i_final INDEX selfield-tabindex.
* >> Início da exclusão: FORM USER_COMMAND
READ TABLE itab_zycbt001 WITH KEY nrseqc = i_final-nrseqc.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND
READ TABLE itab_relat WITH KEY nrseqc = i_final-nrseqc.
* << Fim da inclusão
REPLACE '1-' WITH ' ' INTO selfield-sel_tab_field.
CONDENSE selfield-sel_tab_field NO-GAPS.
feld = selfield-sel_tab_field.
IF feld = 'NRSEQC' OR feld = 'NRCONTR'.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD'
FIELD '/PWS/ZYCB001_E'.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM USER_COMMAND
SET PARAMETER ID '/PWS/ZYCBP019' FIELD itab_zycbt001-nrseqc.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND
SET PARAMETER ID '/PWS/ZYCBP019' FIELD itab_relat-nrseqc.
* << Fim da inclusão
CALL TRANSACTION '/PWS/ZYCB001_E' AND SKIP FIRST SCREEN.
ELSE.
MESSAGE e261(sf) WITH '/PWS/ZYCB001_E'.
ENDIF.
ENDIF.
ENDCASE.
ENDFORM.
FORM imprime_relatorio.
DATA: v_pula VALUE 'S'.
FORMAT COLOR OFF INTENSIFIED OFF.
...