CE PLUS - Nota 011487
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 03/10/2011 10:21:49
Data/Hora Última Alteração: 03/10/2011 10:21:49
Descrição da Nota: AO DAR DUPLO CLIQUE NO PEDIDO DE COMPRAS NÃO ABRE TRANSAÇÃO
Sintoma
Ao dar duplo clique no pedido de compras não abre transação
Solução
Fazer tratamento no campo
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11487 Data: 27/09/2011 Hora: 10:52:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11487
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00009
Agrupamento : 00088
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03763 - 00001 - 7.0 - 00001 - EMBARQUE - DRILLDOWN PEDIDO
04023 - 00002 - 7.0 - 00001 - EMBARQUE: VINCULAÇÃO DE DA
04037 - 00003 - 7.0 - 00002 - EMBARQUE - DRILL DOWN PEDIDO
04549 - 00004 - 7.0 - 00002 - FATURA MERCADORIA - DRILLDOWN PEDIDO
----------------------------------------------------------------------------------------------------
AO DAR DUPLO CLIQUE NO PEDIDO DE COMPRAS NÃO ABRE TRANSAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DUPLO CLIQUE - DRILL DOWN - PEDIDO DE COMPRAS - ME23N
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001I01
REPS /PWS/MZYCI003I01
REPS /PWS/MZYCI016I01
REPS /PWS/MZYCI016X01
REPS /PWS/MZYCI017F02
REPS /PWS/MZYCI020I01
REPS /PWS/MZYCI023I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001I01
...
WHEN 'SELE'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE003-EBELN'.
i_ebeln = v_valor.
* >> Início da exclusão: MODULE USER_COMMAND_0102
SHIFT i_ebeln RIGHT DELETING TRAILING space.
OVERLAY i_ebeln WITH v_zeros.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0102
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = i_ebeln
IMPORTING
output = i_ebeln.
* << Fim da inclusão
SELECT SINGLE * FROM ekko
INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0102
i_ebeln = v_valor.
* << Fim da exclusão
IF ekko-bstyp = 'L'.
v_ebeln1 = i_ebeln.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003I01
...
MESSAGE e015 WITH text-105 text-107.
ENDIF.
v_status_s = v_status_bkp.
ELSEIF v_campo EQ '/PWS/ZYCIE003-EBELN' .
MOVE v_valor TO v_valorn.
* >> Início da exclusão: MODULE USER_COMMAND_0102
SHIFT v_valorn RIGHT DELETING TRAILING space.
OVERLAY v_valorn WITH v_zeros.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0102
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_valorn
IMPORTING
output = v_valorn.
* << Fim da inclusão
SELECT SINGLE * FROM ekko
INTO ekko
WHERE ebeln = v_valorn.
IF sy-subrc EQ 0.
i_ebeln = v_valorn.
IF ekko-bstyp = 'L'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
v_status_s = 0.
CALL TRANSACTION '/PWS/ZYCI001_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
ELSEIF v_campo EQ '/PWS/ZYCIE042-EBELN' .
i_ebeln = v_valor.
* >> Início da inclusão: MODULE USER_COMMAND_0100
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = i_ebeln
IMPORTING
output = i_ebeln.
* << Fim da inclusão
SELECT SINGLE * FROM ekko
INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0100
i_ebeln = v_valor.
* << Fim da exclusão
IF ekko-bstyp = 'L'.
...
...
MESSAGE i025.
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE042-NRSEQ' .
/pws/zycie042-nrseq = v_valor.
EXPORT /pws/zycie042-nrseq TO MEMORY ID '002'.
v_status_s = 0.
CALL TRANSACTION '/PWS/ZYCI001_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
ELSEIF v_campo EQ '/PWS/ZYCIE042-EBELN'.
i_ebeln = v_valor.
* >> Início da inclusão: MODULE USER_COMMAND_0100
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = i_ebeln
IMPORTING
output = i_ebeln.
* << Fim da inclusão
SELECT SINGLE * FROM ekko INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
IF ekko-bstyp = 'L'.
SET PARAMETER ID 'VRT' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME33'.
IF sy-subrc EQ 0.
CALL TRANSACTION 'ME33'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
...
...
ELSEIF v_campo EQ '/PWS/ZYCIE044-NRSEQ' .
/pws/zycie042-nrseq = v_valor.
EXPORT /pws/zycie042-nrseq TO MEMORY ID '002'.
v_status_s = 0.
CALL TRANSACTION '/PWS/ZYCI001_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
ENDIF.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE044-EBELN'.
i_ebeln = v_valor.
* >> Início da inclusão: MODULE USER_COMMAND_0200
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = i_ebeln
IMPORTING
output = i_ebeln.
* << Fim da inclusão
SELECT SINGLE * FROM ekko INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
IF ekko-bstyp = 'L'.
SET PARAMETER ID 'VRT' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME33'.
IF sy-subrc EQ 0.
CALL TRANSACTION 'ME33'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
...
...
ELSEIF v_campo EQ '/PWS/ZYCIE042A-NRSEQ' .
/pws/zycie042-nrseq = v_valor.
EXPORT /pws/zycie042-nrseq TO MEMORY ID '002'.
v_status_s = 0.
CALL TRANSACTION '/PWS/ZYCI001_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
ENDIF.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042A-EBELN'.
i_ebeln = v_valor.
* >> Início da inclusão: MODULE USER_COMMAND_0300
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = i_ebeln
IMPORTING
output = i_ebeln.
* << Fim da inclusão
SELECT SINGLE * FROM ekko INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
IF ekko-bstyp = 'L'.
SET PARAMETER ID 'VRT' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME33'.
IF sy-subrc EQ 0.
CALL TRANSACTION 'ME33'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
...
...
ELSEIF v_campo EQ '/PWS/ZYCIE042A-NRSEQ' .
/pws/zycie042-nrseq = v_valor.
EXPORT /pws/zycie042-nrseq TO MEMORY ID '002'.
v_status_s = 0.
CALL TRANSACTION '/PWS/ZYCI001_E'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
ENDIF.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE042A-EBELN'.
i_ebeln = v_valor.
* >> Início da inclusão: MODULE USER_COMMAND_0300
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = i_ebeln
IMPORTING
output = i_ebeln.
* << Fim da inclusão
SELECT SINGLE * FROM ekko INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
IF ekko-bstyp = 'L'.
SET PARAMETER ID 'VRT' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME33'.
IF sy-subrc EQ 0.
CALL TRANSACTION 'ME33'
AND SKIP FIRST SCREEN. "#EC CI_CALLTA
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016X01
...
* >> Início da exclusão:
DATA: v_valor TYPE /pws/zycie042-docnum.
* << Fim da exclusão
* >> Início da inclusão:
DATA: v_valor(20).
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
SET PARAMETER ID 'GJR' FIELD wa_nf-dt_f02fre+0(4).
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN. "#EC CI_CALLTA
ENDIF.
ELSEIF v_campo EQ '/PWS/ZYCIE044-EBELN'
OR v_campo EQ '/PWS/ZYCIE042-EBELN'.
i_ebeln = v_valor.
* >> Início da exclusão: FORM DRILL_DOWN_DOCUMENTOS
SHIFT i_ebeln RIGHT DELETING TRAILING space.
OVERLAY i_ebeln WITH v_zeros.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILL_DOWN_DOCUMENTOS
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = i_ebeln
IMPORTING
output = i_ebeln.
* << Fim da inclusão
SELECT SINGLE * FROM ekko
INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM DRILL_DOWN_DOCUMENTOS
i_ebeln = v_valor.
* << Fim da exclusão
IF ekko-bstyp = 'L'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020I01
...
WHEN 'CLI'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE079-EBELN'.
i_ebeln = v_valor.
* >> Início da inclusão: MODULE USER_COMMAND_0109
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = i_ebeln
IMPORTING
output = i_ebeln.
* << Fim da inclusão
SELECT SINGLE * FROM ekko
INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0109
i_ebeln = v_valor.
* << Fim da exclusão
IF ekko-bstyp = 'L'.
...
...
WHEN 'CLI'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE079-EBELN'.
i_ebeln = v_valor.
* >> Início da inclusão: MODULE USER_COMMAND_0502
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = i_ebeln
IMPORTING
output = i_ebeln.
* << Fim da inclusão
SELECT SINGLE * FROM ekko
INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_0502
i_ebeln = v_valor.
* << Fim da exclusão
IF ekko-bstyp = 'L'.
SET PARAMETER ID 'VRT' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME33'.
IF sy-subrc EQ 0.
...
...
MODULE user_command_403 INPUT.
CASE okcode.
WHEN 'CLI'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCIE079-EBELN'.
i_ebeln = v_valor.
* >> Início da inclusão: MODULE USER_COMMAND_403
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = i_ebeln
IMPORTING
output = i_ebeln.
* << Fim da inclusão
SELECT SINGLE * FROM ekko
INTO ekko
WHERE ebeln = i_ebeln.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_403
i_ebeln = v_valor.
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
PERFORM calc_itab.
ENDIF.
ELSEIF v_valor EQ '/PWS/ZYCIE003-EBELN'.
v_ebeln = v_conteudo.
* >> Início da exclusão: MODULE USER_COMMAND_DRILL_DOWN
SHIFT v_ebeln RIGHT DELETING TRAILING space.
OVERLAY v_ebeln WITH v_zeros.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_DRILL_DOWN
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_ebeln
IMPORTING
output = v_ebeln.
* << Fim da inclusão
SELECT SINGLE * FROM ekko INTO ekko
WHERE ebeln = v_ebeln.
IF sy-subrc EQ 0.
* >> Início da exclusão: MODULE USER_COMMAND_DRILL_DOWN
v_ebeln = v_conteudo.
* << Fim da exclusão
IF ekko-bstyp = 'L'.
SET PARAMETER ID 'VRT' FIELD v_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME33'.
...