FiveTech Software tech support forums

... hiredate DATE,
married BOOLEAN,
age INTEGER,
salary DECIMAL( 9, 2 ),
notes VARCHAR( 70 ),
PRIMARY KEY ( id )
)

ENDTEXT

cls

msg( "Traspaso de datos..." )

try
oDb := THDbc():new( _DRIVER_ )

oDb:connect( _CONN_STRING_ )
oDb:exec( cCreaTable )

traspasa( oDb )

catch e
eval ...

... el tiempo es el bucle FOR, el copiado campo a campo. Recorrer UNO a UNO los campos a grabar.
Habria que inventar algo para que se hiciera un traspaso en bloque... algo parecido a usar __dbTrans

Mientras, usar Local nFCount:= ::FCount() en FOR nField:= 1 TO nFCount, y similares variables, puede ...

... SAGE proporcióna a sus clientes un manual de Contaplus de 2017 para importar asientos en DBF y CSV a SAGE50C.

m


Estructura usado m

Pero exportando a la estructura del manual da errores importando a SAGE 50C

A un fivewinner a logrado preparar con éxito el traspaso a SAGE50C.

Saludos
Paul

... a lenguaje C es por algún proyecto en especial?
- FW no puede ser una alternativa?, (yo he traspasado sistemas antiguos de todo tipo)
- el traspaso de datos Cobol, sera a que tipo de base de datos? (o se mantiene)

Esto es para orientar un poco mas a los que podemos estar interesados en un ...

Gracias por la respuesta, pero tengo que abrir los DBF con MDX para realizar un traspaso de datos y logro abrirlos ficheros.
¿Sabeis como?

Hola Silvio (caro amico) para hacerlo via usb tienes que activar el traspaso de ficheros con la tableta que me supongo que es Android, yo nunca he tenido problemas, busca en internet. Otras soluciones como te han dicho traspaso via FTP, e-mail, Wifi, bluetooth para un tio tan listo como tu no debe ...

Sí...
En este momento ya se está probando en un entorno de producción.
En cuanto el betatester dé el visto bueno os aviso. Pero antes pondré un para de ejemplos. Uno de traspaso de una DBF a MySQL y otro el mantenimiento de esa tabla.

... bases de datos, con lo que con ella podrás realizar la tareas que necesitas, y lo que te falte, pues tendrás que desarrollarlo, aunque hay muchos ejemplos de traspaso de dbf a mysql en el foro
Por otra parte, si vas a usar ADO, creo que tienes que instalar los drives de Mysql, en cada máquina cliente

... de la tabla activa.
Así, una vez obtenido, cambia a la tabla destino hacemos un append blank, y soltamos el contenido ;
FW_HashToRec( hRec )

A continuación, marca ya en la tabla origen que lo he procesado.
De esta manera, tenemos un control total sobre el traspaso de datos que con APPEND FROM.

... día:

Este es un ejemplo, "en el cual te puedes orientar", que tengo con una pantalla no modal, con agregado, edición, Eliminación, Impresión y Traspaso a excel de un maestro de clientes.

//------------------------------------------------------------------------//---- Programa : [ Client.prg ...

... xDb:Skip()
Next


Como optimizo eso con For Each... que me ha resultado muy rapido para manejo de arreglos, pero no me cuadra para hacer el traspaso del select a un arreglo agregandole otros valores, sino usaria xDb:FillArray() propio de tDolphin

Eso .. gracias de antemano.

Desde Chile
Adolfo

... Nil

DEFINE DIALOG oDlg RESOURCE "CIEMES" TITLE "Traspasando saldos del mes"
REDEFINE BUTTON oBtn[1] ID 201 OF oDlg ACTION (MsgRun("Generando traspaso de saldos...espera",,;
{|| GENCIEMES()}), oDlg:End())
REDEFINE BUTTON oBtn[2] ID 202 OF oDlg ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTER ...

... DEFINE DIALOG oDlg RESOURCE "CIEMES" TITLE "Traspasando saldos del mes"
REDEFINE BUTTON oBtn[1] ID 201 OF oDlg ACTION (MsgRun("Generando traspaso de saldos...espera",,;
{|| GENCIEMES()}), oDlg:End())
REDEFINE BUTTON oBtn[2] ID 202 OF oDlg ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTER ...

... comparte nada ni vende, solo te puedo decir que nuestro producto es comercial y puede integrarse en forma transparente con otras aplicaciones via traspaso de archivos y tiene un valor de arriendo mensual bastante economico y sin limite de numero de documentos emitidos y para los programadores que lo ...

... e INFO2() La primera es para verificar las propiedades del Recordset y la segunda los datos de cada campo del recordset.

Codigo de apertura y traspaso de datos
   cTempLin := cArea+"MODLIN.DBF"   aadd(aEstruc,{"CODIGO"    ,"C", 14,0 } )  &nbsp ...