FiveTech Software tech support forums

... VARCHAR(3), @pPRECIO INT, @pDESCRIPCION VARCHAR(40), @pID INT output El ejemplo para llamar a un procedimiento es el siguiente; Creamos el procedimiento almacenado llamado SP_CREAR_EJEMPO a traves de la clase TAdoStoreProc. Nota: oConnection es la clase TAdConnect de Jose Luis ...

... cNombreFichero:="" /// Seleccionamos Fichero Origen cFicheroOrigen:=cGetFile32("C:\" + "PDF" + "\*.pdf", "Seleccione un archivo",1,,,.t.) /// Creamos la carpeta si no existe if !lIsDir( cFicheroDestino ) MakeDir( cFicheroDestino ) end if ///Guardamos el nombre del Fichero cNombreFichero:=substr(cFicheroOrigen,len(alltrim( ...

Perdona por la tardanza Antonio. SubNtx() necesita de un índice maestro, desde el cuál extraer registros y generar el subíndice, por lo que creamos un índice, donde se incluyan los campos de búsqueda, en tu caso Antonio, lo he llamado Art_Nom.NTX que será dentro del índice en cual buscará SubNtx(). ...

... local cHost :="194.187.0.1" local cUser :="superv1" local cPassword :="adsistem" cDtBase :="base_datos_hcm" cDtComun :="BDComun" // Creamos el objeto "connexion" y // Nos conectamos al servidor oMySQL:=TMSConnect():New() oMySQL:Connect( cHost, cUser, cPassword) if !oMySql:lConnected ...

... mejoras al leto la cosa puede ir de maravillas... Yo te decia que la funcion CreateCursor() se debia crear en el servidor de leto porque si la creamos en el cliente, todos los datos, incluyendo lecturas y descartes de registros, han de pasar por el cable... si se crea en el servidos solo pasarian ...

... mejoras al leto la cosa puede ir de maravillas... Yo te decia que la funcion CreateCursor() se debia crear en el servidor de leto porque si la creamos en el cliente, todos los datos, incluyendo lecturas y descartes de registros, han de pasar por el cable... si se crea en el servidos solo pasarian ...

... lOK:=.F. END IF lOk oCon:ConnectionString:=cStringConexionLocal TRY oCon:Open() CATCH oError lOK:=.F. oCon:=NIL END IF lOk //creamos un objeto recordset para ejecutar los queries TRY oDatos:=TOleAuto():New("adodb.recordset") CATCH oError lOK:=.F. oCon:Close() oDatos:=NIL oCon:=NIL ...

... lOK:=.F. END IF lOk oCon:ConnectionString:=cStringConexionLocal TRY oCon:Open() CATCH oError lOK:=.F. oCon:=NIL END IF lOk //creamos un objeto recordset para ejecutar los queries TRY oDatos:=TOleAuto():New("adodb.recordset") CATCH oError lOK:=.F. oCon:Close() oDatos:=NIL oCon:=NIL ...

... lOK:=.F. END IF lOk oCon:ConnectionString:=cStringConexionLocal TRY oCon:Open() CATCH oError lOK:=.F. oCon:=NIL END IF lOk //creamos un objeto recordset para ejecutar los queries TRY oDatos:=TOleAuto():New("adodb.recordset") CATCH oError lOK:=.F. oCon:Close() oDatos:=NIL oCon:=NIL ...

... que todos, o casi todos, comenzamos el mundo de los 32 bits con Fivewin, que gracias a tí y a tu producto, aprendimos, vivimos, comimos, creamos empresa, crecimos, etc. Un poco de agradeciemiento hacía tí y hacia tu producto no vendría mal. FiveWin no es una aventura, es una realidad, ...

... #Include "FiveWin.Ch" Function PasExcelToDbf(oWnd) Local oDlg,oLbx,oFont,oBtFin Local oExcel, oHoja, nRows, nCols Local tCampos:={}, nRow, nCol /* creamos conexion OLE con Excel */ oExcel := TOleAuto():New( "Excel.Application" ) ? "objeto excel creado" /*oExcel:Visible := .T. // por si quieres ...

... un campo GET y le agregamos lo siguiente: /*cBusqueda es la variable definida en el GET, puede ser cualquiera*/ /*oRs es el objeto RecordSet que creamos anteriomente para obtener los datos desde nuestro servidor de base de datos*/ oGet:bLostFocus:={|| Iif( Funcion_de_Busqueda( cBusqueda, oRs), ...

... codigo TO codigo proveedor->(OrdSetFocus( "codigo")) DEFINE dialog odlg10 resource "seleccion_proveedor" redefine LISTBOX oBrw; &&nos creamos un brows para la muestra FIELDS hBmp, proveedor->codigo, proveedor->nombre; HEADERS "","Código", "Nombre" ID 500 OF oDlg10 oBrw:aActions ...

Raymundo, Armando, Alfredo: Al parecer BCC tiene un límite de máx un mega para archivos .res. Así que creamos un segundo .rc en donde iremos agregando nuevos recursos. Parece ser que con VC no hay este problema, pero de momento hay no hay posibilidad de usar VC en lugar de ...

... a la estrctura obtenida AADD(aEstructura, {"campo","c",30,0}) AADD(aEstructura,{"otrocamp,"n",10,2}) AADD(aEstructura,{"otromas","l",1,0}) 5) Creamos una tabla temporal DBCREATE("temp.dbf",aEstructura) 6) La abrimos USE temp.dbf 7) Agregamos los campos de la tabla anterior APPEND FROM tabla ...