FiveTech Software tech support forums

... conectar a la BD: " + cDbName, "Operacin Cancelada" ) oCon:Free() return endif // Creamos un objeto Table con DataFields oTb := TMsTable( cTabla ):New( oDataBase, cTabla ) // Abrimos la tabla, traemos el resultado a nuestro cliente if !oTb:Open() MsgInfo( "No se puede abrir ...

... Lo estoy haciendo asi LOCAL aFields:={} aFields:=oCursor obrw := TXBrowse():New( ownd ) obrw:SetArray( aFields, .t. ) oCursor lo llamo asi oTb := TMsTable( cTabla ):New( oDatabase, cTabla ) // Abrimos la tabla, traemos el resultado a nuestro cliente if !oTb:Open() MsgInfo( "No se puede abrir ...

... 2 HBCLASS 3 HBOBJECT 4 KDAT_SYS 5 TSQLVIRTUAL 6 TMSERROR 7 TEAGLE1 8 TMSCONNECT 9 TMSDATABASE 10 TMSSTATEMENT 11 TMSCOLUMNCONTAINER 12 TMSQUERY 13 TMSTABLE 14 TMSCOMMAND 15 TWINDOW 16 TDIALOG 17 TBRUSH 18 TCONTROL 19 TCOMBOBOX 20 TGET 21 GET 22 TCLIPGET 23 TBUTTON 24 TFONT 25 TMENU 26 TMENUITEM ...

... 8 TMSCONNECT 9 TWINDOW 10 TDIALOG 11 TBRUSH 12 TCONTROL 13 TBITMAP 14 TIMAGE 15 TMSDATABASE 16 TMSSTATEMENT 17 TMSCOLUMNCONTAINER 18 TMSQUERY 19 TMSTABLE 20 TMSCOMMAND 21 TCOMBOBOX 22 TGET 23 GET 24 TCLIPGET 25 TBUTTON 26 TFONT 27 TMENU 28 TMENUITEM 29 TICON 30 TBAR 31 TRECT 32 TBTNBMP 33 TMSGBAR ...

... FIELD "serie" INIT space(2) END STRUCT Lo que me permite es trabajar una estructura de datos como si fuera una dbf por ejemplo oServicios := TMsTable():New( oDb, "ordenserv" ) cSql := "select no_factura,fecha,id_vendedor,marcav,id_placa,color,obs,id_agencia,serie from ordenserv where " cSql ...

... if oWndFact01 == NIL oGet := Array( 2 ) oPreccos := TempPreccos(); ///LINEAS DE INVENTARIO oDb:= _BaseDatos() cTabla := "catlineasi" oBaset := TMsTable():New( oDb, cTabla ) if !oBaset:Open() return( nil ) endif aLi := {} If !Empty( oBaset:LastRec() ) oBaset:GoTop():Read() While !oBaset:Eof() ...

... oGet := Array( 2 ) oPreccos := TempPreccos(); ///LINEAS DE INVENTARIO oDb:= _BaseDatos() cTabla := "catlineasi" oBaset := TMsTable():New( oDb, cTabla ) if !oBaset:Open() return( nil ) endif aLi := {} If !Empty( oBaset:LastRec() ) oBaset:GoTop():Read() While !oBaset:Eof() ...

... DEFINE TABLE oTabla ; NAME cTabla DATAFIELD ; ORDER BY 1 ; OF oDtBase // Traemos el resultado a nuestro cliente OPEN TABLE oTabla *oTabla := TMsTable( cTabla ):New( oDtBase, cTabla ) // Con DataFields: // oTabla := TMyTable( cTabla ):New( oDtBase, cTabla ) // Traemos el resultado a nuestro ...

... DEFINE TABLE oTabla ; NAME cTabla DATAFIELD ; ORDER BY 1 ; OF oDtBase // Traemos el resultado a nuestro cliente OPEN TABLE oTabla *oTabla := TMsTable( cTabla ):New( oDtBase, cTabla ) // Con DataFields: // oTabla := TMyTable( cTabla ):New( oDtBase, cTabla ) // Traemos el resultado a nuestro ...