CE PLUS - Nota 006282
Módulo: DRAWBACK
Funcionalidade: Composição
Data/Hora da Publicação: 31/03/2008 00:00:00
Data/Hora Última Alteração: 01/03/2010 18:08:28
Descrição da Nota: LOG DE ERRO (EXCEL)
Sintoma
O programa não exporta o log de erro para o excel.
Solução
Atualização do log de erro da composição de isenção.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06282 Data: 31/03/2008 Hora: 08:23:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06282
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00040
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
LOG DE ERRO (EXCEL)
----------------------------------------------------------------------------------------------------
Palavras Chave:
DRAWBACK COMPOSIÇÃO ISENÇÃO LOG DE ERRO
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCI064
DYNP /PWS/SAPMZYCI064 0600
REPS /PWS/MZYCI064F03
REPS /PWS/MZYCI064I01
REPS /PWS/ZYCIR346
REPT /PWS/SAPMZYCI064
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI064 ST0600
*Adicionar o botão:
Barra de botões
Texto de função: Chama relatório
Nome de icone: ICON_LIST
Texto informativo Teclas de função Exportações não vinculadas
Código de função Tecla F Tecla de função Código de função Texto
000021 02 F2 CLI Selecionar
* >> Início da inclusão: CUAD /PWS/SAPMZYCI064
000021 05 F5 PLANI Chama
relatório
* << Fim da inclusão
000021 12 F12 CANC Cancelar
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064F03
...
SELECT eknam UP TO 1 ROWS FROM t024 INTO v_ngrpcpra3
WHERE ekgrp EQ /pws/zycie258-ekgrp.
ENDSELECT.
ENDIF.
IF v_cent_ei NE space.
SELECT SINGLE name1 FROM t001w INTO v_txtcent_ei
WHERE werks EQ v_cent_ei.
ENDIF.
ENDMODULE.
FORM selecionar_exportacoes3.
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
DATA: BEGIN OF itab_log OCCURS 0,
matnr TYPE /pws/zycet118-matnr ,
nrseqre TYPE /pws/zycet116-nrseqre ,
nrre TYPE /pws/zycet116-nrre ,
nrseq TYPE /pws/zycet001-nrseq ,
dtemb TYPE /pws/zycet001-dtemb ,
log1(50) TYPE c ,
log2(50) TYPE c ,
log3(50) TYPE c ,
log4(50) TYPE c ,
log5(50) TYPE c ,
log6(50) TYPE c ,
END OF itab_log .
DATA: idmemory1 TYPE indx-srtfd VALUE 'LOGCOM' .
* << Fim da inclusão
DATA: v_comisag LIKE /pws/zycet066-vlagente,
v_waersag LIKE /pws/zycet066-waers ,
v_nrre_temp(14) ,
v_ncm_lista(10).
DATA: BEGIN OF itab_lote OCCURS 0 .
DATA: vbeln TYPE lips-vbeln,
posnr TYPE lips-posnr,
charg TYPE lips-charg,
qtd TYPE /pws/zycit279-menge.
DATA: END OF itab_lote.
...
...
MOVE: itab_msg_erro_aux-icon1 TO itab_msg_erro-icon4.
ELSEIF itab_msg_erro-icon5 IS INITIAL.
MOVE: itab_msg_erro_aux-icon1 TO itab_msg_erro-icon5.
ELSEIF itab_msg_erro-icon6 IS INITIAL.
MOVE: itab_msg_erro_aux-icon1 TO itab_msg_erro-icon6.
ENDIF.
MODIFY itab_msg_erro INDEX v_index.
ENDIF.
ENDLOOP.
CALL SCREEN 0600 STARTING AT 5 5.
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
REFRESH itab_log.
LOOP AT itab_msg_erro.
CLEAR: itab_log.
MOVE: itab_msg_erro-matnr TO itab_log-matnr,
itab_msg_erro-nrseqre TO itab_log-nrseqre,
itab_msg_erro-nrre TO itab_log-nrre ,
itab_msg_erro-nrseq TO itab_log-nrseq,
itab_msg_erro-dtemb TO itab_log-dtemb .
PERFORM log USING itab_msg_erro-icon1
CHANGING itab_log-log1.
PERFORM log USING itab_msg_erro-icon2
CHANGING itab_log-log2.
PERFORM log USING itab_msg_erro-icon3
CHANGING itab_log-log3.
PERFORM log USING itab_msg_erro-icon4
CHANGING itab_log-log4.
PERFORM log USING itab_msg_erro-icon5
CHANGING itab_log-log5.
PERFORM log USING itab_msg_erro-icon6
CHANGING itab_log-log6.
APPEND itab_log.
ENDLOOP.
EXPORT itab_log TO MEMORY ID idmemory1.
SUBMIT /pws/zycir346 AND RETURN.
* << Fim da inclusão
ENDIF.
PERFORM limpa_tabelas.
PERFORM equip_exp.
PERFORM comerc_exp.
LOOP AT itab_det_exp_final WHERE j_1bnbm EQ space.
SELECT SINGLE a~steuc INTO itab_det_exp_final-j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ itab_det_exp_final-matnr
AND a~steuc NE space
* >> Início da exclusão: FORM SELECIONAR_EXPORTACOES3
AND b~land1 EQ t001-land1. "#EC CI_BUFFJOIN
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_EXPORTACOES3
AND b~land1 EQ t001-land1. "#EC CI_BUFFJOIN
* << Fim da inclusão
MODIFY itab_det_exp_final TRANSPORTING j_1bnbm
WHERE matnr EQ itab_det_exp_final-matnr.
ENDLOOP.
PERFORM carrega_resumo_exportacao3.
ENDIF.
IF itab_det_exp_final[] IS INITIAL.
MESSAGE s015 WITH text-267 text-268.
ENDIF.
PERFORM limpa_tabelas.
ENDFORM.
...
...
itab_di_final-t_benef =
itab_di_final-i_vlii + itab_di_final-i_vlipi.
itab_comp_vinc_final-qtd_stotal =
itab_comp_vinc_final-qtd_stotal -
itab_di_final-qtd_vinc.
itab_di_final-v_sel = 'X'.
ENDIF.
APPEND itab_di_final.
MODIFY itab_dis.
ENDFORM.
* >> Início da inclusão:
FORM log USING p_icon
CHANGING p_mess.
CASE p_icon.
WHEN '@AG@'.
p_mess = text-259.
WHEN '@AH@'.
p_mess = text-261.
WHEN '@AI@'.
p_mess = text-262.
WHEN '@02@'.
p_mess = text-263.
WHEN '@9U@'.
p_mess = text-264.
WHEN '@6V@'.
p_mess = text-265.
ENDCASE.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064I01
...
SELECT stlan stlnr stlal UP TO 1 ROWS FROM mast
INTO (/pws/zycie247-stlan,
/pws/zycie247-stlnr,
/pws/zycie247-stlal)
WHERE matnr = /pws/zycie247-codmat
AND werks = /pws/zycie247-werks.
ENDSELECT.
ENDMODULE.
MODULE user_command_0600 INPUT.
CASE ok_code.
* >> Início da inclusão: MODULE USER_COMMAND_0600
WHEN 'PLANI'.
SET SCREEN 0.
* << Fim da inclusão
WHEN 'CANC'.
CLEAR itab_msg_erro.
REFRESH itab_msg_erro.
SET SCREEN 0.
WHEN 'CLI'.
DATA: v_export(20) TYPE c.
CLEAR: v_campo, v_valor.
GET CURSOR FIELD v_campo VALUE v_valor.
IF NOT v_valor IS INITIAL.
CASE v_campo.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR346
Criar programa: /PWS/ZYCIR346
Título: CI - Log seleção de exportações na composição
Categoria: Programa executável
Cl.desenvolvimento: /PWS/ZYCI
Aritmética em ponto fixo [X]
Bloqueio do editor [ ]
Inicio via variante [ ]
Codigo fonte:
* >> Início da inclusão:
REPORT /pws/zycir346 MESSAGE-ID /pws/zycim.
FIELD-SYMBOLS: <tab>.
INCLUDE /pws/z_rel_alv.
DATA: BEGIN OF itab_log OCCURS 0,
matnr TYPE /pws/zycet118-matnr ,
nrseqre TYPE /pws/zycet116-nrseqre ,
nrre TYPE /pws/zycet116-nrre ,
nrseq TYPE /pws/zycet001-nrseq ,
dtemb TYPE /pws/zycet001-dtemb ,
log1(50) TYPE c ,
log2(50) TYPE c ,
log3(50) TYPE c ,
log4(50) TYPE c ,
log5(50) TYPE c ,
log6(50) TYPE c ,
END OF itab_log .
DATA: BEGIN OF itab_log2 OCCURS 0,
matnr TYPE /pws/zycet118-matnr ,
nrseqre TYPE /pws/zycet116-nrseqre ,
nrre TYPE /pws/zycet116-nrre ,
nrseq TYPE /pws/zycet001-nrseq ,
dtemb TYPE /pws/zycet001-dtemb ,
log1(50) TYPE c ,
log2(50) TYPE c ,
log3(50) TYPE c ,
log4(50) TYPE c ,
log5(50) TYPE c ,
log6(50) TYPE c ,
selk ,
col ,
END OF itab_log2 .
DATA: idmemory TYPE indx-srtfd VALUE 'LOGCOM' .
DATA: v_formato.
DATA: v_selinfo TYPE c VALUE 'X'.
DATA: v_varian TYPE disvariant.
DATA: v_marc TYPE ttab-tabname VALUE 'X'.
INITIALIZATION.
START-OF-SELECTION.
IMPORT itab_log FROM MEMORY ID idmemory.
IF itab_log[] IS INITIAL.
ELSE.
itab_log2[] = itab_log[].
PERFORM f_fieldcat_fill.
PERFORM monta_rel_alv.
ENDIF.
END-OF-SELECTION.
FORM f_fieldcat_fill.
DATA: v_inteiro TYPE i.
CLEAR afield.
v_inteiro = v_inteiro + 1.
afield-col_pos = v_inteiro.
afield-fieldname = 'MATNR'.
afield-ref_fieldname = 'MATNR'.
afield-ref_tabname = 'MARA'.
afield-outputlen = 15.
afield-seltext_s = text-001.
afield-seltext_m = text-001.
afield-seltext_l = text-001.
afield-reptext_ddic = text-001.
afield-just = 'C'.
APPEND afield TO i_fieldcat.
CLEAR afield.
v_inteiro = v_inteiro + 1.
afield-col_pos = v_inteiro.
afield-fieldname = 'NRSEQRE'.
afield-ref_fieldname = 'NRSEQRE'.
afield-ref_tabname = '/PWS/ZYCET116'.
afield-outputlen = 15.
afield-seltext_s = text-002.
afield-seltext_m = text-002.
afield-seltext_l = text-002.
afield-reptext_ddic = text-002.
afield-just = 'C'.
APPEND afield TO i_fieldcat.
CLEAR afield.
v_inteiro = v_inteiro + 1.
afield-col_pos = v_inteiro.
afield-fieldname = 'NRRE'.
afield-ref_fieldname = 'NRRE'.
afield-ref_tabname = '/PWS/ZYCET116'.
afield-outputlen = 15.
afield-seltext_s = text-003.
afield-seltext_m = text-003.
afield-seltext_l = text-003.
afield-reptext_ddic = text-003.
afield-just = 'C'.
APPEND afield TO i_fieldcat.
CLEAR afield.
v_inteiro = v_inteiro + 1.
afield-col_pos = v_inteiro.
afield-fieldname = 'NRSEQ'.
afield-ref_fieldname = 'NRSEQ'.
afield-ref_tabname = '/PWS/ZYCET001'.
afield-outputlen = 15.
afield-seltext_s = text-004.
afield-seltext_m = text-004.
afield-seltext_l = text-004.
afield-reptext_ddic = text-004.
afield-just = 'C'.
APPEND afield TO i_fieldcat.
CLEAR afield.
v_inteiro = v_inteiro + 1.
afield-col_pos = v_inteiro.
afield-fieldname = 'DTEMB'.
afield-ref_fieldname = 'DTEMB'.
afield-ref_tabname = '/PWS/ZYCET001'.
afield-outputlen = 15.
afield-seltext_s = text-005.
afield-seltext_m = text-005.
afield-seltext_l = text-005.
afield-reptext_ddic = text-005.
afield-just = 'C'.
APPEND afield TO i_fieldcat.
CLEAR afield.
v_inteiro = v_inteiro + 1.
afield-col_pos = v_inteiro.
afield-fieldname = 'LOG1'.
afield-outputlen = 50.
afield-seltext_s = text-006.
afield-seltext_m = text-006.
afield-seltext_l = text-006.
afield-reptext_ddic = text-006.
afield-just = 'C'.
APPEND afield TO i_fieldcat.
LOOP AT itab_log2 WHERE log2 NE space.
CONTINUE.
ENDLOOP.
IF itab_log2-log2 IS INITIAL.
EXIT.
ENDIF.
CLEAR afield.
v_inteiro = v_inteiro + 1.
afield-col_pos = v_inteiro.
afield-fieldname = 'LOG2'.
afield-outputlen = 50.
afield-seltext_s = text-006.
afield-seltext_m = text-006.
afield-seltext_l = text-006.
afield-reptext_ddic = text-006.
afield-just = 'C'.
APPEND afield TO i_fieldcat.
LOOP AT itab_log2 WHERE log3 NE space.
CONTINUE.
ENDLOOP.
IF itab_log2-log3 IS INITIAL.
EXIT.
ENDIF.
CLEAR afield.
v_inteiro = v_inteiro + 1.
afield-col_pos = v_inteiro.
afield-fieldname = 'LOG3'.
afield-outputlen = 50.
afield-seltext_s = text-006.
afield-seltext_m = text-006.
afield-seltext_l = text-006.
afield-reptext_ddic = text-006.
afield-just = 'C'.
APPEND afield TO i_fieldcat.
LOOP AT itab_log2 WHERE log4 NE space.
CONTINUE.
ENDLOOP.
IF itab_log2-log4 IS INITIAL.
EXIT.
ENDIF.
CLEAR afield.
v_inteiro = v_inteiro + 1.
afield-col_pos = v_inteiro.
afield-fieldname = 'LOG4'.
afield-outputlen = 50.
afield-seltext_s = text-006.
afield-seltext_m = text-006.
afield-seltext_l = text-006.
afield-reptext_ddic = text-006.
afield-just = 'C'.
APPEND afield TO i_fieldcat.
LOOP AT itab_log2 WHERE log5 NE space.
CONTINUE.
ENDLOOP.
IF itab_log2-log5 IS INITIAL.
EXIT.
ENDIF.
CLEAR afield.
v_inteiro = v_inteiro + 1.
afield-col_pos = v_inteiro.
afield-fieldname = 'LOG5'.
afield-outputlen = 50.
afield-seltext_s = text-006.
afield-seltext_m = text-006.
afield-seltext_l = text-006.
afield-reptext_ddic = text-006.
afield-just = 'C'.
APPEND afield TO i_fieldcat.
LOOP AT itab_log2 WHERE log6 NE space.
CONTINUE.
ENDLOOP.
IF itab_log2-log6 IS INITIAL.
EXIT.
ENDIF.
CLEAR afield.
v_inteiro = v_inteiro + 1.
afield-col_pos = v_inteiro.
afield-fieldname = 'LOG6'.
afield-outputlen = 50.
afield-seltext_s = text-006.
afield-seltext_m = text-006.
afield-seltext_l = text-006.
afield-reptext_ddic = text-006.
afield-just = 'C'.
APPEND afield TO i_fieldcat.
ENDFORM.
FORM e04_comment_build USING p_gt_list_top_of_page.
DATA: ls_line TYPE slis_listheader,
v_data(10) TYPE c,
v_hora(10),
v_butxt TYPE t001-butxt,
v_cgc TYPE j_1bwfield-cgc_number,
v_cnpj(18) TYPE c,
v_j_1bbranch TYPE t001w-j_1bbranch.
CLEAR: ls_line.
ls_line-typ = 'H'.
ls_line-info = text-007.
APPEND ls_line TO gt_list_top_of_page.
ENDFORM.
FORM top_of_page_alv.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = gt_list_top_of_page.
ENDFORM.
FORM monta_rel_alv.
MOVE sy-repid TO v_repid.
CALL FUNCTION '/PWS/ZYGL_GERA_RELATORIO_ALV'
EXPORTING
v_program = v_repid
v_pf_status = ' '
v_user_command = ' '
v_top_of_page = 'TOP_OF_PAGE_ALV'
v_selinfo = 'X'
v_zebra = 'X'
v_otimizado = 'X'
TABLES
i_fieldcat = i_fieldcat
t_data = itab_log2
it_sort = i_sort.
ENDFORM.
* << Fim da inclusão
*Elementos de texto
001 Código Material 15 15
002 Sequencial RE 13 20
003 RE nº 5 20
004 Seq. Embarque 13 13
005 Data Embarque 13 13
007 Log de embarques de exportação não utilizados na composição 59 70
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI064
------------------------------------------------------------------------
Modificado símbolo de texto:
Idioma: PT
Símbolo: 259
Texto: (45 caracteres)
"RE com código de enquadramento não permitido."
Comprimento máximo: 55