http://www.greeneclipse.com/eclipseui.html
Si lo necesitas, te puedo mandar los ocx (300kb + 200kb) Al adjunto probalo, hace mucho que no lo uso. ----- Original Message ----- From: Walter Comito To: GUFA List Member Sent: Wednesday, March 31, 2010 7:56 PM Subject: [GUFA] BACKUP a donde busco el eclipse? Walter Cómito Analista de Sistemas MP 0397 C.P.C.I.P.C. > [email protected] - [email protected] - [email protected] ( +54 351 494.4667 / 153.292.707 þ www.softram.com.ar P Si no es necesario, no imprima este correo. Todos somos responsables por el cuidado del medio ambiente. ------------------------------------------------------------------------------ De: [email protected] [mailto:[email protected]] En nombre de Rene Yacyna Enviado el: Miércoles, 31 de Marzo de 2010 19:31 Para: GUFA List Member Asunto: [GUFA] BACKUP Probaste el ocx eclipse ? ----- Original Message ----- From: Walter Comito To: GUFA List Member Sent: Wednesday, March 31, 2010 7:04 PM Subject: [GUFA] BACKUP Amigos tendran alguna dll, ocx para que desde dentro de fox pueda hacer backup de mis datos enforma automatiuca, por mas que los archivos esten abiertos? desde ya muchas gracias Walter Cómito Analista de Sistemas MP 0397 C.P.C.I.P.C. > [email protected] - [email protected] - [email protected] ( +54 351 494.4667 / 153.292.707 þ www.softram.com.ar P Si no es necesario, no imprima este correo. Todos somos responsables por el cuidado del medio ambiente. ---------------------------------------------------------------------------- De: [email protected] [mailto:[email protected]] En nombre de francisco prieto Enviado el: Lunes, 29 de Marzo de 2010 14:14 Para: GUFA List Member Asunto: [GUFA] Color de columna Daniel: Para cualquier cosa que realices en Excel, tenes que manejarlo como si se tratase de un objeto de Fox. Para ello, tenes que hacer lo siguiente: 1) En excel te armas una planillita de ejemplo y le pedís que grabe una macro con el nombre que quieras. 2) En este caso mientras estas grabando la macro, coloreas una casilla o bloqueas una o varias columnas, o cualquier otra cosa que desees hacer. 3) Una vez que hiciste todo esto detenes la grabación. 4) Editas la macro y la misma te va a decir en lenguaje de programación todo lo que hiciste. 5) Ahora simplemente lo que te queda es copiar ese programa y traducirlo a Fox, ya que va a estar en Visual Basic. Si, necesitas un ejemplo avisame. Saludos, Pancho Cordoba Argentina El 29 de marzo de 2010 12:54, Flia. Pievaroli <[email protected]> escribió: Hola a todos Por medio de un proceso en visual fox genero una planilla de Excel. Lo que necesito es saber como poner color o bloquear una o varias columnas.- Desde ya muchas gracias.- Daniel __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4982 (20100329) __________ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4989 (20100331) __________ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4989 (20100331) __________ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 4989 (20100331) __________ ESET NOD32 Antivirus ha comprobado este mensaje. http://www.eset.com
BACKUP.SCX
Description: Binary data
W· VERSION = 3.00 dataenvironment dataenvironment Dataenvironment YTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
1 1 frmutiles ..\clases\forms.vcx form frmBackup Height = 362
Width = 386
DoCreate = .T.
Caption = "Backup"
Name = "frmBackup"
Label1.Caption = "Copias de Seguridad"
Label1.TabIndex = 1
Label1.ZOrderSet = 1
Label1.Name = "Label1"
Commandgroup1.ButtonCount = 3
Commandgroup1.cmdAceptar.Top = 8
Commandgroup1.cmdAceptar.Left = 18
Commandgroup1.cmdAceptar.Height = 29
Commandgroup1.cmdAceptar.Width = 94
Commandgroup1.cmdAceptar.Caption = "\<Respaldar"
Commandgroup1.cmdAceptar.Name = "cmdAceptar"
Commandgroup1.cmdCancelar.Top = 8
Commandgroup1.cmdCancelar.Left = 138
Commandgroup1.cmdCancelar.Height = 29
Commandgroup1.cmdCancelar.Width = 94
Commandgroup1.cmdCancelar.Caption = "Re\<staurar"
Commandgroup1.cmdCancelar.Enabled = .F.
Commandgroup1.cmdCancelar.Name = "cmdCancelar"
Commandgroup1.Command3.Top = 8
Commandgroup1.Command3.Left = 258
Commandgroup1.Command3.Height = 29
Commandgroup1.Command3.Width = 94
Commandgroup1.Command3.Caption = "\<Cerrar"
Commandgroup1.Command3.Name = "cmdCerrar"
Commandgroup1.Height = 42
Commandgroup1.Left = 7
Commandgroup1.Top = 318
Commandgroup1.Width = 371
Commandgroup1.TabIndex = 7
Commandgroup1.ZOrderSet = 12
Commandgroup1.Name = "Commandgroup1"
ÆPROCEDURE Load
SET EXACT ON
thisform.pathoriginal = FULLPATH(SET("DEFA"))
ENDPROC
PROCEDURE Init
thisform.txtArchivo.Value = thisform.pathoriginal+ dtos(date())+'.cab'
ENDPROC
PROCEDURE Commandgroup1.cmdAceptar.Click
lcOldDir = FULLPATH(SET("DEFA"))
SET DEFA TO (THISFORM.txtCarpeta.Value)
WITH THISFORM.cntArchivos.lstSelected
IF .ListCount = 0
MESSAGEBOX("No existen archivos en esta carpeta.",0+64,"Sin Archivos")
RETURN .F.
ENDIF
THISFORM.olecompress.Filename = ALLTRIM(THISFORM.txtArchivo.Value)
FOR kArch = 1 to .ListCount
THISFORM.olecompress.Files.Add(ALLTRIM(THISFORM.txtCarpeta.Value)+.List(kArch))
ENDFOR
THISFORM.olecompress.Compress()
THISFORM.olecompress.Reset()
?? CHR(7)
DO atencion WITH "Respaldo realizado."
ENDWITH
SET DEFA TO (lcOldDir)
ENDPROC
PROCEDURE Commandgroup1.cmdCancelar.Click
lcOldDir = FULLPATH(SET("DEFA"))
SET DEFA TO (THISFORM.txtCarpeta.Value)
WITH THISFORM.cntArchivos.lstSelected
IF .ListCount = 0
MESSAGEBOX("No se han seleccionado archivos para Restaurar",0+64,"Sin Archivos")
RETURN .F.
ENDIF
THISFORM.oleExtract.Filename = ALLTRIM(THISFORM.txtArchivo.Value)
IF THISFORM.oleExtract.Files.Count = .ListCount && Seleccionar todos
THISFORM.oleExtract.Files.SelectAll
ELSE && Seleccionar Archivos para Descomprimir
FOR kArch = 1 TO .ListCount
THISFORM.oleExtract.Files.ItemByName(.List(kArch)).Selected = .T.
ENDFOR
ENDIF
THISFORM.oleExtract.Extract(THISFORM.txtCarpeta.Value)
THISFORM.oleExtract.Reset()
?? CHR(7)
WAIT WINDOW TIMEOUT(2) "Listo..."
ENDWITH
SET DEFA TO (lcOldDir)
ENDPROC
PROCEDURE Commandgroup1.cmdCerrar.Click
set defa to (thisform.pathoriginal)
THISFORM.Release
ENDPROC
ëþòÿ Ò Ò Ãþ % S I 1 ç ü U ! G þ Tô ÷ üCCÙ DEFAv»ýþ U THISFORM PATHORIGINAL& # Tô ô ÷ üô ÷ CC$û .cabýþ U THISFORM
TXTARCHIVO VALUE PATHORIGINALY T÷ üCCÙ DEFAv»ýþ G(üô ô ÷ ýþ ¦üô ô ÷ ýùFþ %üâ÷ ø ýù þB üCÙ$ No existen archivos en esta carpeta....@Ù Sin Archivosêxýþ Bü-ýþ þ Tô ô ÷ üCô ô ÷ ýþ ÷
üøý(üâ÷ ýùô þ( üCCô ô ÷ C ÷
âö
ô ô ô ö ýþ
þ üCô ô ö ýþ üCô ô ö ýþ øüCø ýþ ÷ ÑüÙ Respaldo realizado.ýþ §þ G(ü÷ ýþ U LCOLDDIR THISFORM
TXTCARPETA VALUE CNTARCHIVOS LSTSELECTED LISTCOUNT OLECOMPRESS FILENAME
TXTARCHIVO KARCH FILES ADD LIST COMPRESS RESET ATENCION T÷ üCCÙ DEFAv»ýþ G(üô ô ÷ ýþ ¦üô ô ÷ ýùþ %üâ÷ ø ýù þL üCÙ. No se han seleccionado archivos para restaurar...@Ù Sin Archivosêxýþ Bü-ýþ þ Tô ô ÷ üCô ô ÷ ýþ %üô ô ô
÷ â÷ ýùé þ ô ô ô
÷ þ ù0þ ÷
üøý(üâ÷ ýù,þ# Tô ô ô
å üC ÷
âö ý÷ üaýþ
þ þ üCô ô ÷ ô ô ö ýþ üCô ô ö ýþ øüCø ýþ R,ÎüøýüÙ Listo...ýþ §þ G(ü÷ ýþ U LCOLDDIR THISFORM
TXTCARPETA VALUE CNTARCHIVOS LSTSELECTED LISTCOUNT
OLEEXTRACT FILENAME
TXTARCHIVO FILES COUNT SELECTALL KARCH
ITEMBYNAME LIST SELECTED EXTRACT RESET G(üô ÷ ýþ
ô ÷ þ U THISFORM PATHORIGINAL RELEASE Load, ÿÿ Initi ÿÿ Commandgroup1.cmdAceptar.Click¾ ÿÿ Commandgroup1.cmdCancelar.Click¾ ÿÿ Commandgroup1.cmdCerrar.Click ÿÿ1 a 4 22 Q!1!!q A ±A á B Á 3 Q!1!Áq A ±± 1A A á B Á 2 ñ ¡ 1 S n ¶ ë *
` R " . » : ) Ò pathoriginal
olecontrol
olecontrol oleTherm frmBackup _Top = 298
Left = 7
Height = 19
Width = 369
TabIndex = 6
ZOrderSet = 4
Name = "oleTherm"
ÐÏࡱá > þÿ þÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿþÿÿÿþÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR o o t E n t r y ÿÿÿÿÿÿÿÿ vYÒÅ O l e O b j e c t D a t a ÿÿÿÿ X A c c e s s O b j S i t e D a t a & ÿÿÿÿÿÿÿÿÿÿÿÿ 8 C h a n g e d P r o p s ÿÿÿÿÿÿÿÿÿÿÿÿ þÿÿÿþÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ±oQ¾=Ò¿ñnÏv² H òWG _ e x t e n t x #&
òWG8 8 Value I
d àÿÿÿ_ e x t e n t y ÷ ;OLEObject = \\pdccooperativa\infocoop\clases\eclipse1.ocx
_textbox ..\clases\objetos.vcx textbox
txtArchivo frmBackup pEnabled = .T.
Height = 23
Left = 93
TabIndex = 3
Top = 87
Width = 262
ZOrderSet = 5
Name = "txtArchivo"
_label ..\clases\objetos.vcx label lblBackup frmBackup aCaption = "Respaldar A:"
Left = 15
Top = 90
TabIndex = 2
ZOrderSet = 6
Name = "lblBackup"
olecontrol
olecontrol oleCompress frmBackup DTop = 1
Left = 302
Height = 39
Width = 40
Name = "oleCompress"
ÐÏࡱá > þÿ þÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿþÿÿÿþÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR o o t E n t r y ÿÿÿÿÿÿÿÿ vYÒÅ O l e O b j e c t D a t a ÿÿÿÿ X A c c e s s O b j S i t e D a t a & ÿÿÿÿÿÿÿÿÿÿÿÿ 8 C h a n g e d P r o p s ÿÿÿÿÿÿÿÿÿÿÿÿ þÿÿÿþÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿo;KìÒ¿
0µ]w² H òWG _ e x t e n t x "
òWG8 8 I V ~ 1 h e a d \ N E R O W A ~ 1 \ A U D I O C ~ 1 . O C X M i c àÿÿÿ_ e x t e n t y " w s R e p o r t C o n t r o l { 1 6 7 7 0 1 E 3 - F D C F - 1 1 D 0 - A 4 8 E - 0 0 6 0 9 7 C 5 4 9 F F } C : \ W I N N T \ s y s t e m 3 2 \ b r 5 4 9 . d l l C o l o r B v r C l a s s { 3 8 4 5 A 1 7 4 - E B 3 0 - 1 1 D 1 - 9 A 2 3 - 0 0 A 0 C 8 7 9 F E 5 F } C : \ W I N N T \ *OLEObject = C:\WINNT\system\ECLIPSE2.OCX
_commandbutton ..\clases\objetos.vcx
commandbutton
cmdArchivo frmBackup rTop = 87
Left = 355
Height = 23
Width = 20
Caption = "..."
TabIndex = 4
ZOrderSet = 7
Name = "cmdArchivo"
ìPROCEDURE Click
*!* lcArchivo = STUFF(lcArchivo,0,RAT("\",lcArchivo),"")
WITH THISFORM
IF .opgBackup.Value = 1 && Respaldar
.txtArchivo.Value = PUTFILE("comprimir Archivos","Back001.CAB",".CAB")
ELSE
.txtArchivo.Value = GETFILE("CAB", "Buscar en:" , "Restaurar" , 0,"Archivo Comprimido")
If !Empty(.txtArchivo.Value)
.oleExtract.FileName = ALLTRIM(.txtArchivo.Value)
EndIf
IF .oleExtract.Files.Count = 0
MESSAGEBOX("No se ha seleccionado un Archivo válido",0+64,"Sin Archivos")
RETURN
ENDIF
.cntArchivos.lstSource.Clear
.cntArchivos.lstSelected.Clear
FOR EACH oFileExtract IN .oleExtract.Files
.cntArchivos.lstSelected.AddItem(oFileExtract.FileName)
NEXT oFileExtract
ENDIF
ENDWITH
ENDPROC
îþòÿ Õ Õ ³U % S b ü U
¦ü÷ ýùþ %üâô ÷ øýù\ þ: Tâô ÷ üCÙ comprimir ArchivosÙ Back001.CABÙ .CABÂýþ ùþG Tâô ÷ üCÙ CABÙ
Buscar en:Ù Restaurarø Ù Archivo ComprimidoÁýþ %üCâô ÷ ¡
ýùÖ þ Tâô ÷ üCâô ÷ ýþ þ %üâô ô ÷ ø ýù;þE üCÙ' No se ha seleccionado un Archivo válido...@Ù Sin Archivosêxýþ Bþ þ âô ô ÷
þ âô ô ÷
þ µ÷ âô ÷ ù
þ üCô ÷ âô ô ö
ýþ ¶þ þ §þ U THISFORM OPGBACKUP VALUE
TXTARCHIVO
OLEEXTRACT FILENAME FILES COUNT CNTARCHIVOS LSTSOURCE CLEAR LSTSELECTED OFILEEXTRACT ADDITEM Click, ÿÿ1 Ò Q¡ qAqA QA A á á 1qA A A 1 á ) Õ
moverlists ..\clases\objetos.vcx container cntArchivos frmBackup úTop = 138
Left = 10
Width = 366
Height = 159
TabIndex = 10
ZOrderSet = 8
Name = "cntArchivos"
lstSource.Height = 132
lstSource.Width = 143
lstSource.Name = "lstSource"
lstSelected.Height = 132
lstSelected.Left = 219
lstSelected.Top = 22
lstSelected.Width = 143
lstSelected.Name = "lstSelected"
cmdAdd.Top = 24
cmdAdd.Left = 159
cmdAdd.Name = "cmdAdd"
cmdAddAll.Top = 53
cmdAddAll.Left = 159
cmdAddAll.Name = "cmdAddAll"
cmdRemove.Top = 94
cmdRemove.Left = 159
cmdRemove.Name = "cmdRemove"
cmdRemoveAll.Top = 124
cmdRemoveAll.Left = 159
cmdRemoveAll.Name = "cmdRemoveAll"
Label1.Caption = "Archivos Directorio"
Label1.Name = "Label1"
Label2.Caption = "Archivos a Respaldar"
Label2.Left = 219
Label2.Top = 6
Label2.Name = "Label2"
_textbox ..\clases\objetos.vcx textbox
txtCarpeta frmBackup rEnabled = .T.
Height = 23
Left = 10
TabIndex = 11
Top = 113
Width = 345
ZOrderSet = 9
Name = "txtCarpeta"
ÍPROCEDURE Valid
IF ALLTRIM(THIS.Value) # ALLTRIM(THISFORM.vOldValor)
lcOldPath = thisform.pathoriginal && FULLPATH(SET("DEFA"))
SET DEFA TO (THIS.Value)
nArchivos = ADIR(Archivos)
WAIT WINDOW NOWAIT "Cargando Lista de Archivos..."
THISFORM.oleTherm.Visible = .T.
WITH THISFORM.cntArchivos.lstSource
.Clear
FOR kArch = 1 TO nArchivos
.AddItem(Archivos(kArch,1))
THISFORM.oleTherm.Value = kArch
ENDFOR
ENDWITH
THISFORM.oleTherm.Visible = .F.
WAIT WINDOW NOWAIT STR(nArchivos) + " Archivos Cargados."
SET DEFA TO (lcOldPath)
THISFORM.Refresh
ENDIF
ENDPROC
PROCEDURE Init
THISFORM.Visible = .T.
LcoldDir = thisform.pathoriginal+'\DBFS\' && FULLPATH(SET("DEFA"))+'dbfs'
SET DEFA TO (LcoldDir)
THIS.Value = LcoldDir
DIMENSION Archivos[1,5]
WAIT WINDOW NOWAIT "Cargando Lista de Archivos..."
nArchivos = ADIR(Archivos)
THISFORM.oleTherm.Visible = .T.
WITH THISFORM.cntArchivos.lstSource
.Clear
FOR kArch = 1 TO nArchivos
.AddItem(Archivos(kArch,1))
THISFORM.oleTherm.Value = kArch
ENDFOR
ENDWITH
THISFORM.oleTherm.Visible = .F.
WAIT WINDOW NOWAIT STR(nArchivos) + " Archivos Cargados."
SET DEFA TO (LcoldDir)
THISFORM.vOldValor = THIS.Value
ENDPROC
Õþòÿ ¼ ¼ 5 % ö c ( ü U : %üCô ÷ Cô ÷ ýù3þ T÷ üô ÷ ýþ G(üô ÷ ýþ T÷ üCê÷ êýþ( R,:üÙ Cargando Lista de Archivos...ýþ Tô ô ÷ üaýþ ¦üô ô
÷ ýùä þ â÷ þ ÷
üøý(ü÷ ýùà þ üCC ÷
øö âö ýþ Tô ô ÷ ü÷
ýþ
þ §þ Tô ô ÷ ü-ýþ$ R,:üC÷ ZÙ Archivos Cargados.ýþ G(ü÷ ýþ
ô ÷ þ þ U THIS VALUE THISFORM VOLDVALOR LCOLDPATH PATHORIGINAL NARCHIVOS ARCHIVOS OLETHERM VISIBLE CNTARCHIVOS LSTSOURCE CLEAR KARCH ADDITEM REFRESH\ Tô ÷ üaýþ T÷ üô ÷ û \DBFS\ýþ G(ü÷ ýþ Tô ÷ ü÷ ýþ ö üøýüøýþ( R,:üÙ Cargando Lista de Archivos...ýþ T÷ üCê÷ êýþ Tô ô ÷ üaýþ ¦üô ô ÷
ýùþ â÷ þ ÷ üøý(ü÷ ýùý þ üCC ÷ øö âö
ýþ Tô ô ÷ ü÷ ýþ
þ §þ Tô ô ÷ ü-ýþ$ R,:üC÷ ZÙ Archivos Cargados.ýþ G(ü÷ ýþ Tô ÷ üô ÷ ýþ U THISFORM VISIBLE LCOLDDIR PATHORIGINAL THIS VALUE ARCHIVOS NARCHIVOS OLETHERM CNTARCHIVOS LSTSOURCE CLEAR KARCH ADDITEM VOLDVALOR Valid, ÿÿ Init ÿÿ1 ±ñ !1 qa1A A BÁ ¡ A 2 á ¡Â 2!1 qa1A A A 11 Q l  ) ¼ _commandbutton ..\clases\objetos.vcx
commandbutton
cmdCarpeta frmBackup tTop = 113
Left = 355
Height = 23
Width = 20
Caption = "..."
TabIndex = 5
ZOrderSet = 10
Name = "cmdCarpeta"
yPROCEDURE Click
WITH THISFORM
.vOldValor = .txtCarpeta.Value
.txtCarpeta.Value = GETDIR(CURDIR(), "Buscar En:")
.txtCarpeta.Value = IIF(EMPTY(.txtCarpeta.Value), .vOldValor, .txtCarpeta.Value)
IF .opgBackup.Value = 1
.cntArchivos.lstSelected.Clear
ENDIF
IF .opgBackup.Value = 1 AND .vOldValor # .txtCarpeta.Value
.txtCarpeta.Valid
ENDIF
ENDWITH
ENDPROC
áþòÿ È È &- % V
e ü U Ë
¦ü÷ ýùÄ þ Tâ÷ üâô ÷ ýþ Tâô ÷ üCCºÙ
Buscar En:ê3ýþ* Tâô ÷ üCCâô ÷ ¡ò â÷ ó âô ÷ 6ýþ %üâô ÷ øýù þ âô ô ÷ þ þ% %üâô ÷ øð
â÷ âô ÷ ýùÀ þ âô ÷ þ þ §þ U THISFORM VOLDVALOR
TXTCARPETA VALUE OPGBACKUP CNTARCHIVOS LSTSELECTED CLEAR VALID Click, ÿÿ1 Ñ !¡Qá A Q± A A 1 n ) È
olecontrol
olecontrol
oleExtract frmBackup CTop = 1
Left = 342
Height = 39
Width = 40
Name = "oleExtract"
ÐÏࡱá > þÿ þÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿýÿÿÿþÿÿÿþÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿR o o t E n t r y ÿÿÿÿÿÿÿÿ vYÒÅ O l e O b j e c t D a t a ÿÿÿÿ X A c c e s s O b j S i t e D a t a & ÿÿÿÿÿÿÿÿÿÿÿÿ 8 C h a n g e d P r o p s ÿÿÿÿÿÿÿÿÿÿÿÿ þÿÿÿþÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿf;KìÒ¿
0µ]w² H òWG _ e x t e n t x "
òWG8 8 . o c x p p l i c a t i o n > A t h h n t r o l { 3 9 6 4 D àÿÿÿ_ e x t e n t y " 1 - 9 8 5 1 - 0 0 C 0 4 F D 9 1 9 7 2 } C : \ W I N N T \ s y s t e m 3 2 \ a p p w i z . c p l c t A n i m a t i o n S e q u e n c e r { B 0 A 6 B A E 2 - A A F 0 - 1 1 D 0 - A 1 5 2 a h ° I S T R Y \ U S E R \ S - 1 - 5 - 2 1 - 1 7 1 5 5 6 7 8 2 1 - 8 3 9 5 2 2 1 1 5 - 7 2 5 *OLEObject = C:\WINNT\system\ECLIPSE2.OCX
_optiongroup ..\clases\objetos.vcx optiongroup opgBackup frmBackup ButtonCount = 2
BackStyle = 0
Value = 1
Height = 33
Left = 13
Top = 44
Width = 359
TabIndex = 12
ZOrderSet = 11
Name = "opgBackup"
Option1.BackStyle = 0
Option1.Caption = "Resp\<aldar"
Option1.Value = 1
Option1.Height = 17
Option1.Left = 55
Option1.Top = 9
Option1.Width = 76
Option1.AutoSize = .T.
Option1.Name = "Option1"
Option2.BackStyle = 0
Option2.Caption = "R\<estaurar"
Option2.Height = 17
Option2.Left = 230
Option2.Top = 9
Option2.Width = 73
Option2.AutoSize = .T.
Option2.Name = "Option2"
ºPROCEDURE Valid
WITH THISFORM
.lblBackup.Caption = IIF(THIS.Value = 1, "Respaldar A:", "Restaurar De:")
IF THIS.Value = 1
.commandgroup1.cmdAceptar.Enabled = .T.
.commandgroup1.cmdCancelar.Enabled = .F.
.vOldValor = " "
.txtCarpeta.Valid
ELSE
.commandgroup1.cmdAceptar.Enabled = .F.
.commandgroup1.cmdCancelar.Enabled = .T.
.cntArchivos.lstSource.Clear
ENDIF
.cntArchivos.lstSelected.Clear
ENDWITH
ENDPROC
Yþòÿ ...@ @ { % È ÷ × ü U ò
¦ü÷ ýùë...@ tâô ÷ ücô ÷ øò Ù
Respaldar A:ó Ù
Restaurar De:6ýþ %üô ÷ øýù þ Tâô ô ÷ üaýþ Tâô ô ÷ ü-ýþ Tâ÷ üÙ ýþ âô
÷ þ ùÙ þ Tâô ô ÷ ü-ýþ Tâô ô ÷ üaýþ âô ô
÷ þ þ âô ô ÷ þ §þ U THISFORM LBLBACKUP CAPTION THIS VALUE
COMMANDGROUP1
CMDACEPTAR ENABLED CMDCANCELAR VOLDVALOR
TXTCARPETA VALID CNTARCHIVOS LSTSOURCE CLEAR LSTSELECTED Valid, ÿÿ1 Ñ A!!ñ ± !!á A á A 1 ¯ ) ...@ barial, 0, 9, 5, 15, 12, 32, 3, 0
Arial, 1, 9, 6, 15, 12, 32, 3, 0
