FiveTech Software tech support forums

... function MsgDate( dDate, cPrompt, oGet ) local oDlg, oFont, oCursor, dSelect, dWork local nRow, nCol, nMonth, nYear local aMonths := {'Enero ',; 'Febrero ',; 'Marzo ',; 'Abril ',; 'Mayo ',; 'Junio ',; 'Julio ',; 'Agosto ',; 'Septiembre',; 'Octubre ',; 'Noviembre ...

... RibbonBar y un estilo de panel de metro. Muchas gracias César !!! * Nuevo: Nueva función FW_FolderChanged( cFolderPath ) --> { nDay, nMonth, nYear, nHours, nMinutes, nSeconds } Por favor, revisa nuevo ejemplo en FWH\samples\fldchanged.prg * Mejora: En el método Update( Pos ) de la clase TExplorerBar, ...

... for combining a RibbonBar and a metro panel style. Many thanks C├®sar! * New: function FW_FolderChanged( cFolderPath ) --> { nDay, nMonth, nYear, nHours, nMinutes, nSeconds } Please review new example FWH\samples\fldchanged.prg * Enhancement: Class TExplorerBar Method Update( nPos ) updates ...

Estimado José, Aquí lo tienes. Lo incluimos para el próximo build de FWH: function FW_FolderChanged( cFolderPath ) --> { nDay, nMonth, nYear, nHours, nMinutes, nSeconds } #include "FiveWin.ch"function Main()    XBrowse( FW_FolderChanged( "c:\fwh" ) ...

Estimado José, Aquí lo tienes. Lo incluimos para el próximo build de FWH: function FW_FolderChanged( cFolderPath ) --> { nDay, nMonth, nYear, nHours, nMinutes, nSeconds } #include "FiveWin.ch"function Main()    XBrowse( FW_FolderChanged( "c:\fwh" ) ...

Estimado José, Aquí lo tienes. Lo incluimos para el próximo build de FWH: function FW_FolderChanged( cFolderPath ) --> { nDay, nMonth, nYear, nHours, nMinutes, nSeconds } #include "FiveWin.ch"function Main()    XBrowse( FW_FolderChanged( "c:\fwh" ) ...

Dear Silvio,

@ 2, 280 GET oGet VAR ::nyear SIZE 150,22 PIXEL OF ::oBar WHEN aShowCbx[2]:nat= 2 VALID ( aShowCbx[2]:Set( 2 ), .T. )

... second option of a combobox xhe is on the same buttonbar local aShowExtract:= {"Estrazioni continue","Estrazioni annuali"} ::nyear := "2022" //ComboBox @ 2,190 COMBOBOX aShowCbx[2] Var cExtractSel ITEMS aShowExtract ; SIZE 150,400 PIXEL OF ::oBar HEIGHTGET 18 STYLE ...

Cesar, to select 2022 year I made cFilter:= "LTRIM(STR(YEAR(FIELD->DATA)))= '" + nyear + "'" oQry:SetFilter(cFilter) oQry:GoTop() and run ok I f the user want show only ( 10,20,30,40,50,100,200,300,500) records How I must set the filter ? I try with ...

this run ok        cFilter:= "LTRIM(STR(YEAR(FIELD->DATA)))= '" + nyear + "'"        oDbf:SetFilter(cFilter)        oDbf:GoTop()  How I can add the number of records to show ? sample only 5 records give me error Here nInit:=Ltrim(str(oDbf:lastrec()-nCount)) ...

I made a small test to try I wish show only nrecord and only the year = nyear selected by user #include "fivewin.ch"REQUEST DBFCDX//----------------------------------------------------------------------------//FUNCTION Main()   RddSetDefault( ...

... a report is not the most efficient, but the nice thing is that you always use the same call to get what you need. So, oInvoices:TotalSales( nYear ) could work something like this. Method TotalSales( nYear ) Class TInvoices   Default nYear:= year(date())If nYear = ...

... SetMode(<nRows>,<nCols>)->lSuccess SetMouse([<lOnOff>],[<nRow>],[<nCol>])->lIsMouseVisible SetNewDate(<nYear>,<nMonth>,<nDay>)->lSuccess SetNewTime(<nHour>,<nMinute>,<nSecond>)->lSuccess SetPos(<nRow>,<nCol>)->Nil ...

... SetMode(<nRows>,<nCols>)->lSuccess SetMouse([<lOnOff>],[<nRow>],[<nCol>])->lIsMouseVisible SetNewDate(<nYear>,<nMonth>,<nDay>)->lSuccess SetNewTime(<nHour>,<nMinute>,<nSecond>)->lSuccess SetPos(<nRow>,<nCol>)->Nil ...

If the syntax is more comfortable you can use the harbour hb_DateTime() function to create a datetime variable. hb_DateTime( nYear, nMonth, nDay, nHour, nMin, nSec, nMill ) // I believe the last argument is milliseconds. The source file rtl\dateshb.c has a fair number of datetime related ...