
AYUDEN A EXPORTAR A EXCEL PARTE1
Publicado por joao (20 intervenciones) el 18/11/2015 23:49:28
PRIMERO QUE NADA RECALCO QUE EL CODIGO ES USADO EN ORACLE FORMS BUILDER
EL CODIGO QUE ESTOY USANDO ES EL SIGUIENTE:
EL CODIGO QUE ESTOY USANDO ES EL SIGUIENTE:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
declare
application ole2.obj_type;
workbooks ole2.obj_type;
workbook ole2.obj_type;
worksheet1 ole2.obj_type;
args ole2.list_type;
ln_fore_r number;
ln_fore_g number;
ln_fore_b number;
ln_fore_titu_r number;
ln_fore_titu_g number;
ln_fore_titu_b number;
ln_back_r number;
ln_back_g number;
ln_back_b number;
ln_back_titu_r number;
ln_back_titu_g number;
ln_back_titu_b number;
x number;
y number;
i number;
i2 number;
LN_max number;
FILENAME VARCHAR2(2000);
BEGIN
if(:REGISTROs = 0)then
util.aceptar('al_ac','No Existen Registros');
else
filename:=get_file_name('C:\ ',user||' '||to_char(sysdate,'ddmmyyyy hh24mi'),'XLS Files (*.xls)|*.xls|','GUARDAR', SAVE_FILE, TRUE);
if nvl (filename,'X')<>'X' THEN
set_application_property(cursor_style,'busy');
application:=ole2.create_obj('EXCEL.application');
OLE2.SET_PROPERTY(APPLICATION,'Visible','False');
workbooks:=ole2.get_obj_property(application, 'workbooks');
workbook:=ole2.get_obj_property(workbooks,'add',args);
args:=ole2.create_arglist;
ole2.add_arg(args,1);
worksheet1:=ole2.get_obj_property(workbook,'worksheets',args);
ole2.destroy_arglist(args);
ole2.set_property(worksheet1,'select',1);
ole2.set_property(worksheet1,'name','Libro1');
------------------------------------------------------------------------------------------------------
ln_fore_titu_r := get_rgb(get_va_property('vis_titulo',foreground_color),'R');
ln_fore_titu_g := get_rgb(get_va_property('vis_titulo',foreground_color),'G');
ln_fore_titu_b := get_rgb(get_va_property('vis_titulo',foreground_color),'B');
ln_back_titu_r := get_rgb(get_va_property('vis_titulo',background_color),'R');
ln_back_titu_g := get_rgb(get_va_property('vis_titulo',background_color),'G');
ln_back_titu_b := get_rgb(get_va_property('vis_titulo',background_color),'B');
excel.crea_celda(worksheet1, 1, 1, 10.43, 'FECHA DE SOLICITUD' , null, null, null, 3, 1, 'Arial Black', 8, 0,excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 2, 1, 10.43, 'FECHA DE SOLICITUD APROBADA', null, null, null, 3, 1, 'Arial Black', 8, 0,excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 3, 1, 12, 'FECHA DE APROBACION COMPRAS', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 4, 1, 13, 'USUARIO APROBADOR', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 5, 1, 7, 'TIPO ORDEN', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 6, 1, 13, 'N°ORDEN', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 7, 1, 13, 'COD. PROVEEDOR', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 8, 1, 50, 'NOMBRE PROVEEDOR', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 9, 1, 8, 'TIPO', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 10, 1, 13, 'NUMERO SOLICITANTE',null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 11, 1, 44, 'NOMBRE SOLICITANTE',null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 12, 1, 13, 'COD. ARTICULO', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 13, 1, 53, 'DESCRIPCION DEL ARTICULO', null, null, null, 5, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 14, 1, 4, 'UND', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 15, 1, 13, 'CANT RECIBIDA', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 16, 1, 4, 'MON', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 17, 1, 13, 'P. UNIT SIN IGV (soles)', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 18, 1, 13, 'P. TOTAL SIN IGV SOLES', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 19, 1, 13, 'P. UNIT SIN IGV (dólares)', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 20, 1, 13, 'P. TOTAL SIN IGV (dólares)',null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 21, 1, 13, 'DIAS SIN RESPUESTA', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 22, 1, 13, 'FECHA DE ORDEN', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 23, 1, 13, 'FECHA DE RECEPCION', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 24, 1, 13, 'TIEMPO DE ENTREGA', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 25, 1, 8, 'EST. SCL', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 26, 1, 8, 'EST OCL', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 27, 1, 11, 'PRECIO ULT.',null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 28, 1, 13, 'COD C. COSTO', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 29, 1, 44, 'NOMBRE C. COSTO',null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
excel.crea_celda(worksheet1, 30, 1, 13, 'Observaciones', null, null, null, 3, 1, 'Arial Black', 8, 0, excel.color_rgb(ln_fore_titu_r,ln_fore_titu_g,ln_fore_titu_b), 1, excel.color_rgb(ln_back_titu_r,ln_back_titu_g,ln_back_titu_b),1);
Valora esta pregunta


0