Gracias por contestar
Jose Luis, asi lo uso, el arreglo es un Select MySQL, uso SQLLIB y con TwBrowse y TsBrowse, si presenta los miles de registros, mi pregunta es sobre TxBrowse
cCommand:="SELECT codven,fecven,coddoc,numdoc,refere,codcli,nomcli,tipmon,totven,totigv,totnet,status,motnota,posted,fecdes,usrsta,codzon,numenv,numbaj,nroanx,sql_rowid FROM "+regvta+" WHERE "+iif(empty(cFilGui),"",cFilGui)+" (SUBSTRING(numdoc,1,1)='F' OR SUBSTRING(numdoc,1,1)='B') ORDER BY coddoc,numdoc"
Use SQL (cCommand) ALIAS guicab VIA "MYSQL"
Y aquí hago el xBrowse
@ 0,0 xbrowse oBrw of oWnd ;
header "Integrador","Fecha","Tipo","Numero","NumRef","Codigo","Razon Social","Mon","Valor_Venta","IGV","Precio_Venta","Motivo","Enviado","MailEnv","Baja","Tk Envio","Tk Baja","Consol" ;
columns "codven","fecven", "coddoc", "numdoc", "refere", "codcli", "nomcli", "tipmon", "totven", "totigv", "totnet","motnota","posted","fecdes","codzon","numenv","numbaj","nroanx" ;
colsizes 60,70,30,90,105,80,350,30,85,85,85,40,45,70,40,100,100,40 ;
picture ,,"99",,,,,"!","999,999,999.99","9,999,999.99","999,999,999.99",,"!",,"!" ;
ALIAS "GuiCab" FOOTERS LINES CELL NOBORDER CENTER
WITH OBJECT oBrw
:nMarqueeStyle := 4
:bLDblClick = { || (verpdf(oBrw), oBrw:refresh()) }
:bKeyDown = { | nKey | if(nKey!=VK_RETURN, Nil, (verpdf(oBrw), oBrw:refresh()) ) }
:bClrSel := {|| { CLR_BLACK, nRGB( 192,192,192 )}}
:bClrSelFocus := {|| { CLR_WHITE, nRGB( 128,128,255 )}}
END
oBrw:bPopUp := { |o| ColMenu( o, oBrw, cEmpMG, cEmpMC, cRutDel ) }
Willy, gracias con TwBrowse si funciona, relativamente normal, por eso mi consulta si xBrowse tiene algún problema con miles de registros (en este caso 250,000)
Gracias
↧