busqueda en xbrowse incremental en red
Posted: Mon Feb 03, 2020 11:51 pm
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
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
Luis