Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Oracle » AYUDEN A EXPORTAR A EXCEL PARTE1

Oracle - AYUDEN A EXPORTAR A EXCEL PARTE1

Volver
Nuevo Tema
<<>>
   
Vista:
Mensajes realizados anteriormente (No estaban la última vez que entraste)AYUDEN A EXPORTAR A EXCEL PARTE1
joao (18/11/2015 23:49:28)311 visitas
1 respuesta
Mensajes realizados anteriormente (No estaban la última vez que entraste)AYUDEN A EXPORTAR A EXCEL PARTE2
joao (19/11/2015 07:40:01)

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:

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

AYUDEN A EXPORTAR A EXCEL PARTE2

Publicado por joao (20 intervenciones) el 19/11/2015 07:40:01
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
84
85
86
87
88
89
90
91
92
93
94
95
96
-----------------------------------------------------------------------------------------------
 go_block('TMPG_SOLVSORDC');
    last_record;
    LN_max := to_number(:system.cursor_record);
    first_record;
    y:=0;
	  FOR i IN 1..LN_max LOOP
	  	  y := y+1;
		    x := 0;
		              ln_fore_titu_r := get_rgb(get_va_property('VISUAL_ATTRIBUTE730',foreground_color),'R');
                  ln_fore_titu_g := get_rgb(get_va_property('VISUAL_ATTRIBUTE730',foreground_color),'G');
                  ln_fore_titu_b := get_rgb(get_va_property('VISUAL_ATTRIBUTE730',foreground_color),'B');
                  ln_back_titu_r := get_rgb(get_va_property('VISUAL_ATTRIBUTE730',background_color),'R');
                  ln_back_titu_g := get_rgb(get_va_property('VISUAL_ATTRIBUTE730',background_color),'G');
                  ln_back_titu_b := get_rgb(get_va_property('VISUAL_ATTRIBUTE730',background_color),'B');
 
 
		    excel.crea_celda(worksheet1, x+1, y+1, 10.43,TO_CHAR(:TMPG_SOLVSORDC.FECSOL,   'dd/mm/rrrr','NLS_DATE_LANGUAGE = American'),null,null, null, 3, 1, 'Arial', 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),null);
        excel.crea_celda(worksheet1, x+2, y+1, 10.43,TO_CHAR(:TMPG_SOLVSORDC.FECAP,    'dd/mm/rrrr','NLS_DATE_LANGUAGE = American'),null,null ,null, 3, 1, 'Arial', 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),null);
        excel.crea_celda(worksheet1, x+3, y+1, 12,   TO_CHAR(:TMPG_SOLVSORDC.FECAPROD,'dd/mm/rrrr','NLS_DATE_LANGUAGE = American'),null,null ,null, 3, 1, 'Arial', 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),null);
			  excel.crea_celda(worksheet1, x+4, y+1, 13,   :TMPG_SOLVSORDC.USUARIOAP, null, null, null, 3, 1, 'Arial', 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),null);
 
			  excel.crea_celda(worksheet1, x+5, y+1, 7, :TMPG_SOLVSORDC.SCDTIPORD, null, null, null, 1, 1, 'Arial', 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),null);
			  excel.crea_celda(worksheet1, x+6, y+1, 13,:TMPG_SOLVSORDC.SCDNUMORD, null, null, null, 1, 1, 'Arial', 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),null);
			  excel.crea_celda(worksheet1, x+7, y+1, 13,:TMPG_SOLVSORDC.OCCCODPRV, null, null, null, 1, 1, 'Arial', 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),null);
			  excel.crea_celda(worksheet1, x+8, y+1, 50,:TMPG_SOLVSORDC.CPMPNOMPRV,null, null, null, 1, 1, 'Arial', 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),null);
		    excel.crea_celda(worksheet1, x+9, y+1, 8, :TMPG_SOLVSORDC.TIPO,      null, null, null, 1, 1, 'Arial', 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),null);
        excel.crea_celda(worksheet1, x+10,y+1, 13,:TMPG_SOLVSORDC.NRO_SOL,   null, null, null, 1, 1, 'Arial', 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),null);
        excel.crea_celda(worksheet1, x+11,y+1, 44,:TMPG_SOLVSORDC.SCCPERSOL, null, null, null, 1, 1, 'Arial', 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),null);
 
		    excel.crea_celda(worksheet1, x+12, y+1, 13,:TMPG_SOLVSORDC.CODART,   null, null, null, 3, 1, 'Arial', 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),null);
        excel.crea_celda(worksheet1, x+13, y+1, 53,:TMPG_SOLVSORDC.DESART,   null, null, null, 1, 1, 'Arial', 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),null);
        excel.crea_celda(worksheet1, x+14, y+1, 4, :TMPG_SOLVSORDC.UMCOMPRA, null, null, null, 1, 1, 'Arial', 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),null);
        excel.crea_celda(worksheet1, x+15, y+1, 13,:TMPG_SOLVSORDC.CANTREC,  null, null, null, 1, 1, 'Arial', 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),null);
        excel.crea_celda(worksheet1, x+16, y+1, 4, :TMPG_SOLVSORDC.OCCCODMON,null, null, null, 1, 1, 'Arial', 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),null);
        ------------------------------------
        if(:TMPG_SOLVSORDC.OCCCODMON = 'S/.')then
        excel.crea_celda(worksheet1, x+17,y+1, 13,:TMPG_SOLVSORDC.OCDPRECIO,null,null,null,1,1,'Arial',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),null);
        excel.crea_celda(worksheet1, x+18,y+1, 13,'=SI((+FC[-1]*FC[-3])=0,FC[-1],+FC[-1]*FC[-3])',null,null,null,1,1,'Arial',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),null);
        excel.crea_celda(worksheet1, x+19,y+1, 13,'-',null,null,null,3,1,'Arial',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),null);
        excel.crea_celda(worksheet1, x+20,y+1, 13,'-',null,null,null,3,1,'Arial',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),null);
        else if(:TMPG_SOLVSORDC.OCCCODMON = 'US$')then
        excel.crea_celda(worksheet1, x+17,y+1, 13,'-',null,null,null,3,1,'Arial',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),null);
        excel.crea_celda(worksheet1, x+18,y+1, 13,'-',null,null,null,3,1,'Arial',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),null);
        excel.crea_celda(worksheet1, x+19,y+1, 13,:TMPG_SOLVSORDC.OCDPRECIO,null,null,null,1,1,'Arial',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),null);
        excel.crea_celda(worksheet1, x+20,y+1, 13,'=SI((+FC[-1]*FC[-5])=0,FC[-1],+FC[-1]*FC[-5])',null,null,null,1,1,'Arial',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),null);
        else
        excel.crea_celda(worksheet1, x+17,y+1, 13,:TMPG_SOLVSORDC.OCDPRECIO,null,null,null,3,1,'Arial',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),null);
        excel.crea_celda(worksheet1, x+18,y+1, 13,'=SI((+FC[-1]*FC[-3])=0,FC[-1],+FC[-1]*FC[-3])',null,null,null,3,1,'Arial',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),null);
        excel.crea_celda(worksheet1, x+19,y+1, 13,:TMPG_SOLVSORDC.OCDPRECIO,null,null,null,3,1,'Arial',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),null);
        excel.crea_celda(worksheet1, x+20,y+1, 13,'=SI((+FC[-1]*FC[-5])=0,FC[-1],+FC[-1]*FC[-5])',null,null,null,3,1,'Arial',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),null);
        end if;
        end if;
        ------------------------------------
 
       excel.crea_celda(worksheet1, x+21,y+1, 13,:DIAS_SNRESP,null,null,null,3,1,'Arial',8,0,excel.color_rgb(255,0,0), 1, excel.color_rgb(184,204,228),null);
        ---excel.crea_celda(worksheet1, x+21,y+1, 13,'=+SI(FC[-19]=0,"",SI(FC[-18]>0,(FC[-18]-FC[-19]),(HOY()-FC[-19])))',null,null,null,3,1,'Arial',8,0,excel.color_rgb(255,0,0), 1, excel.color_rgb(184,204,228),null);
        excel.crea_celda(worksheet1, x+22,y+1, 13,TO_CHAR(:TMPG_SOLVSORDC.FECING,'dd/mm/rrrr','NLS_DATE_LANGUAGE = American'),null,null,null,3,1,'Arial',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),null);
        excel.crea_celda(worksheet1, x+23,y+1, 13,TO_CHAR(:TMPG_SOLVSORDC.ULT_FECRECEP,'dd/mm/rrrr','NLS_DATE_LANGUAGE = American'),null,null,null,3,1,'Arial',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),null);
        excel.crea_celda(worksheet1, x+24,y+1, 13,'=SI(+FC[-1]-FC[-21]>=0,SI(+FC[-1]-FC[-21]=FC[-1],"-",+FC[-1]-FC[-21]),"-")',null,null,null,3,1,'Arial',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),null);
        excel.crea_celda(worksheet1, x+25,y+1, 8,:TMPG_SOLVSORDC.SCDCODEST,null,null,null,1,1,'Arial',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),null);
        excel.crea_celda(worksheet1, x+26,y+1, 8,:TMPG_SOLVSORDC.OCCCODEST,null,null,null,1,1,'Arial',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),null);
        excel.crea_celda(worksheet1, x+27,y+1, 11,Round(:TMPG_SOLVSORDC.ULTPRECIO,2),null,null,null,3,1,'Arial',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),null);
 
        excel.crea_celda(worksheet1, x+28,y+1, 13,:TMPG_SOLVSORDC.SCCCCODES,null,null,null,1,1,  'Arial',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),null);
        excel.crea_celda(worksheet1, x+29,y+1, 44,:TMPG_SOLVSORDC.DES_CENCOS,null,null,null,1,1,'Arial',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),null);
        excel.crea_celda(worksheet1, x+30,y+1, 13,'',null,null,null,1,1,'Arial',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),null);
       -----------------------------------------------------------------------------------------------------------------
        IF i <> LN_max THEN
              next_record;
        END IF;
	  END LOOP;
	  ----------------
	  y := y+1;
	  excel.crea_celda(worksheet1, x+21,y+1, 13,round (:PRODIASSNRESP,2),null,null,null,1,1,'Arial',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),null);
    excel.crea_celda(worksheet1, x+21,y+2, 13,round (:DESVSTAND,2),null,null,null,1,1,'Arial',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),null);
    excel.crea_celda(worksheet1, x+20,y+1, 13,'Prom. dias sin respuesta',null,null,null,1,1,'Arial',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),null);
    excel.crea_celda(worksheet1, x+20,y+2, 13,'Desv. Standar',null,null,null,1,1,'Arial',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),null);
	  ---
	  y :=30;
	  --------------
		args := OLE2.CREATE_ARGLIST;
	OLE2.ADD_ARG(args,filename);
	OLE2.invoke(workbook, 'SaveAs', args);
	OLE2.DESTROY_ARGLIST(args);
	OLE2.INVOKE(application, 'Quit');
	OLE2.RELEASE_OBJ(worksheet1);
	OLE2.RELEASE_OBJ(worksheet1);
	OLE2.RELEASE_OBJ(workbook);
	OLE2.RELEASE_OBJ(workbooks);
	OLE2.RELEASE_OBJ(application);
		set_application_property(cursor_style,'default');
		util.aceptar('al_ac','La generación del Excel culminó satisfactoriamente');
		END IF;
		END IF;
END;
EL PROBLEMA cuando ejecuto mi formulario y hago que aparezca mis datos y le doy clic a mi button q es el q exportar SE PONE A CARGAR y ahi es donde nunca termina de cargar y cuando hago clic pues automaticamente me sale un mensaje de DEPURAR o CERRAR PROGRAMA pocas palabras nunca exportar al excel; AYUDENME POR FAVOR; GRACIAS SALUDOS.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar