FiveTech Software tech support forums

... 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

here there is ...

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)   Local ...

... 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 ...

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 are 1 or n sheets (cSheet), is ...

It's fine. Then check lOpened value:



EMG

... a image of my sheet excel

https://s17.postimg.org/748pnm0pb/ssss.jpg

the file : m


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 ...

... SOTTOCATEG,UDM.IVA,LISTINO1,LISTINO2,LISTINO3

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 nil ...

We suugest:

oRange := GetExcelRange( [ cExcelFileName ], [ cSheetName ], [ acRange ], @lOpened )
aData := ArrTranspose( oRange:Value )

local oRange, lOpened := .f.local aDataoRange := GetExcelRange( [ cExcelFileName ], [ cSheetName ], [ acRange ], @lOpened )if oRange ...

... 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 ...

... nWidth := 340
:cHeader := 'Cartella'
b := :bLDClickData

:bLDClickData := { |r,c,f,o| 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 ...

... 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.
If ...

... function Main()

local oDlg, ofig1
local cLocalNum := "123456789"
local oHand
local lOpened := .f.


*----------------------------------------------------------------------------*
cNumber = Space( 20 )
SET 3DLOOK ON
LoadPredPhones ...

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