topic-31020

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

tmysql y xbrowse - rao help

Posted: Thu Jul 02, 2015 09:12 PM

Estimados, tengo un caso curioso con tmysql, que siempre he querido corregir, pero no doy
cuando se usa tmysql si la consulta solo toma datos de una tabla, por ej: select * from usuario, se usa internamente tmysqltable, en caso que la consulta toma datos de mas de una tabla usa tmysqlquery.

cuando la consulta es un select de varia tablas los datos son bien mostrados con xbrowse, pero cuando se usa una sola tabla, los datos con mostrados correctamente, pero si me desplazo con pgdown o pgup, los datos no son refrescados. si uso up o down si se refrescan bien, solo es con pgdown y pgup.

he detectado que es cuando se usa la propiedad

:nRowDividerStyle con valor de 1 a 5

si los valores son 0 o 6 funciona bien.

Code (fw): Select all Collapse

   oQry := oSrv:Query("select a.fecha, a.num_clie, b.nombre, a.num_ciud, a.abono from cobroxdia a inner join clientes b on a.num_clie=b.num_clie where fecha='2013-03-01' and a.num_ciud=11 order by a.fecha" )
   IF oSrv:NetErr()
      ?oSrv:Error()
      RETURN
   ENDIF
   DEFINE DIALOG oDlg NAME "DLG_TEST"

   REDEFINE XBROWSE oBrw ID 101 OF oDlg ;
         DATASOURCE oQry           ;
         COLUMNS "FECHA","NUM_CLIE","NOMBRE","NUM_CIUD","ABONO"

   WITH OBJECT oBrw
      :nMarqueeStyle          := MARQSTYLE_HIGHLROW
      :bClrRowFocus           := { || { CLR_BLACK, RGB( 230,230,230 ) } }
      :nRowDividerStyle       := LINESTYLE_LIGHTGRAY
      :nColDividerStyle       := LINESTYLE_LIGHTGRAY
      :lColDividerComplete    := .t.
      :bClrSelFocus           := { || { CLR_WHITE, CLR_BLUE } }
   END
   AEval( oBrw:aCols, { |o| If( o:cDataType == 'L', o:SetCheck(), nil ) } )
   REDEFINE BUTTON ID 201 OF oDlg ACTION oDlg:END()

   ACTIVATE DIALOG oDlg ON INIT oBrw:SetFocus()

   oQry := oSrv:Query( "select * from prueba" )
   IF oSrv:NetErr()
      ?oSrv:Error()
      RETURN
   ENDIF

   DEFINE DIALOG oDlg NAME "DLG_TEST"

   REDEFINE XBROWSE oBrw ID 101 OF oDlg ;
         DATASOURCE oQry           ;
         COLUMNS "CODIGO","NOMBRE","FECHA","EDAD","CASADO","SALARIO"

   WITH OBJECT oBrw
      :nMarqueeStyle          := MARQSTYLE_HIGHLROW
      :bClrRowFocus           := { || { CLR_BLACK, RGB( 230,230,230 ) } }
      :nRowDividerStyle       := 6  /*<<-----------------------------------------------------------------------*/
      :nColDividerStyle       := LINESTYLE_LIGHTGRAY
      :lColDividerComplete    := .t.
      :bClrSelFocus           := { || { CLR_WHITE, CLR_BLUE } }
   END
   AEval( oBrw:aCols, { |o| If( o:cDataType == 'L', o:SetCheck(), nil ) } )
   REDEFINE BUTTON ID 201 OF oDlg ACTION oDlg:END()

   ACTIVATE DIALOG oDlg ON INIT oBrw:SetFocus()

RETURN

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

FiveTech Support Forums

tmysql y xbrowse - rao help

Continue the discussion