FoxPro/Visual FoxPro - EXPORTANDO REPORT FORM A EXCEL

   
Vista:

EXPORTANDO REPORT FORM A EXCEL

Publicado por HELDER MARTINEZ (COUNDY)  (710 intervenciones) el 23/01/2009 15:51:47
Hola amigos de este lindo foro.

Estoy exportando un reporte o los datos de una tabla a excel.
Todo me sale correcto, pero yo quiero poner un total al final del precio del articulo.

La sumatoria la hago asi

public nTotal
select _tempArticulos
sum precio_art to nTotal

El resultado de la variable "nTotal" quiero ponerlo al final de la columna "precio_art" en el libro de excel, para que sume todos los precios y me lanze el total pero dentro de excel.

IF nExcel = 1
select _tempArticulos
COPY TO array _excel;
FIELDS cod_art, articulo, precio_art, categoria, unidad, usuario

o=createobject("Excel.sheet")
o.application.visible= .t.
o.application.workbooks.add()
o=o.application.sheets[1]

***encabezado***reporte
o.cells(1, 1).value = ALLTRIM(registro.nom_empresa)
o.cells(2, 1).value = ALLTRIM(registro.direccion_emp)
o.cells(3, 1).value = ALLTRIM(registro.telefono_emp)
o.application.rows(1).font.bold = .t.
o.application.rows(1).font.color = RGB(0,128,0)
o.application.rows(1).font.size = 20
o.application.rows(2).font.color = RGB(0,128,0)
o.application.rows(3).font.color = RGB(0,128,0)
o.cells(4, 1).value = "LISTADO DE ARTICULOS"
o.application.rows(4).font.color = RGB(255,0,0)
o.application.rows(4).font.size = 15
o.application.rows(4).font.underline = .t.
o.application.rows(4).font.bold = .t.

o.cells(6, 1).value = "CODIGO ARTICULO"
o.cells(6, 2).value = "ARTICULO"
o.cells(6, 3).value = "PRECIO ART"
o.cells(6, 4).value = "CATEGORIA"
o.cells(6, 5).value = "UNIDAD"
o.cells(6, 6).value = "USUARIO"

o.application.rows(6).font.bold = .t.
o.application.rows(6).font.color = RGB(0,0,255)
o.application.rows(6).font.underline = .t.
o.application.rows(6).font.size = 12
**
o.application.columns(1).numberFormat = "@"
o.application.columns(2).numberformat = "@"
o.application.columns(3).numberformat = "0.00"
**
o.application.columns(1).columnWidth = 20
o.application.columns(2).columnwidth = 40
o.application.columns(3).columnwidth = 15
o.application.columns(4).columnwidth = 35
o.application.columns(5).columnwidth = 20
o.application.columns(6).columnwidth = 20

FOR i = 1 TO _tally
o.cells(i+6, 1).value = _excel(i, 1)
o.cells(i+6, 2).value = _excel(i, 2)
o.cells(i+6, 3).value = _excel(i, 3)
o.cells(i+6, 4).value = _excel(i, 4)
o.cells(i+6, 5).value = _excel(i, 5)
o.cells(i+6, 6).value = _excel(i, 6)
***************NO SE SI UBICAR ESA VARIABLE NTOTAL AQUI, NO ME SALE....
ENDFOR
RETURN .f.
ENDIF

La exportación me la hace bien, solo me falta poner el total al final de la columna Precio_art, no se si me entienden lo que pretendo hacer.

Muchas gracias amigos.
Saludes
Desde Honduras

Helder Martínez
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

YA ESTA RESUELTO

Publicado por HELDER MARTINEZ (COUNDY)  (710 intervenciones) el 23/01/2009 23:22:50
HOLA AMIGOS YA RESOLVI EL PROBLEMITA

SOLO AGREGUE ESTO

***para postear el total
FOR r = 1 TO i
o.cells(i+7, 2).value = "TOTAL ::::::::::::::::::::::::::::::::::::::::>>"
o.cells(i+7, 2).font.size = 12
o.cells(i+7, 2).font.bold = .t.
o.cells(i+7, 2).font.underline = .t.
o.cells(i+7, 2).font.color = RGB(0,0,255)
**
o.cells(i+7, 3).value = nTotal
ENDFOR


CUALQUIER OTRA DUDA LES AVISO, MUCHAS GRACIAS....BYE
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