busqueda en xbrowse incremental en red
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Estoy implementando la busqueda incremental en una base de datos de clientes que tiene un grandor de 1.5 Mgb, en la máquina principal funciona correctamente pero en las clientes demora bastante casi colgando el programa.
O hay otra forma de hacerlo
Luis
- Code: Select all Expand view
- DEFINE DIALOG oDlg RESOURCE "DIALOG_2" ICON surge
oDlg:cCaption := "Clientes"
// oDlg:bgotfocus := {|| oMae:activate() }
REDEFINE SPLITTER oSplit[ 1 ] id 110 COLOR rgb( 234, 234, 234 ) of oDlg
REDEFINE SPLITTER oSplit[ 2 ] id 111 COLOR rgb( 234, 234, 234 ) of oDlg
REDEFINE xbrowse oLbx ;
COLUMNS Str( ( oMae:cAlias )->NCLI ), ;
( ( oMae:cAlias )->NAPE ), ;
( oMae:cAlias )->Domi, ;
( oMae:cAlias )->LOCA, ;
( oMae:cAlias )->PCIA, ;
( oMae:cAlias )->TELE, ;
( oMae:cAlias )->CUIT, ;
( oMae:cAlias )->IVA, ;
( oMae:cAlias )->RUBRO, ;
Str( ( oMae:cAlias )->VENDEDOR );
ON DBLCLICK CLIENTES( oLbx, .F., oMae, oMemos, oDomcli, oClitrans, oVend, ( oMae:cAlias )->ncli ) ID 101 OF oDlg;
HEADERS "Código", "Cliente", "Domicilio", "Localidad", "Provincia", ;
"Telefono", "Cuit", "Iva", "Rubro", "Vendedor";
COLSIZES 60, 210, 190, 190, 190, 160, 90, 100, 180, 60
WITH OBJECT oLbx
:nMarqueeStyle := 4
:nColDividerStyle := LINESTYLE_BLACK
:nStretchCol := STRETCHCOL_LAST
:lColDividerComplete := .F.
// :l2010 := .T.
:lAllowColHiding := .F.
:lIncrFilter := .T.
:lSeekWild := .t.
:cFilterFld := "NAPE"
//:bKeyDown := {| nKey | If( nKey == K_ENTER, ( FCHOFER( oLbx, .f.,oCho),oDlg:end()), ) }
:nRowDividerStyle :=2
:nColDividerStyle :=2
:bClrStd := {|| {rgb(0,0,0),(cColorcli( ( oMae:cAlias )->constiva, ( oMae:cAlias )->constgan, ( oMae:cAlias )->constmono )) } }
END WITH
O hay otra forma de hacerlo
Luis