CE PLUS - Nota 009722
Módulo: DRAWBACK
Funcionalidade: Vinculação de Importação
Data/Hora da Publicação: 26/01/2010 00:00:00
Data/Hora Última Alteração: 17/02/2011 14:15:19
Descrição da Nota: MENSAGENS DE ERRO
Sintoma
O programa não exibe o motivo da não vinculação dos pedidos de importação.
Solução
Criação de mensagens de erro.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09722 Data: 26/01/2010 Hora: 09:43:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09722
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00006
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07580 - 00001 - 7.0 - 00007 - VALOR DAS REMESSAS
----------------------------------------------------------------------------------------------------
MENSAGENS DE ERRO
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGENS NO PROGRAMA DE VINCULAÇÃO DE IMPORTAÇÕES
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCI068
DYNP /PWS/SAPMZYCI068 0400
REPS /PWS/MZYCI068F01
REPS /PWS/MZYCI068I01
REPS /PWS/MZYCI068O01
REPS /PWS/MZYCI068X01
REPT /PWS/SAPMZYCI068
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI068
*Criação do Status GUI ST0400
Testo breve: Pedidos não vinculados.
Categoria de status: Caixa de diálogo.
*Incluir botão na barra de botões
Texto de função: CANC
Nome do ícone: ICON_CANCEL
Texto informativo: Cnacelar
*Incluir teclas de Função:
F12
Código de função CANC
Categoria de função Função de aplicação
Texto de função CANC
Nome de ícone ICON_CANCEL
Texto informativo Cancelar
ENTER
Código de função ENTE
Categoria de função Função de aplicação
Texto de função Cancel
Nome de ícone ICON_CANCEL
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI068 0400
INCLUIR CX.DIÁLOGO 0400
Descrição Pedidos não vinculados
Tela seguinte 0400
Altura atual (linhas) 20
Largura atual (colunas) 120
INCLUIR CONTROLE DE TABELA "TC_MSG_ERRO"
Altura 18
Comprimento Visível 114
Linha 2
Coluna 3
INCLUIR TEXTO "PEDIDO" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 6
Linha 1
Coluna 1
Formato CHAR
Texto Pedido
INCLUIR TEXTO "ITEM" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 4
Linha 1
Coluna 2
Formato CHAR
Texto Item
INCLUIR TEXTO "DESCRICAO" em tbl.contr./tabstr.
Altura 90
Comprimento Visível 9
Linha 1
Coluna 3
Formato CHAR
Texto Descrição
INCLUIR CAMPO TEXTO "ITAB_MSG-EBELN" em tbl.contr./tabstr.
Altura 10
Comprimento Visível 10
Linha 1
Coluna 1
Formato CHAR
Texto __________
INCLUIR CAMPO TEXTO "ITAB_MSG-EBELP" em tbl.contr./tabstr.
Altura 5
Comprimento Visível 5
Linha 1
Coluna 2
Formato NUMC
Texto _____
INCLUIR CAMPO TEXTO "ITAB_MSG-MSG" em tbl.contr./tabstr.
Altura 90
Comprimento Visível 100
Linha 1
Coluna 3
Formato CHAR
Texto _______________________________________________
INCLUIR OKCODE ""
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0400
* >> Início da inclusão:
PROCESS BEFORE OUTPUT.
MODULE status_0400.
LOOP AT itab_msg WITH CONTROL tc_msg_erro CURSOR
tc_msg_erro-current_line.
ENDLOOP.
PROCESS AFTER INPUT.
LOOP AT itab_msg.
ENDLOOP.
MODULE USER_COMMAND_0400.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI068F01
FORM user_command_001.
IF sy-tcode EQ '/PWS/ZYCI068_A'.
PERFORM lock_registro USING 'E'.
PERFORM selec_apr.
* >> Início da inclusão: FORM USER_COMMAND_001
IF NOT itab_msg[] IS INITIAL.
CALL SCREEN 0400 STARTING AT 5 5.
ENDIF.
* << Fim da inclusão
MESSAGE i015 WITH text-005.
LEAVE TO TRANSACTION sy-tcode.
ELSE.
PERFORM lock_registro USING 'E'.
PERFORM selec_des.
LEAVE TO TRANSACTION sy-tcode.
ENDIF.
ENDFORM.
FORM selec_apr.
REFRESH: itab_zycit376,
...
...
OR nrseqd EQ space.
DELETE itab_zycit079
WHERE nrseqli EQ itab_zycit078-nrseqli.
ENDLOOP.
ENDIF.
ENDIF.
SELECT * FROM /pws/zycit030 INTO TABLE itab_zycit030
WHERE codigo EQ 'FOB'. "#EC CI_NOFIRST
PERFORM monta_376_apr.
IF NOT itab_zycit376_t[] IS INITIAL.
* >> Início da inclusão: FORM SELEC_APR
IF NOT itab_msg[] IS INITIAL.
CALL SCREEN 0400 STARTING AT 5 5.
ENDIF.
* << Fim da inclusão
CALL SCREEN 0100.
ENDIF.
ELSE.
ENDIF.
ENDFORM.
FORM monta_376_apr.
DATA: v_grupo TYPE /pws/zycit433-grupo,
v_flag TYPE c .
DATA : v_ebelp TYPE komv-kposn,
v_vl_temp TYPE /pws/zycit376-vlfob.
...
...
ELSE.
MESSAGE i015 WITH text-025.
ENDIF.
ENDIF.
LOOP AT itab_ekpo.
CLEAR itab_zycit376_t.
READ TABLE itab_zycit376 WITH KEY
ebeln = itab_ekpo-ebeln
ebelp = itab_ekpo-ebelp.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM MONTA_376_APR
itab_msg-ebeln = itab_zycit376-ebeln.
itab_msg-ebelp = itab_zycit376-ebelp.
CONCATENATE text-029 itab_zycit376-nrseqd
INTO itab_msg-msg SEPARATED BY space.
APPEND itab_msg.
* << Fim da inclusão
CONTINUE.
ENDIF.
READ TABLE itab_zycit079 WITH KEY
ebeln = itab_ekpo-ebeln
ebelp = itab_ekpo-ebelp.
IF sy-subrc EQ 0.
READ TABLE itab_zycit078 WITH KEY nrseqli = itab_zycit079-nrseqli.
IF sy-subrc EQ 0.
IF NOT itab_zycit078-nrseqd EQ space.
* >> Início da inclusão: FORM MONTA_376_APR
itab_msg-ebeln = itab_zycit079-ebeln.
itab_msg-ebelp = itab_zycit079-ebelp.
CONCATENATE text-030 itab_zycit079-nrseqli
INTO itab_msg-msg SEPARATED BY space.
APPEND itab_msg.
* << Fim da inclusão
CONTINUE.
ENDIF.
ENDIF.
ENDIF.
IF s_apr NE 'X'.
IF /pws/zycit321-c_comum IS INITIAL.
READ TABLE itab_atos WITH KEY matnr = itab_ekpo-matnr
j_1bnbm = itab_ekpo-j_1bnbm.
ELSE.
READ TABLE itab_atos WITH KEY j_1bnbm = itab_ekpo-j_1bnbm.
...
...
ENDIF.
IF v_flag NE 'X'.
CONTINUE.
ENDIF.
ENDIF.
ENDIF.
READ TABLE itab_zycit100 WITH KEY
ebeln = itab_ekpo-ebeln
ebelp = itab_ekpo-ebelp.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM MONTA_376_APR
itab_msg-ebeln = itab_zycit100-ebeln.
itab_msg-ebelp = itab_zycit100-ebelp.
CONCATENATE text-031 itab_zycit100-nrseqdi
INTO itab_msg-msg SEPARATED BY space.
APPEND itab_msg.
* << Fim da inclusão
CONTINUE.
ENDIF.
READ TABLE itab_zycit079 WITH KEY
ebeln = itab_ekpo-ebeln
ebelp = itab_ekpo-ebelp.
IF sy-subrc EQ 0.
READ TABLE itab_zycit078 WITH KEY
nrseqli = itab_zycit079-nrseqli.
IF sy-subrc EQ 0.
CONTINUE.
ENDIF.
ENDIF.
READ TABLE itab_eket WITH KEY
ebeln = itab_ekpo-ebeln
ebelp = itab_ekpo-ebelp.
READ TABLE itab_ekko WITH KEY
ebeln = itab_ekpo-ebeln.
READ TABLE itab_lfa1 WITH KEY
lifnr = itab_ekko-lifnr.
IF itab_ekko-lands EQ itab_lfa1-land1.
* >> Início da inclusão: FORM MONTA_376_APR
itab_msg-ebeln = itab_ekpo-ebeln.
itab_msg-ebelp = itab_ekpo-ebelp.
itab_msg-msg = text-032 .
APPEND itab_msg.
* << Fim da inclusão
CONTINUE.
ENDIF.
MOVE: itab_ekpo-ebeln TO itab_zycit376_t-ebeln,
itab_ekpo-ebelp TO itab_zycit376_t-ebelp,
itab_ekpo-aedat TO itab_zycit376_t-datac,
itab_ekpo-werks TO itab_zycit376_t-werks,
itab_ekpo-j_1bnbm TO itab_zycit376_t-j_1bnbm,
itab_ekpo-txz01 TO itab_zycit376_t-descr,
itab_ekpo-menge TO itab_zycit376_t-qtd_iten,
itab_ekpo-meins TO itab_zycit376_t-meins,
...
...
IF itab_zycit030-fator EQ '+'.
itab_zycit376_t-vlfob = itab_zycit376_t-vlfob + v_vl_temp.
ELSE.
itab_zycit376_t-vlfob = itab_zycit376_t-vlfob - v_vl_temp.
ENDIF.
ENDLOOP.
ENDIF.
ENDLOOP.
itab_zycit376_t-waers = 'USD'.
IF NOT itab_zycit376_t-vlfob > 0.
* >> Início da inclusão: FORM MONTA_376_APR
itab_msg-ebeln = itab_ekpo-ebeln.
itab_msg-ebelp = itab_ekpo-ebelp.
itab_msg-msg = text-033 .
APPEND itab_msg.
* << Fim da inclusão
CONTINUE.
ENDIF.
APPEND itab_zycit376_t.
ENDLOOP.
ENDFORM.
FORM converter_moeda USING p_devlme
p_deme
p_parame
p_data
CHANGING p_paravlme.
...
...
e_montante = v_paravlme
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
fator_nao_encontrado = 3
i_ctmoeda_nao_encontrado = 4
i_dtbase_nao_encontrada = 5
taxa_nao_encontrada = 6
i_montante_nao_encontrado = 7.
p_paravlme = v_paravlme.
* >> Início da inclusão: FORM CONVERTER_MOEDA
IF sy-subrc NE 0.
itab_msg-ebeln = itab_ekpo-ebeln.
itab_msg-ebelp = itab_ekpo-ebelp.
CONCATENATE text-027 p_deme text-028
INTO itab_msg-msg SEPARATED BY space.
APPEND itab_msg.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM selec_atos.
REFRESH: itab_zycit245,
itab_zycit244.
SELECT * FROM /pws/zycit244 INTO TABLE itab_zycit244
WHERE status EQ 'D'. "#EC CI_NOFIELD
IF s_apr EQ 'X'.
DELETE itab_zycit244
WHERE tipo NA 'GD'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI068I01
...
ENDIF.
ENDIF.
WHEN 'BACK'.
LEAVE TO TRANSACTION sy-tcode.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'CLI'.
PERFORM trata_drill-down.
ENDCASE.
ENDMODULE.
* >> Início da inclusão:
MODULE user_command_0400 INPUT.
CASE sy-ucomm.
WHEN 'CANC'.
CLEAR itab_msg.
REFRESH itab_msg.
SET SCREEN 0.
WHEN 'ENTE'.
CLEAR itab_msg.
REFRESH itab_msg.
SET SCREEN 0.
ENDCASE.
ENDMODULE.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI068O01
...
MODULE preenche_tl0300 OUTPUT.
/pws/zycie376 = itab_zycit376_t.
v_marc = itab_zycit376_t-marc.
ENDMODULE.
MODULE status_0300 OUTPUT.
SET PF-STATUS 'ST0300'.
SET TITLEBAR 'TL0300'.
DESCRIBE TABLE itab_zycit376_t LINES v_lines.
tc_des-lines = v_lines.
ENDMODULE.
* >> Início da inclusão:
module STATUS_0400 output.
SET PF-STATUS 'ST0400'.
SET TITLEBAR 'TL0400'.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI068X01
...
/pws/zycit244,
/pws/zycie244,
/pws/zycit245,
/pws/zycie245,
/pws/zycit100,
/pws/zycie376,
/pws/zycit321,
/pws/zycie100.
CONTROLS: tc_ped1 TYPE TABLEVIEW USING SCREEN '0100',
tc_atos TYPE TABLEVIEW USING SCREEN '0200',
* >> Início da exclusão:
tc_des TYPE TABLEVIEW USING SCREEN '0300'.
* << Fim da exclusão
* >> Início da inclusão:
tc_des TYPE TABLEVIEW USING SCREEN '0300',
tc_msg_erro TYPE TABLEVIEW USING SCREEN '0400'.
* << Fim da inclusão
DATA: BEGIN OF COMMON PART a.
DATA: BEGIN OF itab_zycit376_t OCCURS 0 .
INCLUDE STRUCTURE /pws/zycit376 .
DATA: marc.
DATA: END OF itab_zycit376_t.
DATA: BEGIN OF itab_atos OCCURS 0 .
DATA: nrseqd LIKE /pws/zycit244-nrseqd,
nritem LIKE /pws/zycit245-nritem,
nratoc LIKE /pws/zycit244-nratoc ,
matnr LIKE /pws/zycit245-codcomp ,
...
...
DATA: END OF itab_zyglt100.
DATA: e_subrc VALUE '0'.
DATA: BEGIN OF itab_a016 OCCURS 0.
INCLUDE STRUCTURE a016.
DATA: END OF itab_a016.
DATA: BEGIN OF itab_konp OCCURS 0.
INCLUDE STRUCTURE konp.
DATA: ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp.
DATA: END OF itab_konp.
* >> Início da inclusão:
DATA: BEGIN OF itab_msg OCCURS 0.
DATA: ebeln LIKE ekpo-ebeln ,
ebelp LIKE ekpo-ebelp ,
msg(100) TYPE c .
DATA: END OF itab_msg .
* << Fim da inclusão
DATA: v_marc ,
ok_code LIKE sy-ucomm ,
v_qtd_tot LIKE /pws/zycit245-qtd_tot ,
v_icon LIKE icon-id ,
v_resp ,
v_tipo(35) ,
v_modalidade(35) ,
wa_cols TYPE cxtab_column ,
v_lines TYPE i ,
v_vlfob LIKE /pws/zycit245-netpr ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI068
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 027
Texto: (30 caracteres)
"It was not possible to convert"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 027
Texto: (40 caracteres)
"Não foi possível realizar a conversão de"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 028
Texto: (30 caracteres)
"to USD. Check conversion rate."
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 028
Texto: (37 caracteres)
"para USD. Verifcar taxa de conversão."
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 029
Texto: (57 caracteres)
"The purchase order/iten is entailed to the concessory act"
Comprimento máximo: 60
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 029
Texto: (47 caracteres)
"O pedido/item está vinculado ao ato concessório"
Comprimento máximo: 60
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 030
Texto: (45 caracteres)
"The purchase order/iten is entailed to the LI"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 030
Texto: (33 caracteres)
"O pedido/item está vinculado à LI"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 031
Texto: (45 caracteres)
"The purchase order/iten is entailed to the DI"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 031
Texto: (33 caracteres)
"O pedido/item está vinculado à DI"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 032
Texto: (48 caracteres)
"Purchase order/iten is from a domestic supplier."
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 032
Texto: (41 caracteres)
"O pedido/item é de um fornecedor nacional"
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 033
Texto: (34 caracteres)
"Unable to determine the FOB value."
Comprimento máximo: 50
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 033
Texto: (40 caracteres)
"Não foi possível determinar o valor FOB."
Comprimento máximo: 50