Tengo esa utilidad, la verdad es que funciona bastante bien, otra idea de convertir
ficheros es la siguiente, la desarrolle en FOX, y funciona bastante bien . ya que me
permite convertir a distintos formatos.
Les paso el FUENTE, con el mismo genere un EXE, de manera que lo puedo invocar desde
cualquier parte, pasandole los parametros que necesito
ODBC : la fuente de datos debe existir (En mi caso tenemos varios AS, y tengo una
fuente para cada uno)
ARCHIVO: El que deseo recuperar desde el AS
BIBLIOTECA: la biblioteca donde se encuentra el archivo
TIPE : a que deseo convertir el archivo que transfiero
Por supuesto que el fuente puede ser mejorado, pero soluciona el tema de no tener
CLIENT ACCESS o el FILE TRANSFER DE RUMBA.
La unica restricci�n, es que no soporta campos , con mas de 256 de largo.(Son
restricciones propias de FOX)
*******************************************************************************
* Convierte archivos desde AS a varios formatos
*
* Programs : TRANSFER.PRG
*
* Generacion:
* build project transfer from transfer.prg
* build exe transfer from transfer
*******************************************************************************
parameters odbc archivo biblioteca tipe
set safet off
set status off
set confirm off
set debug off
set echo off
@ 3, 3 say logobdt
if upper(tipe) <> 'FOXPLUS' .and. upper(tipe) <> 'FOX2X' .and. ;
upper(tipe) <> 'DIF' .and. upper(tipe) <> 'MOD' .and. ;
upper(tipe) <> 'SDF' .and. upper(tipe) <> 'SYLK' .and. ;
upper(tipe) <> 'WK1' .and. upper(tipe) <> 'WKS' .and. ;
upper(tipe) <> 'WR1' .and. upper(tipe) <> 'WRK' .and. ;
upper(tipe) <> 'CVS' .and. upper(tipe) <> 'XLS' .and. ;
upper(tipe) <> 'XL5'
? 'El tipo de archivo de salida no es valido.' + MESSAGE( )
? 'Los Valores validos son (FOXPLUS, FOX2X, ' + MESSAGE(1)
? 'DIF, MOD, SDF, SYLK, WK1, WKS, WR1, WRK, ' + MESSAGE(2)
? 'CVS, XLS, XL5)' + MESSAGE(3)
wait
quit
endif
close all
arc = archivo
sqlstring = "'SELECT *FROM " + alltrim(biblioteca) + "." + alltrim(archivo) + "'"
clear screen
cmd = "a= SQLCONNECT('" + odbc + "')"
&cmd
IF a <= 0
= MESSAGEBOX('No se puede conectar', 16, 'Error de conexi�n SQL')
ELSE
cmd = 'b = sqlexec(a , '+alltrim(sqlstring)+')'
&cmd
IF b <= 0
= MESSAGEBOX('No se puedo recuperar el archivo ', 16, 'Error de lectura')
ELSE
cmd = 'copy to ' + alltrim(arc) + ' type ' + tipe
&cmd
= SQLDISCONNECT(a)
= MESSAGEBOX('Archivo transferido satisfactoriamente', 16, 'Finalizacion')
ENDIF
ENDIF
biblioteca = space(10)
archivo = space(10)
tipe = space(4)
odbc = space(10)
quit
> -----Mensaje original-----
> De: [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED]]
> Enviado el: Mi�rcoles, 25 de Septiembre de 2002 11:57 a.m.
> Para: [EMAIL PROTECTED]
> Asunto: RE: traspaso de fichero, desde as/400 a directorio de pc
>
>
> Interesante lo de los sockets, ya explicar�s.
>
> Nosotros hemos hecho un programa que convierte un f�sico en un archivo SMTF
> de tipo dBase que de momento Excel y Access interpretan correctamente, y lo
> enviamos via FTP a la carpeta personal del usuario en el servidor (filer)
> (que siempre est� encendido)
>
> Por INet encontrar�s utilidades que convierten a dBase, (los campos fecha
> no) y dejan el resultado en la /QDLS, con que con un STRPCCMD si tenemos
> mapeada la unidad I: con dicha carpeta puedes pasarlo al PC.
>
>
> fins aviat...
> �lex Corretg�
>
>
>
>
>
> "Victor Velardez BT" <[EMAIL PROTECTED]>@QUIJOTE.COMBIOS.ES con fecha
> 25/09/2002 16:52:17
>
> Por favor, responda a [EMAIL PROTECTED]
>
> Tram�s per: [EMAIL PROTECTED]
>
>
> Destinataris: <[EMAIL PROTECTED]>>
> C�pia:
>
> Classificat: |----------------|
> | ( ) Important |
> | ( ) urgent |
> | ( ) hist�ric |
> | ( ) temporal |
> | ( ) bretolada |
> | ( ) particular |
> |----------------|
> Assumpte: RE: traspaso de fichero, desde as/400 a directorio de pc
>
>
>
> He visto ya varias alternativas, de pasar archivos desde el AS a las PC,=20
>
> las basicas estan bastantes bien, solo si tienes CLIENT ACCESS, =BF Pero si
> =
> no lo tienes?
>
> Fue asi, que instale en la PC, un producto (FTP SERVER), de manera tal que=
> transfiero los archivos, como si lo hiciera a otro SERVER AS.
>
> Su resultado fue bastante satisfactorio, pero choque con el tema de=
> seguridad, ya que debia mantener esa parte en la PC, y en realidad Yo=
> buscaba algo mas transparente.
>
> Lo ultimo que estoy analizando, es una rutina Java, funcionando como=
> Service program en la PC escuchando un puerto XXXX, y un programa RPGLE=
> escribiendo en dicho puerto, indicandole a la PC que es lo que debe hacer=
> (Todo Via SOCKET), la verdad es lo que mas de dejo conforme hasta
> ahora,=20
>
> Si te interesa, podes escribir a mi direcci=F3n, y lo vemos
>
>
>
>
> > -----Mensaje original-----
> > De: Cristina V=E1zquez Osorio [SMTP:[EMAIL PROTECTED]]
> > Enviado el: Mi=E9rcoles, 25 de Septiembre de 2002 08:43 a.m.
> > Para: 'FORUMAS400'
> > Asunto: traspaso de fichero, desde as/400 a directorio de pc
> >=20
> > Hola Foro, =BFpodriais ayudarme de nuevo?...Tengo un fichero en mi=
> as/400(iserie),el nombre de ese fichero no es fijo, (depende de usuario y=
> pantalla), quisiera realizar un cl que sea capaz de coger ese ficherito y=
> por client access(ejecutando una transferencia), llevar ese fichero a un=
> directorio de su pc. (que sea totalmente transparente para el usuario).
> >=20
> > El problema es que el nombre de fichero va cambiando luego la=
> transferencia no puede usar siempre el mismo nombre:un fichero llamada=
> lextracxxx donde xxx puede ir variando.
> >=20
> > Gracias a todos.=20
> >=20
>
> La informacion contenida en este correo es para uso exclusivo de los=
> destinatarios del mismo.
> Esta prohibido a las personas o entidades que no sean los destinatarios de=
> este correo
> realizar cualquier tipo de modificacion, copia o distribucion del mismo.
> Si Usted recibe este correo por error tenga bien notificar al emisor y=
> eliminarlo.
>
> _____________________________________________________
> Forum.HELP400 es un servicio m�s de NEWS/400.
> � Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja, env�a el mensaje resultante de pulsar
> mailto:[EMAIL PROTECTED]?body=LEAVE
>
>
>
>
>
>
>
> _____________________________________________________
> Forum.HELP400 es un servicio m�s de NEWS/400.
> � Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja, env�a el mensaje resultante de pulsar
> mailto:[EMAIL PROTECTED]?body=AVE
La informacion contenida en este correo es para uso exclusivo de los destinatarios del
mismo.
Esta prohibido a las personas o entidades que no sean los destinatarios de este correo
realizar cualquier tipo de modificacion, copia o distribucion del mismo.
Si Usted recibe este correo por error tenga bien notificar al emisor y eliminarlo.
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
