Colocar borde celda excel desde Oracle forms - Client_ole2
Publicado por luis (1 intervención) el 20/03/2018 23:52:44
Estimados buenas tardes.
Tengo una aplicacion en oracle forms 6i donde tiene un boton para exportar data a excel. Esta aplicacion exporta la data a excel bien via cliente servidor, pero cuando se levanta desde el OAS, la data en excel no se ejecuta.
Utilizo el sgte codigo para ponerle borde a una celda del excel a exportar. Este codigo en cliente servidor funciona correctamente, pero en el oas aparece un msj de error como que no reconoce la propiedad Border.
Agradezco desde ya su ayuda.
Gracias
Tengo una aplicacion en oracle forms 6i donde tiene un boton para exportar data a excel. Esta aplicacion exporta la data a excel bien via cliente servidor, pero cuando se levanta desde el OAS, la data en excel no se ejecuta.
Utilizo el sgte codigo para ponerle borde a una celda del excel a exportar. Este codigo en cliente servidor funciona correctamente, pero en el oas aparece un msj de error como que no reconoce la propiedad Border.
Agradezco desde ya su ayuda.
Gracias
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
PROCEDURE CREA_CELDA
( po_worksheet client_ole2.obj_type,
pn_x number,pn_y number,pv_valor varchar2,pv_format varchar2,pn_hori_alig number,pn_font_size number,pn_bold number
) ISargs client_ole2.obj_type;cell client_ole2.obj_type;font client_ole2.list_type;--client_ole2.obj_type;
interior client_ole2.obj_type;columna client_ole2.obj_type;BEGIN
args:=client_ole2.create_arglist;
client_ole2.add_arg(args, pn_y);
client_ole2.add_arg(args, pn_x);
cell:=client_ole2.get_obj_property(po_worksheet, 'cells', args);
client_ole2.destroy_arglist(args);
client_ole2.set_property(cell, 'NumberFormat', pv_format);
client_ole2.set_property(cell, 'Value', pv_valor);
client_ole2.set_property(cell, 'HorizontalAlignment', pn_hori_alig);
--agregado 20.03.18
font:=client_ole2.get_obj_property(cell, 'borders');
client_ole2.Set_Property(font, 'LineStyle', EstiloLine(''));
client_ole2.Set_Property(font, 'Weight', GrosorLine(''));
client_ole2.Set_Property(font, 'ColorIndex', Color('BLACK'));
--fin de agregado 20.03.18
If pn_font_size Is Not Null Or pn_bold Is Not Null Then
font:=client_ole2.get_obj_property(cell, 'font');
If pn_font_size Is Not Null Then
client_ole2.set_Property(font, 'Size', pn_font_size);
End If;
If pn_bold Is Not Null Then
client_ole2.Set_Property(font, 'Bold', pn_bold);
End If;
client_ole2.release_obj(font);
End If;
client_ole2.release_obj(cell);
END;
Valora esta pregunta
0