FiveTech Software tech support forums

Hola Antonio y gracias por responder, estoy usando TCBROWSE y para poner los colores al listbos lo hago asi:

oLbx1:nClrPane:={|| iif((oLbx:cAlias)->(ordkeyno())%2==0,_gris,_amarillo)}

Uso FiveWin 2.4, clipper 5.3 y blinker 7

... REDEFINE GET oDbl:servic ID 103 OF oDlg MESSAGE "A description of the service type" UPDATE ..... // Create the BROWSE control REDEFINE BROWSE oLbx1 ID 101 OF oDlg ON CHANGE oDlg:update() UPDATE oLbx1:setoDBF( oDbl ) add column to oLbx1 header "Charge" data oDbl:charge ALIGN 2,1 size 120 add ...

Wilson,

El problema es que se genera un último pintado y los browses ya no tienen acceso a los datos pues se han cerrado las DBFs.

La solución es asignar "" a cAlias antes de cerrar las DBFs:

oLbx1:cAlias = ""
oLbx2:cAlias = ""

... tabla1 shared Use tabla2 new alias tabla2 shared define window oWnd From ... @ 000,255 LISTBOX oLbx FIELDS ... alias 'Tabla1' @ 255,0 LISTBOX oLbx1 FIELDS ... alias 'Tabla2' activate window oWnd Valid( If(Msgyesno('sales'), (CierraTablas(),.t.),.F.) ) function cierraTablas select tabla1 dbclosearea() ...

... 2nd Listbox items to change based on the selection of the first. I have also tried oLbx2:REFRESH(),oDlg:UPDATE(),sysrefresh() in the ON CHANGE for oLbx1 - the second listbox just won't change. The code below is a complete selfcontained example. PROCEDURE LISTBOXTEST() LOCAL oDlg LOCAL aitems1,aitems2,aitems3, ...

... ?, que tengo que hacer diferente en la programacion para llamar a este nuevo browse ? Yo defino el browse de la sig manera : REDEFINE LISTBOX oLbx1 FIELDS act->act ..... 2.- Tengo un odbc con mysql que funciona bien con FW. Pero al momento de hacer un browse con una tabla de odbc, el primer ...

... hacer el browser con arreglo. USE FW 2.4, CLIPPER 5.3 y BLINKER 7.0. Saludos, Miguel ESTE ES EL CODIGO PARA MANEJAR BASE DBF Redefine Browse oLbx1 Id 110 Of oDialogo Grid; On DblClick (Mues_cot(),oLbx1:Refresh(), oLbx1:SetFocus()) oLbx1:oFont := TFont():New( "MS Sans Serif", 0, -15,, .T. ...

... hacer el browser con arreglo. Uso FW 2.4, Clipper 5.3 y Blinker 7.0. Saludos, Miguel ESTE ES EL CODIGO PARA MANEJAR BASE DBF Redefine Browse oLbx1 Id 110 Of oDialogo Grid; On DblClick (Mues_cot(),oLbx1:Refresh(), oLbx1:SetFocus()) oLbx1:oFont := TFont():New( "MS Sans Serif", 0, -15,, .T. ...

... Id 25 Adjust Resource "BUSCA2" Of oDlgEdit Cursor oCurDedo On Click (Bus_dep(),oCod_dep1:Refresh()) Function Bus_dep() Local oDlg, oBot1, oBot2, oLbx1, oCurDedo Sele oDbdep DbSetorder(2) Seek Cod_pro1+Cod_edi1 Define Dialog oDlg ResName "BrowseSoloMuestra" Title "Departamentos" REDEFINE LISTBOX ...

... Id 25 Adjust Resource "BUSCA2" Of oDlgEdit Cursor oCurDedo On Click (Bus_dep(),oCod_dep1:Refresh()) Function Bus_dep() Local oDlg, oBot1, oBot2, oLbx1, oCurDedo Sele oDbdep DbSetorder(2) Seek Cod_pro1+Cod_edi1 Define Dialog oDlg ResName "BrowseSoloMuestra" Title "Departamentos" REDEFINE LISTBOX ...

... hace se queda en el listbox, esto lo programe bien pero usando un objeo WINDOW y no un DIALOG como aqui, gracias por su atencion. Function Recibe(oLbx1,oPcion) local oDlg6,oGet1,oGet2,oGet3,osay2 lNuevo:=.f. lBorrar1:=.F. regmodi:=0 nRegact:=Recno() nPar:=0 nProvedor:=0 cProvedor:=Space(60) dFecha:=Date() ...

... hace se queda en el listbox, esto lo programe bien pero usando un objeo WINDOW y no un DIALOG como aqui, gracias por su atencion. Function Recibe(oLbx1,oPcion) local oDlg6,oGet1,oGet2,oGet3,osay2 lNuevo:=.f. lBorrar1:=.F. regmodi:=0 nRegact:=Recno() nPar:=0 nProvedor:=0 cProvedor:=Space(60) dFecha:=Date() ...

... el problema Redefine BtnBmp oBot1 Id 1001 Resource "BTO_NUEVO" Of oDlgFam; NoBorder; Message "Agrega Nuevo Registro..." Action (EditFamilia( .T. ,oLbx1), oLbx1:Reset()) por este otro lok1:= .T. Redefine BtnBmp oBot1 Id 1001 Resource "BTO_NUEVO" Of oDlgFam; NoBorder; Message "Agrega Nuevo Registro..." ...

esto me ocurre cuando pincho un boton con btnget y usando un browse con tsbrowse


Redefine BtnBmp oBot1 Id 1001 Resource "BTO_NUEVO" Of oDlgFam;
NoBorder;
Message "Agrega Nuevo Registro..." Action (EditFamilia(.T.,oLbx1), oLbx1:Reset())

... While b->Nro_bon=cFolio.and.!eof() ON END Finsc(oReport) oFont:End() Sele b Seek cFolio Return Static FUNCTION Busca_fol() local oDlgPa local oLbx1,oFont cFolio:=0 oFolio:=0 Sele a go bott aa=nro_bon-10 Dbseek(aa) Define Dialog oDlgPa ResName "Listado_paci" Title "Paciente Ingresados" Redefine ...