Hola, has probado a crearte tu propia transferencia?.
Te adjunto un ejemplo de un archivo BAT que compone el archivo de transferencia.
----------------------------------------------------------------------------------------
@echo off
REM %1 Biblioteca, %2 Fichero/400 a transferir a PC, %3 Fichero XLS, %4 Fichero DTF
echo.>> %4
echo [DataTransferFromAS400] >> %4
echo Version=1.0 >> %4
echo [HostInfo] >> %4
echo HostName= 10.16.1.3 >> %4
echo HostFile=%1/%2 >> %4
echo [ClientInfo] >> %4
echo OutputDevice=2 >> %4
echo PCFileType=11 >> %4
echo PCFile=%3 >> %4
echo CrtOpt=1 >> %4
echo SaveFDF=0 >> %4
echo FDFFile=%4 >> %4
echo ConvType=0 >> %4
echo FileOps=7 >> %4
echo ASCIITruncation=1 >> %4
echo [SQL] >> %4
echo Select= AGETR99 as "Agencia", CLIEN99 as "Cliente",KGRD01 as "Kg D1",EXPD01 as "Exp",BULD01 as "Bul",VOLD01 as "Vol",IMPD01 as "Imp", KGRD02 as "Kg D2",EXPD02 as "Exp",BULD02 as "Bul",VOLD02 as "Vol",IMPD02 as "Imp",KGRD03 as "Kg D3",EXPD03 as "Exp",BULD03 as "Bul",VOLD03 as "Vol",IMPD03 as "Imp",KGRD04 as "Kg D4",EXPD04 as "Exp",BULD04 as "Bul",VOLD04 as "Vol",IMPD04 as "Imp",KGRD05 as "Kg D5",EXPD05 as "Exp",BULD05 as "Bul",VOLD05 as "Vol",IMPD05 as "Imp",KGRD06 as "Kg D6",EXPD06 as "Exp",BULD06 as "Bul",VOLD06 as "Vol",IMPD06 as "Imp",KGRD07 as "Kg D7",EXPD07 as "Exp",BULD07 as "Bul",VOLD07 as "Vol",IMPD07 as "Imp",KGRD08 as "Kg D8",EXPD08 as "Exp",BULD08 as "Bul",VOLD08 as "Vol",IMPD08 as "Imp",KGRD09 as "Kg D1",EXPD09 as "Exp",BULD09 as "Bul",VOLD09 as "Vol",IMPD09 as "Imp",KGRD10 as "Kg D10",EXPD10 as "Exp",BULD10 as "Bul",VOLD10 as "Vol",IMPD10 as "Imp",KGRD11 as "Kg D11",EXPD11 as "Exp",BULD11 as "Bul",VOLD11 as "Vol",IMPD11 as "Imp",KGRD12 as "Kg D12",EXPD12 as "Exp",BULD12 as "Bul",VOLD12 as "Vol",IMPD12 as "Imp",KGRD13 as "Kg D13",EXPD13 as "Exp",BULD13 as "Bul",VOLD13 as "Vol",IMPD13 as "Imp",KGRD14 as "Kg D14",EXPD14 as "Exp",BULD14 as "Bul",VOLD14 as "Vol",IMPD14 as "Imp",KGRD15 as "Kg D15",EXPD15 as "Exp",BULD15 as "Bul",VOLD15 as "Vol",IMPD15 as "Imp",KGRD16 as "Kg D16",EXPD16 as "Exp",BULD16 as "Bul",VOLD16 as "Vol",IMPD16 as "Imp",KGRD17 as "Kg D17",EXPD17 as "Exp",BULD17 as "Bul",VOLD17 as "Vol",IMPD17 as "Imp",KGRD18 as "Kg D18",EXPD18 as "Exp",BULD18 as "Bul",VOLD18 as "Vol",IMPD18 as "Imp",KGRD19 as "Kg D19",EXPD19 as "Exp",BULD19 as "Bul",VOLD19 as "Vol",IMPD19 as "Imp",KGRD20 as "Kg D20",EXPD20 as "Exp",BULD20 as "Bul",VOLD20 as "Vol",IMPD20 as "Imp",KGRD21 as "Kg D21",EXPD21 as "Exp",BULD21 as "Bul",VOLD21 as "Vol",IMPD21 as "Imp",KGRD22 as "Kg D22",EXPD22 as "Exp",BULD22 as "Bul",VOLD22 as "Vol",IMPD22 as "Imp",KGRD23 as "Kg D23",EXPD23 as "Exp",BULD23 as "Bul",VOLD23 as "Vol",IMPD23 as "Imp",KGRD24 as "Kg D24",EXPD24 as "Exp",BULD24 as "Bul",VOLD24 as "Vol",IMPD24 as "Imp",KGRD25 as "Kg D25",EXPD25 as "Exp",BULD25 as "Bul",VOLD25 as "Vol",IMPD25 as "Imp",KGRD26 as "Kg D26",EXPD26 as "Exp",BULD26 as "Bul",VOLD26 as "Vol",IMPD26 as "Imp",KGRD27 as "Kg D27",EXPD27 as "Exp",BULD27 as "Bul",VOLD27 as "Vol",IMPD27 as "Imp",KGRD28 as "Kg D28",EXPD28 as "Exp",BULD28 as "Bul",VOLD28 as "Vol",IMPD28 as "Imp",KGRD29 as "Kg D29",EXPD29 as "Exp",BULD29 as "Bul",VOLD29 as "Vol",IMPD29 as "Imp",KGRD30 as "Kg D30",EXPD30 as "Exp",BULD30 as "Bul",VOLD30 as "Vol",IMPD30 as "Imp",KGRD31 as "Kg D31",EXPD31 as "Exp",BULD31 as "Bul",VOLD31 as "Vol",IMPD31 as "Imp",>> %4
echo Where= >> %4
echo OrderBy= >> %4
echo GroupBy= >> %4
echo Having= >> %4
echo JoinBy= >> %4
echo SQLSelect= >> %4
echo EnableGroup=0 >> %4
echo MissingFields=0 >> %4
echo [Options] >> %4
echo IgnoreDecErr=1 >> %4
echo TimeSep=[:] >> %4
echo TimeFmt=HMS >> %4
echo DateSep=[/] >> %4
echo DateFmt=EUR >> %4
echo DecimalSep=, >> %4
echo SortSeq=0 >> %4
echo SortTable= >> %4
echo Lang=0 >> %4
echo LangID= >> %4
echo [HTML] >> %4
echo AutoSize=0 >> %4
echo OverWrite=1 >> %4
echo Charset=windows-1252 >> %4
echo ConvInd=0 >> %4
echo Title= >> %4
echo IncDateTime=0 >> %4
echo DateTimeLoc=0 >> %4
echo TabAlign=0 >> %4
echo TabRows=2 >> %4
echo TabCols=2 >> %4
echo TabBW=1 >> %4
echo TabCS=1 >> %4
echo TabCP=1 >> %4
echo TabWidth=100 >> %4
echo TabWidthP=0 >> %4
echo TabMap=1 >> %4
echo CapAlign=0 >> %4
echo CapStyle=1 >> %4
echo CapSize=6 >> %4
echo CapIncNum=0 >> %4
echo Caption= >> %4
echo RowAlignHdrV=0 >> %4
echo RowAlignHdrH=0 >> %4
echo RowAlignGenV=0 >> %4
echo RowAlignGenH=0 >> %4
echo RowSytleHdr=1 >> %4
echo RowStyleGen=1 >> %4
echo CellAlignT=0 >> %4
echo CellAlignN=0 >> %4
echo CellWrap=1 >> %4
echo CellSize=6 >> %4
echo UseTemplate=0 >> %4
echo Template= >> %4
echo TemplateTag= >> %4
echo [Properties] >> %4
echo Check4Untrans=0 >> %4
echo Convert65535=0 >> %4
echo UseAlias=1 >> %4
echo Notify=1 >> %4
echo SQLStmt=0 >> %4
echo AutoRun=0 >> %4
echo AutoClose=0 >> %4
echo ShowWarnings=1 >> %4
C:\ARCHIV~1\IBM\CLIENT~1\RTOPCB.EXE %4
rem DEL %4
------------------------------------------------------------------------------------------
Un saludo
JMP
| [EMAIL PROTECTED]
Enviado por: [EMAIL PROTECTED] 12/07/2006 17:26
|
|
Hola foro:
Necesito ejecutar una transferencia de datos de consumos de clientes
bastante compleja, con union de archivos, resultados agrupados, etc. que
el CA no me permite diseñar directamente y dejarlo en un excel. Esto lo he
solucionado marcando la opcion "Procesar SELECT como SQL nativo", y en
"Opciones de datos" "Sentencia SQL Select" grabo la select que me ejecuta
el AS y como salida, un fichero .XLS: asi funciona todo perfectamente.
Esto ya seria la releche si puediera incluir en esa sentencia SQL
variables como las que se pueden usar en un QMQRY, para poder construir
una calusula tipo "WHERE codigocliente = :CODIGO" y poder ejecutar
"consumoclientes.dtf 42836".
¿Alguien sabe si se pueden pasar parametros a una trasnferencia?
Otra duda: ¿Se puede parametrizar por ejemplo, el nombre del fichero que
recibira la salida (parametro PCFile= del fichero .DTF)?
Gracias
--------------------------------------------------------------------------------------------
Nueva Barra de Herramientas de OZÚ. Navega Más facilmente por Internet.
¡Descargatela gratis! http://barra.ozu.es/
--------------------------------------------------------------------------------------------
Correo enviado desde http://www.ozu.es
__________________________________________________
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 visita la siguente URL:
http://coyote.combios.es/mailman/listinfo/forum.help400
------------------------------------------------------------------------------------------------------------------------------------
L'integrite de ce message et des pieces jointes n'etant pas assuree sur Internet, Geodis
ou une de ses filiales ne peuvent etre tenus responsables de son contenu. Toute utilisation
ou diffusion non autorisee est interdite. Si vous n'etes pas destinataire de ce message,
merci de le detruire et d'en avertir l'expediteur.
The integrity of this message and its attachments cannot be guaranteed on the Internet.
Geodis or one of its subsidiaries can not therefore be considered responsible for the
contents. Any unauthorized use or dissemination is prohibited. If you are not the intended
recipient of this message, please destroy it and notify the sender.
------------------------------------------------------------------------------------------------------------------------------------
