FiveTech Software tech support forums

best solution @ 103,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ; DATASOURCE oDbf COLUMNS aCols ; AUTOSORT FONT oFont; NOBORDER CELL LINES CLASS TMyBrowse() CLASS TMyBrowse FROM TXBrowse CLASSDATA lRegistered AS LOGICAL DATA aCols2Hide AS ARRAY INIT Array(0) DATA ...

... "Deselect everything" action oBrw:SelectRow( 0 ) MENUITEM "Prints the selected lines" action PrintBrowse(oParent:cCaption,oBrw,oDbf) MENUITEM "Export the selected rows" action ExportToExcel(oBrw ) else // MENUITEM "Select the current row" action oBrw:SelectRow( ...

... "", hBmp2, "" ; SIZE 15, 13 PIXEL FLAT NOROUND GDIP WHEN lMenu OF oDlg ; ACTION ::ShowPopUp( Contextual_Menu( Self,oBrw,oDbf,cIniUser,cSection,oDlg,aBtnBrow[4] ) ) Function Contextual_Menu( oBtn,oBrw,oDbf,cIniUser,cSection,oParent,oCont,lExport,lColConfig ) .... MENU ...

Nages, I have one popup on this codeblock oBrw:bRClicked := {|nRow,nCol| Disp_Menu_Comuni(oParent,nRow,nCol,oDbf,oBrw,cSection,oCont) .....} Function Disp_Menu_Comuni(oParent,nRow,nCol,oDbf,oBrw,cSection,oCont) .... ENDMENU ACTIVATE POPUP oMenu OF oParent AT oBrw:nTop+nRow, oBrw:nLeft+nCol ...

... I make a search for a sample "frank" ( on First) ndatarow is 3 and also obrw:nlen is 3 I tried to inser a variable nTotalrecords at init oDbf:= TCustomer():New() oDbf:setorder(1) oDbf:Gotop() nTotalRecords:= oDbf:OrdKeyCount() and the on each button WHEN ( nTotalRecords > oBrw:nDataRows ...

oDbf:OrdKeyCount() ) This works only for oDbf. Using oBrw:nLen or oBrw:KeyCount() works for all datasources. ok but the button are not refreshed , only when I move the mouse into obrw for a sample WHEN ( oBrw:nDataRows <= ...

oDbf:OrdKeyCount() )

This works only for oDbf.
Using oBrw:nLen or oBrw:KeyCount() works for all datasources.

perhaps I resolved with WHEN ( oBrw:nDataRows < oDbf:OrdKeyCount() )

init


after search

... will be a extra for all members... Maybe a Hash ? // Match variables from any database before we call the TEXT function. hXml["Name"] = oDbf[name] Then in TEXT function use the Hash hXml["Name"] .......so that anyone can use it if he will link his own database items to the ...

:ActiveConnections is only for ADO recordsets. In fwmaria lib, it is oRs:oCn. To change the sql, please make a new RecSet object, set it to oBrw:oDbf and then close the old RecSet object You may try this sample and use similar logic #include "fivewin.ch"function Main()  ...

thanks Rao Would this also work if I use the browse setup? example oBrw:Report( cTitle, , , ; { |oRep, oBrw| MySetUp( oRep, oBrw, oDbf,aGroup,nGroup,lEject,aCampi ) } ) static function MySetUp( oRep, oBrw, oDbf,aGroup,nGroup,lEject,afields ) local cFooter := "Progetto Magazzino - " ...

... functions to delete. Yes it delete the record but then re-save on archive There's probably something I don't understand I have two dbf Report.dbf (oDbf) Formati.dbf ( oDbfMod) have 30 fields +1 for recno() at first for editing I take a record on Report.dbf oRecord := oDbf:record() create ...

Saved me a few keystrokes
I normally would type as (oDbf:cAlias)->(dbSeek(cSeek, nil, .t.))

If you use database objects then you can just do:

oCustomer:goBottom()

... xbrowse I use WITH OBJECT  oBrw:aCols[4]               :oHeaderFont:= oBold               IF lMore                 :bStrData := { || oDbf:Street + CRLF +Padright(alltrim(oDbf:city)+" "+ oDbf:state,60) }              else                :bStrData := { ...

Thanks Rao,
Saved me a few keystrokes
I normally would type as (oDbf:cAlias)->(dbSeek(cSeek, nil, .t.))