... el momento, es condicionar en este caso que no tenga efecto el boton, para que no llame a la funcion DetaFact. Intentaré luego. Por el momento, le agregué lo de la negrilla en cuentas acumulativas. Desde aqui puedes descargar ejecutable y lo demas. Proveedor_2.zip Saludos.
... los cursores a utilizar los tengo en mi archivo .RES. Puede verse un video con lo comentado en: http://youtu.be/IUlOxRGfjsY Para lograrlo agregué a la clase un par de datas: ...DATA nBottomMargin DATA oMyCursor // by R. CerellaDATA oMyCursorHead // by R. Cerella// Earlier Group ...
Gracias por responder, Entiendo sus comentarios. Volviendo al PRG ejemplo, agregué: oBrw:SetRDD(.f.,.t.) Para que permita ordenar al "clickear" sobre el head. -------------------------------------------------------------------------------------------------------------------- ...
... PDF . De lo anterior, deduzco que es un problema del tamaño de lo que se quiera exportar, No se como se consuma esta exportación, pero al rich le agregué una imagen de 2500KB más 2 líneas de texto y lo exportó bién, pero si la agrego otras dos líneas de texto más, AHÍ SE CUELGA . Reitero que esto ...
Antonio, He hecho pequeños cambios en distintas clases, pero en la que más trabajé es en la TRichedit (dentro de mis limitados conocimientos, le agregué algunas funcionalidades tal cual lo necesitaba). Voy a preparar con tiempo un ejemplo y te lo enviaré, junto con la clase modificada, para que ...
Por si a alguien le sirve, ésta opción última si me sirve, aunque le agregué: //------------------------------------------------------- // Devuelve true si se ha movido function dbPrevious() // local nRec := RecNo() local lSw := .F. DbSkip( -1 ) DbSkip( -1 ...
No encontré otra forma de hacerlo así que agregué una reforma al "METHOD Seek( cSeek ) CLASS TXBrowse" con la finalidad que al hacer una búsqueda incremental en campos que están escritos todo en mayúscula. Si el teclado no está en mayúsculas, ...
Buenas noches, No encontré otra forma de hacerlo así que agregué una reforma al "METHOD Seek( cSeek ) CLASS TXBrowse" con la finalidad que al hacer una búsqueda incremental en campos que están escritos todo en mayúscula. Si el teclado no está ...
... de funciones agregadas al sample "testrtf.prg" de FWH para poder ver como funcionan las SaveAsRTF() y LoadAsRTF() de la clase TRichedit. Agregué dos botones (discos) que están en un group y uno sirve para pasar el rich al memo de una dbf y el otro para recuperar el texto RTF desde el ...
Buenas tardes, Estoy incursionando con la TFtp y viendo el ejemplo le agregué los siguiente con la intención de mostrar todos los datos obtenidos del directorio del server con un xBrowse: if ! Empty( oFTP:hFTP ) aFiles = oFTP:Directory(cFolder+ ...
... añado registros y lo sigue mostrando vacío así le añada 3,4,5 , si me salgo al dialogo maestro y regreso al detalle ya me aparecen todos los que agregué y si agrego otro lo muestra sin problema cCmdSql := armaCadenaInsert("DetOrdSrv",aCampos,aValores) ...
Elmo, logré crear una solución pero bien de parche. En la tabla más pequeña que tiene mas o menos como 16 o 18 registros, agregué un campo numérico que las oficia de indice, donde le doy el orden que debe tener la combobox. De esa forma genero el query en mysql y relleno el array en ...
Por ahora le agregué una data a la clase xBrowse que cuando se hace, (oBrw:lGoLine:=.t.), el ordenamiento no cambia la línea actual, queda en la misma luego de ordenar.
Por ahora funciona con array's (que es lo que necesitaba).