FiveTech Software tech support forums

... Empty( nInvoice) aItems:={} // Close the vtaskbar I make a switch but the user could b reopen it manually with the mouse oVMenu5:Refresh() oVMenu5:lOpened :=.T. oVMenu5:Switch() // I wish delete the oBrw but it is possible that the oBrw was not built previously because there are also orders without ...

Cris, the problem is another on my application I load the oRange oRange := GetExcelRange(cFileXls , , @lOpened) it load good the excel file then I must save all into a dbf and I have problem using FW_DbfToExcel() because this function use at the end the function FW_ArrayToDBF ...

yes On xharbour run ok BUt on Harbour you made oRange := GetExcelRange(cFileXls , , @lOpened) and then Xbrowse(oRange) run ok I see all datas So, the problem is of Fw_ExcelToDbf() Please Maurizio try this testxbrowse(oRange) Function  testxbrowse(oRange)  ...

... expandir o Tree? alguém sabe pq? oBrw:bKeyDown := {|nKey| BrwKeyAtUs(nkey, oBrw) } .. Static Function BrwKeyAtUs(nKey, oBrw) If !oBrw:oTreeItem:lOpened .and. oBrw:oTreeItem:nLevel == 1 If nKey == VK_RETURN oBrw:oTreeItem:Open() oBrw:Refresh() Endif ElseIf oBrw:oTreeItem:lOpened .and. oBrw:oTreeItem:nLevel ...

hi, I know that GetExcelRange function works with this parameters ( cBook, cSheet, acRange, lOpened ) function defaults to ActiveWorkBook, ActiveSheet and UsedRange, if the corresponding parameters are not specified. I Have a lot of excel files (cBook) and inside there ...

It's fine. Then check lOpened value:

Code: Select all  Expand view

? lOpened

EMG

... the file : https://drive.google.com/open?id=1UMWM7qbkvNAhFkkaWoQX0zDhzKQH-Uno My test Function Import() Local oRange,lOpened:=.f. oRange := GetExcelRange("C:\Work\Errori\Importa_e_Export\articoli.xls" , , @lOpened) USE ARTICOLI ALIAS AR SELECT AR FW_ExcelToDBF( ...

... the first row are Headers of dbf I made #include "fivewin.ch" Function test() Local oRange,lOpened:=.f. oRange := GetExcelRange("articoli.xls", , , @lOpened ) USE ARTICOLI ALIAS AR select AR FW_ExcelToDBF( oRange, nil, .t. ) return ...

We suugest: oRange := GetExcelRange( [ cExcelFileName ], [ cSheetName ], [ acRange ], @lOpened ) aData := ArrTranspose( oRange:Value ) local oRange, lOpened := .f.local aDataoRange  := GetExcelRange( [ cExcelFileName ], [ cSheetName ], [ acRange ...

... ToggleFolder( r,c,f,o,b ) } :bBmpData := { || If( ':' $ oBrw:oTreeItem:cPrompt, 4, ; If( 'D' $ oBrw:oTreeItem:Cargo[ 5 ], ; If( oBrw:oTreeItem:lOpened, 1, 2 ), 3 ) ) } END ADD TO XBROWSE oBrw DATA oBrw:oTreeItem:Cargo[ 2 ] ; PICTURE '@EZ 999,999,999' HEADER 'Bytes' ADD TO XBROWSE oBrw DATA ...

... ToggleFolder( r,c,f,o,b ) } :bBmpData := { || If( ':' $ oBrw:oTreeItem:cPrompt, 4, ; If( 'D' $ oBrw:oTreeItem:Cargo[ 5 ], ; If( oBrw:oTreeItem:lOpened, 1, 2 ), 3 ) ) } END ACTIVATE DIALOG oDlg CENTER

... ToggleFolder( r,c,f,o,b ) } :bBmpData := { || If( ':' $ oBrw:oTreeItem:cPrompt, 4, ; If( 'D' $ oBrw:oTreeItem:Cargo[ 5 ], ; If( oBrw:oTreeItem:lOpened, 1, 2 ), 3 ) ) } END ADD TO XBROWSE oBrw DATA oBrw:oTreeItem:Cargo[ 2 ] ; PICTURE '@EZ 999,999,999' HEADER 'Bytes' ADD TO XBROWSE oBrw DATA ...

... images from databases was fast losing memory. This is resolved now. * Enhancement to Open Excel Book/Range functions: (a) GetExcelBook( [cBook], @lOpened ) --> oBook New second optional parameter lOpened by reference. If the function opens the excel book, lOpened is set to .t. otherwise .f. ...

... function Main() local oDlg, ofig1 local cLocalNum := "123456789" local oHand local lOpened := .f. *----------------------------------------------------------------------------* cNumber = Space( 20 ) SET 3DLOOK ON LoadPredPhones() USE ...

Gaston,

oBrw:oTreeItem:lOpened --> Abierto ó cerrado ( Item en la fila actual )

El tree ( Clase TLinkList ) está disponible en oBrw:oTree

Tienes que usar los métodos de la Clase TLinkList para obtener la información adicional que necesites