Tweet
Buen día foro bueno abro el thread para lo siguiente:
Tengo una rutina donde utilizo sql nativo entonces lo primero es hago una llamada a un stored procedure, seguido hago una selección a una tabla temp que me llena ese stored, y despues con un cursor intento recorrer esa tabla para llenar una ti de mi Z report, pero el problema radica aquí, al intentar recorrer mi cursor se traba mi programa, y tienen que matar el proceso directamente del server donde está sap ya que allí se queda, no sé si alguién halla tenido un problema así o sepa de alguna solución, desde ya muchas gracias.
try.
commit work and wait.
exec sql.
exec sp_mistored :id
endexec.
exec sql.
open cur_det for
SELECT campos
FROM tablatemp
endexec.
refresh it_upload.
clear it_upload.
do.
exec sql.
fetch next cur_det into :vbeln,
osnr, :matnr, :j_3asize,
:lfimg
endexec.
clear wa_upload.
if sy-subrc eq 0.
wa_upload-vbeln = :vbeln.
wa_upload-posnr =osnr.
wa_upload-matnr = :matnr.
wa_upload-j_3asize = :j_3asize.
wa_upload-lfimg = :lfimg.
append wa_upload to it_upload.
clear wa_upload.
else.
exit.
endif.
enddo.
exec sql.
close cur_det
endexec.
catch cx_sy_native_sql_error into exc_ref.
error_text = exc_ref->get_text( ).
leave program.
endtry.
La parte en rojo es hasta donde llega mi programa y se traba
Tengo una rutina donde utilizo sql nativo entonces lo primero es hago una llamada a un stored procedure, seguido hago una selección a una tabla temp que me llena ese stored, y despues con un cursor intento recorrer esa tabla para llenar una ti de mi Z report, pero el problema radica aquí, al intentar recorrer mi cursor se traba mi programa, y tienen que matar el proceso directamente del server donde está sap ya que allí se queda, no sé si alguién halla tenido un problema así o sepa de alguna solución, desde ya muchas gracias.
try.
commit work and wait.
exec sql.
exec sp_mistored :id
endexec.
exec sql.
open cur_det for
SELECT campos
FROM tablatemp
endexec.
refresh it_upload.
clear it_upload.
do.
exec sql.
fetch next cur_det into :vbeln,
osnr, :matnr, :j_3asize,:lfimg
endexec.
clear wa_upload.
if sy-subrc eq 0.
wa_upload-vbeln = :vbeln.
wa_upload-posnr =
osnr.wa_upload-matnr = :matnr.
wa_upload-j_3asize = :j_3asize.
wa_upload-lfimg = :lfimg.
append wa_upload to it_upload.
clear wa_upload.
else.
exit.
endif.
enddo.
exec sql.
close cur_det
endexec.
catch cx_sy_native_sql_error into exc_ref.
error_text = exc_ref->get_text( ).
leave program.
endtry.
La parte en rojo es hasta donde llega mi programa y se traba
Comentario