Search found 680 matches

by Biel EA6DD
Fri Oct 17, 2014 6:47 am
Forum: FiveWin para Harbour/xHarbour
Topic: Ir a una fila en un Query
Replies: 11
Views: 961

Re: Ir a una fila en un Query

Asumo que la tabla tiene como clave primaria el campo "id" y que es autonumérico. oQuery:Goto(oQuery:Lastrec()) es lo mismo que oQuery:GoBottom(). Y si no me falla la teoria esto se posiciona en el último registro de la consulta, y SI se ve afectado por el order. LastRec() devuelve el tota...
by Biel EA6DD
Tue Oct 07, 2014 2:50 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Sobre strtoken
Replies: 3
Views: 528

Re: Sobre strtoken

Yo la veo bien, si acaso añadiría un IF para controlar que nNr no sea mayor que el total de campos. IF hb_TokenCount(cString,cSepChar) < nNr    ...   Y aunque hace exactamente lo mismo, yo lo implentaria así.    FOR EACH cToken IN aTokens       cNewString += cToken+cSepChar    NEXT    cNewString:=Le...
by Biel EA6DD
Thu Sep 18, 2014 11:09 am
Forum: FiveWin para Harbour/xHarbour
Topic: tdolphin y el metodo loadquery()
Replies: 5
Views: 523

Re: tdolphin y el metodo loadquery()

goosfancito wrote:
a Ok. y luego si ejecuto el LoadQuery?
No debiera hacer falta, puesto que por defecto SetWhere refresca el Query.
by Biel EA6DD
Thu Sep 18, 2014 6:58 am
Forum: FiveWin para Harbour/xHarbour
Topic: Actualizar datos en MySql con TDolphin
Replies: 7
Views: 716

Re: Actualizar datos en MySql con TDolphin

oDATA:=oServer:Query( "SELECT * FROM DATPER ORDER BY CODIGO FOR UPDATE") oData:oServer:BeginTransaction() ///<----   Do While !oDATA:Eof()       Vacacion() //Obtengo los valores       nPend:=nTiene-nTomodas        cQry:="UPDATE datper SET TIENE = " + ClipValue2SQL(nTiene) + &quo...
by Biel EA6DD
Thu Sep 18, 2014 6:39 am
Forum: FiveWin para Harbour/xHarbour
Topic: tdolphin y el metodo loadquery()
Replies: 5
Views: 523

Re: tdolphin y el metodo loadquery()

LoadQuery no te sirve para tu propósito, puesto que ejecuta la consulta con el string que se evaluó en la sentencia inicial y queda grabado en el data de la clase( ::cQuery), no tiene en cuenta los cambios futuros en tu variable. Puedes probar con el método SetWhere que permite mantener el select e ...
by Biel EA6DD
Thu Sep 18, 2014 6:24 am
Forum: FiveWin para Harbour/xHarbour
Topic: Daniel.. error en ::refresh()
Replies: 14
Views: 1627

Re: Daniel.. error en ::refresh()

Mi experiencia con consultas complejas que incluyen sub selects, es que la clase no procesa bien la sentencia en su método BuildDatas, que es donde procesa la sentencia y la secciona según su naturaleza. Adecuar el método para que pueda tener en cuenta este tipo de sentencias, puede ser algo complic...
by Biel EA6DD
Mon Sep 15, 2014 9:00 am
Forum: FiveWin para Harbour/xHarbour
Topic: tDolphin, método delete
Replies: 3
Views: 500

Re: tDolphin, método delete

Hola Daniel, no estoy muy puesto con Git, me documento y lo intento actualizar.
by Biel EA6DD
Fri Sep 12, 2014 3:23 pm
Forum: FiveWin para Harbour/xHarbour
Topic: tDolphin ::Refresh() no funciona
Replies: 17
Views: 2276

Re: tDolphin ::Refresh() no funciona

El método Execute solo devuelve si se ha ejecutado correctamente (.t. o .f.).
by Biel EA6DD
Thu Sep 11, 2014 8:59 am
Forum: FiveWin para Harbour/xHarbour
Topic: tDolphin, método delete
Replies: 3
Views: 500

tDolphin, método delete

Cuando la sentencia SQL contiene un JOIN, aTables guarda el nombre de la tabla más todo la cadena JOIN. pe ?::aTables[1] --> ctFraCab LEFT JOIN ctCuenta ON ctFraCab.EmpCod=ctCuenta.EmpCod AND ctFraCab.MayCod=ctCuenta.MayCod AND ... Esto genera un problema al usar el método delete, ya que el comando ...
by Biel EA6DD
Mon Sep 01, 2014 7:02 am
Forum: FiveWin para Harbour/xHarbour
Topic: Ando queriendo dejar el Xmate (ya no tiene soporte)
Replies: 31
Views: 5031

Re: Ando queriendo dejar el Xmate (ya no tiene soporte)

Yo de momento sigo usando xMate, y sin problema.

Si quieres algo más moderno, creo que hbIde se baso en xMate, yo de momento no lo he probado.
by Biel EA6DD
Mon Sep 01, 2014 6:40 am
Forum: FiveWin for Harbour/xHarbour
Topic: Sql convert Numeric to character
Replies: 2
Views: 443

Re: Sql convert Numeric to character

STR ( float_expression [ , length [ , decimal ] ] )

I thing the default length returned by STR is 10. Try to specify a lengt.

Code: Select all

Select str(InvoiceNumber,2) as InvoiceNumber, "
...
oRsInv:Filter := "InvoiceNumber = '10'"

by Biel EA6DD
Thu Aug 28, 2014 10:48 am
Forum: EasyReport, EasyDialog y EasyPreview
Topic: La nueva apariencia de EasyReport
Replies: 226
Views: 41426

Re: La nueva apariencia de EasyReport

Buen trabajo Manuel, me gusta tu implementación en la clase tBtnBmp, con el Data queda mas fino y permite deshabilitar la funcionalidad de una forma sencilla. Espero que se incluya en la próxima versión de FW. De todas formas, me gusta más todo gris que no escala de grises, pero eso es un tema de gu...
by Biel EA6DD
Wed Aug 27, 2014 12:54 pm
Forum: EasyReport, EasyDialog y EasyPreview
Topic: La nueva apariencia de EasyReport
Replies: 226
Views: 41426

Re: La nueva apariencia de EasyReport

Bmp a escala de grises #define FUCSIA RGB(255,0,255) #define BLANCO RGB(255,255,255) HB_FUNC( BMP2DIS ) {    HBITMAP hBmpMem, hOldBmp, hOldBmp2;    COLORREF nColor;    int nX;    int nY;    int red,green,blue;    HDC hDC     = CreateDC("DISPLAY", 0, 0, 0);    HDC hDCMem  = CreateCompatible...
by Biel EA6DD
Wed Aug 27, 2014 12:19 pm
Forum: EasyReport, EasyDialog y EasyPreview
Topic: La nueva apariencia de EasyReport
Replies: 226
Views: 41426

Re: La nueva apariencia de EasyReport

Cierto, está función no convierte a escala de gris sino que pasa a gris todos los colores menos blanco y fucsia.

A mi gusta para el efecto disabled, pero si es un bmp con poco blaco y fucsia efectivamente queda una mancha. Creo que tengo otra que convierte a escala de grises, la busco.
by Biel EA6DD
Wed Aug 27, 2014 7:36 am
Forum: EasyReport, EasyDialog y EasyPreview
Topic: La nueva apariencia de EasyReport
Replies: 226
Views: 41426

Re: La nueva apariencia de EasyReport

Así es como lo tengo yo implementado, modificando la clase btnBmp, el método LoadBitmaps, si no se ha definido el tercer bimap, convierto a gris el primero. IF Empty(cBmpFile3)    ::hBitMap3  = Bmp2Dis( ::hBitMap1 ) ENDIF   #include <windows.h> #include <hbapi.h> #define ROSA RGB(255,0,255) #define ...