Hot Fox: Re: [usuarios_fox] Re: Pueden ayudarme a usar el Append from type xls

quinta-feira, 23 de fevereiro de 2012

Re: [usuarios_fox] Re: Pueden ayudarme a usar el Append from type xls

desde ARGENTINA eduardo martinez

LOCAL Fila
IF !EMPTY(THISFORM.txtRto_id.VALUE)
nRto=THISFORM.txtRto_id.VALUE
cSente="SELECT r.*,d.nombre,f.fac_peri,f.fac_nro,f.fac_imp,LTRIM(RTRIM(o.ori_nom)) AS ori_nom FROM remitos r, destinos d, facturas f, origenes o ;
WHERE r.id_destino=d.id_destino AND r.exp_id=f.exp_id AND f.fac_ori=o.ori_id AND r.rto_id=?nRto"

IF 1=SQLEXEC(nConeccion,cSente,"Cur_imp")
SELECT cur_imp
WAIT'Espere Un Momento Exportando Datos' WINDOW NOWAIT
_SCREEN.MOUSEPOINTER=14

TmpSheet=GETOBJECT('','Excel.Sheet')
XLApp=TmpSheet.APPLICATION
XLApp.VISIBLE=.T.
XLApp.workbooks.ADD()
XLSheet=XLApp.ActiveSheet

XLSheet.Cells(2,2)="Remito"
XLSheet.Cells(2,2).FONT.bold=.T.
XLSheet.Cells(2,2).FONT.SIZE="12"
XLSheet.Cells(2,2).FONT.NAME="Arial"
XLSheet.Cells(2,3)="Fecha"
XLSheet.Cells(2,3).FONT.bold=.T.
XLSheet.Cells(2,3).FONT.SIZE="12"
XLSheet.Cells(2,3).FONT.NAME="Arial"
XLSheet.Cells(2,4)="Destino"
XLSheet.Cells(2,4).FONT.bold=.T.
XLSheet.Cells(2,4).FONT.SIZE="12"
XLSheet.Cells(2,4).FONT.NAME="Arial"
XLSheet.Cells(2,5)="Expediente"
XLSheet.Cells(2,5).FONT.bold=.T.
XLSheet.Cells(2,5).FONT.SIZE="12"
XLSheet.Cells(2,5).FONT.NAME="Arial"
XLSheet.Cells(2,6)="Caja"
XLSheet.Cells(2,6).FONT.bold=.T.
XLSheet.Cells(2,6).FONT.SIZE="12"
XLSheet.Cells(2,6).FONT.NAME="Arial"
XLSheet.Cells(2,7)="Nombre"
XLSheet.Cells(2,7).FONT.bold=.T.
XLSheet.Cells(2,7).FONT.SIZE="12"
XLSheet.Cells(2,7).FONT.NAME="Arial"
XLSheet.Cells(2,8)="Periodo"
XLSheet.Cells(2,8).FONT.bold=.T.
XLSheet.Cells(2,8).FONT.SIZE="12"
XLSheet.Cells(2,8).FONT.NAME="Arial"
XLSheet.Cells(2,9)="Factura"
XLSheet.Cells(2,9).FONT.bold=.T.
XLSheet.Cells(2,9).FONT.SIZE="12"
XLSheet.Cells(2,9).FONT.NAME="Arial"
XLSheet.Cells(2,10)="Importe"
XLSheet.Cells(2,10).FONT.bold=.T.
XLSheet.Cells(2,10).FONT.SIZE="12"
XLSheet.Cells(2,10).FONT.NAME="Arial"
XLSheet.Cells(2,11)="Origen"
XLSheet.Cells(2,11).FONT.bold=.T.
XLSheet.Cells(2,11).FONT.SIZE="12"
XLSheet.Cells(2,11).FONT.NAME="Arial"

SELE cur_imp
GO TOP
Fila=3
SCAN
XLSheet.Cells(Fila,2)=rto_id
XLSheet.Cells(Fila,3)=fecha
XLSheet.Cells(Fila,4)=id_destino
XLSheet.Cells(Fila,5)=exp_id
XLSheet.Cells(Fila,6)=caja
XLSheet.Cells(Fila,7)=nombre
XLSheet.Cells(Fila,8)=fac_peri
XLSheet.Cells(Fila,9)=fac_nro
XLSheet.Cells(Fila,10)=fac_imp
XLSheet.Cells(Fila,11)=ALLTRIM(ori_nom)
Fila=Fila+1
ENDSCAN

XLSheet.COLUMNS("A:A").COLUMNWIDTH = 2
XLSheet.COLUMNS("B:B").EntireColumn.AutoFit
XLSheet.COLUMNS("C:C").EntireColumn.AutoFit
XLSheet.COLUMNS("D:D").EntireColumn.AutoFit
XLSheet.COLUMNS("E:E").EntireColumn.AutoFit
XLSheet.COLUMNS("F:F").EntireColumn.AutoFit
XLSheet.COLUMNS("G:G").EntireColumn.AutoFit
XLSheet.COLUMNS("H:H").EntireColumn.AutoFit
XLSheet.COLUMNS("I:I").EntireColumn.AutoFit
XLSheet.COLUMNS("J:J").EntireColumn.AutoFit

_SCREEN.MOUSEPOINTER=0

ENDIF
ELSE
MESSAGEBOX("Debe Ingresar Remito para generar Informe...",64,"Exportacion Excel")
THISFORM.txtrto_id.SETFOCUS()
ENDIF

________________________________
De: Alceu <alceu11@yahoo.com.br>
Para: usuarios_fox@yahoogrupos.com.mx
Enviado: jueves, 23 de febrero de 2012 7:42
Asunto: [usuarios_fox] Re: Pueden ayudarme a usar el Append from type xls

Hola
Aki soy del Brasil
Buenos Dias
Saludos

****
Codigo fuente
**********************
CLOSE DATABASES
IF !FILE('CLIENTE.DBF')
CREATE TABLE CLIENTE (NUMERO N(4,0),NOME_CLI C(30), ENDERECO C(40), BAIRRO C(20), CIDADE C(30), UF C(2))
SELECT CLIENTE
INDEX on nome_cli TAG cliente
set orde to cliente
FOR I=1 TO 20
INSERT INTO CLIENTE (NUMERO,noME_CLI,ENDERECO) VALUES (I,"CLIENTE "+STR(I), 'RUA ')
ENDFOR
ENDIF
IF !USED("CLIENTE")
USE CLIENTE IN 0 ALIAS CLIENTE SHARED
ENDIF
SELECT CLIENTE

xFinal = RECCOUNT("cliente")
xInicio = 1
WAIT windows "Aguarde, abrindo o excel e montando a Planilia..." NOWAIT NOCLEAR
Oexcel=createobject("Excel.application")
Oexcel.workbooks.add
Oexcel.visible=.t.
x = 1
SELECT cliente
GO TOP
DO WHILE x <= xFinal
IF X = 1
Oexcel.cells(x,1).font.size=10
Oexcel.cells(x,1).font.color=rgb(180,0,0)
Oexcel.cells(x,1).font.bold=.t.
OExcel.Range("B1").Value = 500
Oexcel.cells(x,1).value='Tabela de precos' &&xPedidos
ELSE
Oexcel.cells(x,1).font.size=12
Oexcel.cells(x,1).font.color=rgb(0,0,255)
Oexcel.cells(x,1).font.bold=.f.
Oexcel.cells(x,1).value=cliente.NUMERO

Oexcel.cells(x,2).font.size=12
Oexcel.cells(x,2).font.color=rgb(0,0,255)
Oexcel.cells(x,2).font.bold=.f.

Oexcel.cells(x,2).value=cliente.noME_CLI

Oexcel.cells(x,3).font.size=12
Oexcel.cells(x,3).font.color=rgb(0,0,255)
Oexcel.cells(x,3).font.bold=.f.
Oexcel.cells(x,3).value=cliente.endERECO
ENDIF
SELECT cliente
SKIP
x=x+1
ENDDO
WAIT CLEAR

***fim del codigo fuente.....

[Se han eliminado los trozos de este mensaje que no contenían texto]