Home » Developer & Programmer » Forms » How to kill excel.exe from task manager? (oracle 6i , excel 2003)
| How to kill excel.exe from task manager? [message #383829] |
Fri, 30 January 2009 08:03  |
canmurt
Messages: 13
Registered: January 2009
|
Junior Member |
|
|
I searched the forum but I could not solve my problem..
Can you please help me?
Here is the code...
PROCEDURE abc IS
-- Declare handles to OLE objects
application ole2.obj_type;
workbooks ole2.obj_type;
workbook ole2.obj_type;
worksheet ole2.obj_type;
cell ole2.obj_type;
-- Declare handles to OLE argument lists
args ole2.list_type;
Check_file text_io.file_type;
cell_value VARCHAR2(500);
v_file VARCHAR2(500);
x number := 5;
v_akilli varchar2(100);
v_Urun Varchar2(20);
v_aciklama varchar2(250);
v_top_sat Varchar2(20);
v_mev_stok Varchar2(20);
v_plan_top_stok Varchar2(20);
v_koli_aded Varchar2(20);
v_bek_sip Varchar2(20);
v_yeni_sip Varchar2(20);
v_tarih varchar2(20);
v_Sqlerrm VARCHAR2(250);
v_Sira NUMBER := 0;
BEGIN
-- Check the file can be found, if not exception no_file will be raised
v_file := :islem.txt_path;
Check_file := TEXT_IO.FOPEN(v_File,'R');
TEXT_IO.FCLOSE(Check_file);
application:= ole2.create_obj('Excel.Application');
workbooks := ole2.get_obj_property(application, 'Workbooks');
-- Open the required workbook
args:= ole2.create_arglist;
ole2.add_arg(args, v_file);
workbook := ole2.invoke_obj(workbooks, 'Open', args);
ole2.destroy_arglist(args);
-- Open worksheet Sheet1 of that Workbook
args:= ole2.create_arglist;
ole2.add_arg(args, 'ORDER FORM');
worksheet := ole2.get_obj_property(workbook, 'Worksheets', args);
ole2.destroy_arglist(args);
SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'BUSY');
Set_Block_Property('B_DOSYA', INSERT_ALLOWED, PROPERTY_TRUE);
Loop
-- Get value of cell A1 of worksheet Sheet1
x := x + 1;
args:= ole2.create_arglist;
ole2.add_arg(args, x);
ole2.add_arg(args, 1);
cell:= ole2.get_obj_property(worksheet, 'Cells', args);
ole2.destroy_arglist(args);
cell_value := ole2.get_char_property(cell, 'text');
v_akilli := cell_value;
args:= ole2.create_arglist;
ole2.add_arg(args, x);
ole2.add_arg(args, 2);
cell:= ole2.get_obj_property(worksheet, 'Cells', args);
ole2.destroy_arglist(args);
cell_value := ole2.get_char_property(cell, 'text');
v_Urun := cell_value;
args:= ole2.create_arglist;
ole2.add_arg(args, x);
ole2.add_arg(args, 3);
cell:= ole2.get_obj_property(worksheet, 'Cells', args);
ole2.destroy_arglist(args);
cell_value :=ole2.get_char_property(cell, 'text');
v_aciklama := cell_value;
args:= ole2.create_arglist;
ole2.add_arg(args, x);
ole2.add_arg(args, 4);
cell:= ole2.get_obj_property(worksheet, 'Cells', args);
ole2.destroy_arglist(args);
v_top_sat := ole2.get_char_property(cell, 'text');
args:= ole2.create_arglist;
ole2.add_arg(args, x);
ole2.add_arg(args, 5);
cell:= ole2.get_obj_property(worksheet, 'Cells', args);
ole2.destroy_arglist(args);
cell_value :=ole2.get_char_property(cell, 'text');
v_mev_stok := cell_value;
args:= ole2.create_arglist;
ole2.add_arg(args, x);
ole2.add_arg(args, 6);
cell:= ole2.get_obj_property(worksheet, 'Cells', args);
ole2.destroy_arglist(args);
cell_value :=ole2.get_char_property(cell, 'text');
v_plan_top_stok := cell_value;
args:= ole2.create_arglist;
ole2.add_arg(args, x);
ole2.add_arg(args, 7);
cell:= ole2.get_obj_property(worksheet, 'Cells', args);
ole2.destroy_arglist(args);
cell_value :=ole2.get_char_property(cell, 'text');
v_koli_aded := cell_value;
args:= ole2.create_arglist;
ole2.add_arg(args, x);
ole2.add_arg(args, 8);
cell:= ole2.get_obj_property(worksheet, 'Cells', args);
ole2.destroy_arglist(args);
cell_value := ole2.get_char_property(cell, 'text');
v_bek_sip := cell_value;
args:= ole2.create_arglist;
ole2.add_arg(args, x);
ole2.add_arg(args, 9);
cell:= ole2.get_obj_property(worksheet, 'Cells', args);
ole2.destroy_arglist(args);
cell_value :=ole2.get_char_property(cell, 'text');
v_yeni_sip := cell_value;
args:= ole2.create_arglist;
ole2.add_arg(args, 3);
ole2.add_arg(args, 4);
cell:= ole2.get_obj_property(worksheet, 'Cells', args);
ole2.destroy_arglist(args);
cell_value := ole2.get_char_property(cell, 'text');
v_tarih := substr(cell_value,5,15);
IF nvl(v_urun,'0') = '0' then
ole2.release_obj(cell);
ole2.release_obj(cell);
ole2.release_obj(worksheet);
ole2.release_obj(workbook);
ole2.release_obj(workbooks);
ole2.release_obj(application);
ole2.invoke(application,'Quit');
First_Record;
Exit;
Else
Begin
v_Sira := v_Sira + 1;
INSERT INTO PRKSSS.TEMP_DOSYA_AKTAR_SOFYA(ISLEM_NO ,AKILLI_KOD ,URUN_NO ,URUN_SIRA_NO, ACIKLAMA ,TOPLAM_SATIS ,MEVCUT_STOK ,PLAN_TOP_STOK ,KOLI_IC_ADEDI , BEK_SIPARIS, SIPARIS_ADEDI, TARIH, DURUM_KODU)
VALUES(:global.seq, v_akilli, v_Urun, v_Sira, v_aciklama, v_top_sat, v_mev_stok, v_plan_top_stok, v_koli_aded, v_bek_sip, v_yeni_sip, v_tarih, 0);
EXCEPTION WHEN OTHERS THEN
v_SqlErrm:= substr(sqlerrm,1,250);
-- MESSAGE(V_MGZ||'-'||v_URUN||'-'||V_rAF_sT||'-'||V_dEPO_ST||'-'||V_IADE_MIN_ST||'-'||V_IADE_MIN_YUZDE);
-- PAUSE;
globrout.show_error('Hata-'||v_SqlErrm);
End;
Next_Record;
end if;
End Loop;
Commit;
Set_Block_Property('B_DOSYA', INSERT_ALLOWED, PROPERTY_FALSE);
SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'DEFAULT');
EXCEPTION
WHEN OTHERS THEN
Rollback;
Set_Block_Property('B_DOSYA', INSERT_ALLOWED, PROPERTY_FALSE);
SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'DEFAULT');
IF SQLCODE = -302000 THEN
Globrout.Show_Error('Dosya Bulunamadı.');
Else
v_Sqlerrm := substr(sqlerrm,1,250);
globrout.show_error('Hata-'||v_SqlErrm);
End if;
End;
Regards,
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Goto Forum:
Current Time: Mon Feb 03 17:56:09 CST 2025
|
] 
Blog
Search
Help
Members
Register
Login
Home
