FiveTech Software tech support forums

... return nil function Child( oWnd ) local cFirst := Space( 10 ), cLast := Space( 10 ), GetList := {} local pGT := hb_gtCreate( 'WVT' ), nopc:=1, otbr if !File('CUSTOMER.DBF') MsgStop('Customer.dbf nao encontrado!','Atencao!') return endif use customer.dbf alias customer oWnd:Disable() hb_gtSelect( ...

... decir por que si ordeno el xbrowse con AUTOSORT y definido así solo me deja ordenar algúnas columnas: function xbrowsetest() redefine XBROWSE oR:aoTbrs[1] id 501 COLUMNS 17,2,6,9,7,15,16; OF oR:oDlg SIZES 40,120,90,170,90,170,90 HEADERS "Sel.","Recibo","F.Factura","Cliente","F.Emision","Cuenta ...

Disculpar por el bombardeo pero es que estoy probando todos los ejemplos. local oWnd := TWindow():New(), oTbr, oBrw oWnd:oNavBar := TNavBar():New( oWnd, "FivePhone", "Exit", "About" ) oWnd:oNavBar:bLeftClick = { || oWnd:End() } oWnd:oNavBar:bRightClick ...

Disculpar por el bombardeo pero es que estoy probando todos los ejemplos. local oWnd := TWindow():New(), oTbr, oBrw oWnd:oNavBar := TNavBar():New( oWnd, "FivePhone", "Exit", "About" ) oWnd:oNavBar:bLeftClick = { || oWnd:End() } oWnd:oNavBar:bRightClick ...

Disculpar por el bombardeo pero es que estoy probando todos los ejemplos. local oWnd := TWindow():New(), oTbr, oBrw oWnd:oNavBar := TNavBar():New( oWnd, "FivePhone", "Exit", "About" ) oWnd:oNavBar:bLeftClick = { || oWnd:End() } oWnd:oNavBar:bRightClick ...

... de desplazamiento pero no me funciona el degragado de las líneas seleccionadas, ¿que puedo hacer para conseguirlo todo ? redefine XBROWSE DatasTMP:oTbr id 501 COLUMNS 2; HEADERS "Hora"; OF DatasTMP:oDlg SIZES 80; JUSTIFY AL_LEFT; ARRAY DatasTMP:aTemplates LINES CELL SetBitmapOnBrowse(DatasTMP:oTbr,1,DatasTMP:aTemplates) ...

... con 6 columnas y 10 registros, este browse muestra la DBF digamos PERSONAL.DBF en la columna 6 del browse esta asi: mira.: ADD COLUMN TO BROWSE oTbr DATA VerComision (oG2menore2,oFmenore2,oBmenore2,oGmenore2,oSpsf); HEADER "% Comisión"; SIZE 100 ; PICTURE "9,999,999"; ALIGN DT_RIGHT,DT_CENTER,DT_LEFT; ...

how can I do to change the column of bitmaps according to the index active, as prg below ******************************** REDEFINE BROWSE oTbr ALIAS "Estoque" ID 100 OF oDlg ADD COLUMN TO oTbr HEADER "Código" SIZE 125 ALIGN DT_LEFT ORDER "Codigo" DATA TransField( Estoque->Est_Cod, oPub:wEstPic ...

Ya he conseguido hacerlo quitando:

oTbr:lCellStyle = .t.

Pero mi problema es que necesito seleccionar la casilla para hacer referencia a dicha celda, entonces si hago una cosa no puedo hacer otra, ¿que solución me puedes proponer?

Un Saludo.

... wbrowse.prg las líneas no coinciden con las que me das son siempre 2 líneas menos, no se si es por la version, con este código: redefine listbox oTbr FIELDS ""; HEADERS "Mes/Día","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31" ...

Prueba con

oTbr:nFreeze:=1 // para congelar la 1ª
oTbr:nFreeze:=2 // para congelar la 1ª y 2ª
...
etc. . .

SALUDOS

Muy buenas, alguien me podría decir, como puedo acceder a los datos de un listbox haciendo referencia a oTbr

Gracias.

Muy buenas, tengo un listbox y no se porque no me aparecen la barra de desplazamiento vertical, es código es este: @ 0.75,0 LISTBOX oTbr FIELDS GetCodProd(ctbfpdb->codpdt,5),ctbfpdb->despdt COLSIZES 40,200 HEADERS "Código","Descripción" SIZE 220,78; ALIAS "ctbfpdb"; font oFont1 COLOR ...

... yo lo empleo mal... he aqui el codigo:: USE Tabla1 NEW ALIAS Tabla1 SHARED DATABASE oTabla1 oTabla1:SetOrder(1) oTabla1:Gotop() REDEFINE BROWSE oTbr ID 1 OF oWndChilds[1] FONT oFont1 ADD COLUMN TO BROWSE oTbr DATA oTabla1:codigo; HEADER oemtoansi("Código"); SIZE 270 ; PICTURE "@!"; ALIGN DT_LEFT; ...

... VNominaP(oProducto,Det,TgGet,oPreprod) Local oDlg Local oFont Local oSay Local oCbx Local vCombox Local oGet Local vGet Local oBtn1,oBtn2 Local oTbr Local oBp Local oBmp // oProducto:Setorder(4) oProducto:Gotop() // DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0,-12 DEFINE DIALOG oDlg RESOURCE ...