FiveTech Software tech support forums

... ' SET TinStatus = 0'+; ' WHERE '+cDTBase+'.DtsSubCobertura.IntIdDtsSubCobertura ='+STR(nIdSubCobert,10,0)} ENDCASE oQuery :=TMSQuery():New( oDTbase ) // inicializa la clase oQuery:Open( eval(bSeek) ) // efectua el query oQuery:Close() ENDIF

... ='+bTrans(cDescrip)+; ' WHERE '+cDTBase+'.DtsSubCobertura.IntIdDtsSubCobertura ='+STR(nIdSubCobert,10,0)} ENDCASE ENDIF oQuery :=TMSQuery():New( oDTbase ) // inicializa la clase oQuery:Open( eval(bSeek) ) // efectua el query oQuery:Close() MSGALERT("Información Acualizada Con Exito","Atención...") ...

... '+; cDTBase+'.DtsRamo.VchDescripcion LIKE '+"'%"+ALLTRIM(cSeek)+"%'"+; ' ORDER BY '+cDTBase+'.DtsRamo.VchDescripcion '} oQuery :=TMSQuery():New( oDTbase ) // inicializa la clase oQuery:Open( eval(bSeek,"") ) // efectua el query IF ( oQuery:nRowCount=0 ) // si no hay registros MSGALERT("No Existen ...

... el servidor", "Operación Cancelada" ) return( .F. ) endif // Creamos un objeto DataBase y // Ponemos por defecto el objeto DataBase *USE DATABASE oDtBase NAME cDbName OF oMySQL // equivale a : oDtBase:= TMSDataBase():new( oMysql, cDtBase,.t.) if !oDtBase:Used() if oMySql:ExistDb( cDtBase ) MsgInfo( ...

... de funcion) SETKEY(VK_F9, {|| msgalert("Imprimir")} ) DEFAULT oDlgAnt:=oWnd // para cuando se crea primer cliente aTpoActividad:=CREAARREGLO(oDtBase,'SELECT TpoActividad.IntIdTpoActividad,'+; 'TpoActividad.VchDescripcion '+; 'FROM '+cDTBase+'.TpoActividad '+; 'ORDER BY TpoActividad.VchDescripcion') ...

... LOCAL oDlg ,; oButSalir ,; oTabla ,; oLbx ,; cTabla := "DtsCiudad" 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 ...

... LOCAL oDlg ,; oButSalir ,; oTabla ,; oLbx ,; cTabla := "DtsCiudad" 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 ...