Lo que hago es crear un espejo en las tablas de paso y deposito en ellas la informacion mas reciente y es la que el usuario final necesitaria, luego esas las comprimo con winrar y ese archivo pequeño lo derivo al hosting via ftp, de la siguiente manera:
IF codpry_x <> 0
lcDataFolder = "..\puntodeventa\exportdata"
local_x = ALLTRIM(STR(hrt_mapry.codpry_c))
file1_ = local_x+'.rar'
len_xx = LEN(ALLTRIM(cString_ftp))
carpeta_ftp =cString_ftp && en el hosting
lcScript = "open miHosting.com" + CHR(10) +;
"usuarioenelHosting" + CHR(10) + ;
"clavedeusuarioenehosting" + CHR(10)+ ;
"binary" + CHR(10) + ;
carpeta_ftp + CHR(10) + ;
"lcd " + lcDataFolder + CHR(10) + ;
"put " + file1_+ CHR(10) + ;
"bye"
STRTOFILE(lcScript,"ftpscript.txt")
RUN ftp -i -s:ftpscript.txt
ENDIF
Esto en un boton "enviar" y se va al hosting, luego los usuarios finales tiene una aplicacion de bajada y actualizacion de sus tablas. La conexion y bajada de los datos es:
lcDataFolder = "c:\gmi\PUNTODEVENTA\importdata"
local_x = ALLTRIM(STR(hrt_mapry.codpry_c))
local_x = hrt_mapry.codpry_c
carpeta_ftp = cString_ftp
file1_ = ALLTRIM(STR(local_x))+'.rar'
*
lcScript = "open mihosting.com" + CHR(10) +;
"usuarioenelhosting" + CHR(10) + ;
"claveenelhosting" + CHR(10)+ ;
"binary" + CHR(10) + ;
carpeta_ftp + CHR(10) + ;
"lcd " + lcDataFolder + CHR(10) + ;
"mget " + file1_+ CHR(10) + ;
"bye"
STRTOFILE(lcScript,"ftpscript.txt")
RUN /N ftp -i -s:ftpscript.txt
wAIT "...Bajando archivos desdes el servidor FTP" window TIMEOUT 7
Previamente debes tratar de automatizar la compresion de las tablas. Este asunto es algo como:
RUN /N c:\archiv~1\winrar\winrar a -ep1 -r c:\gmi\Puntodeventa\Exportdata\&target_x c:\gmi\Puntodeventa\Exportdata\*.dbf c:\gmi\Puntodeventa\Exportdata\*.cdx c:\gmi\Puntodeventa\Exportdata\*.fpt
Cualquier cosa:
[email protected]
Suerte
