FiveTech Software tech support forums

... bar", alguien tendra un ejemplo deAPPEND FROM con PROGRESS BAR, vi uno aqui en el foro pero no logro hacerlo funcionar : MsgRun("Espere importando", "Importacion de Movimientos desde un archivo Excel CSV", { || muestraprogreso(nPercent1,oMtr1) }) FUNCTION muestraprogreso(nPercent1, ...

... en este momento requiero poder mostrar un dialogo en la posición "0,0" de la ventana principal, que siempre inicie en ese punto, no importando la posición que tenga en ese momento la ventana principal. Lo que requiero hacer voy a lo intento explicar en la siguiente imagen: https://hymplus.com/forofw/pos_pantalla.png ...

Mr. Rao Estoy importando mi tabla mcodi.dbf a MSSQL de esta forma:   xPROVIDER := "SQLOLEDB"                xSOURCE   := "WIN-JET3FF08IIT"                  xPASSWORD := "Pysa2019.  xCATALOG  := "PysaBD" ...

Buenas de nuevo

Ya esta solucionado

No localizo donde puede estar el error pero eliminado el mensaje, como dije anteriormente todo va perfectamente.

oExcel:DisplayAlerts:=.F.

Saludos

...       nCols := oHoja:UsedRange:Columns:Count()        if (nManejador:=fCreate(lDrive + edisco))<>-1        msgwait("Importando Fichero","ESPERA")        For nRow := 4 TO nRows             if (oHoja:Cells(nRow,1):Value)<> Nil                numeroa:=substr(oHoja:Cells(nRow,8):Value,6)  ...

si Append blank si CLIENTES->( OrdScope( 1, Nil ) ) ? COUNT TO nDuplicados FOR FIELD->NUMERO == nNumero ? COUNT TO nRegistros si DBCLEARFILTER si DbDelete si DbDelete() si DbGoBottom() si Dbgoto( nregistro ) si Dbseek( nCodigo ) si dbSelectArea si DbSetOrder(1) si DBSKIP si DBSKIP() ? DELETE A...

Por ejemplo, aquí va una muestra: Append blankCLIENTES->( OrdScope( 1, Nil ) )COUNT TO nDuplicados FOR FIELD->NUMERO == nNumeroCOUNT TO nRegistrosDBCLEARFILTERDbDeleteDbDelete()DbGoBottom()Dbgoto( nregistro )Dbseek( nCodigo )dbSelectAreaDbSetOrde...

A ver... quiero saber algo y quiero que me ayudéis todos.
Exactamente que funciones de la RDD usáis habitualmente en vuestros programas a ver si se pueden implementar.
Quiero decir que el mundo SQL es diferente al de las DBF tanto funcional como conceptualmente...

A muchos nos vendría muy bien este Rdd para darle vidilla a nuestros programas.

Te estás haciendo un lío... Los RDD funcionan casi como clases y tienen herencia. Verás, hay funciones que tienes que implementar porque si no no funciona el RDD ya que en la RDD padre solo están definidas pero no implementadas y otras que no son necesarias porque las implementa el RDD padre. Luego ...

Manuel: Estas son las funciones del RDD:   aADOFunc[ UR_INIT ]         := (@ADO_INIT())   aADOFunc[ UR_EXIT ]         := (@ADO_EXIT())   aADOFunc[ UR_INFO ]       &...

Gracias Jose.

Ya hay un grupo que la prueba.

Si quieres ponte en contacto conmigo.

Hola Moisés te relaciono a continuación lo que está hecho y lo que no fíjate en la LEYENDA: --------------------------------------------------------------------------------    Leyenda--------------------------------------------------------------------------------    X  -> Hecho    P  -> Hecho ...

En este ejemplo se puede ver como es posible usar sentencias SQL creadas por nosotros mismos. En el ejemplo de a continuación uso between para emular un scope: //-- Includes ----------------------------------------------------------------//#include "hdo.ch"#include "ejforall.ch"/...

Hola:

¿Ya está acabado el rdd?