Calex - sample01

Calex - sample01

Postby Silvio.Falconi » Sun Jul 07, 2024 9:31 am

Someone use sample01 with tdatabase?
I Wish converte this calex sample with tdatabase system


Code: Select all  Expand view
#include "fivewin.ch"
#include "Splitter.ch"
#include "calendar.ch"
#include "calex.ch"
#include "tselex.ch"
#include "ord.ch"
#include "report.ch"

//----------------------------------------------------------------------------//
//
// Remove this comment for append records for test automatically
//
//#define DEMO
//
//----------------------------------------------------------------------------//

REQUEST DBFCDX
request hb_lang_it
request hb_codepage_itwin

Static nPop   := 0
Static oItems
Static aChecks

//----------------------------------------------------------------------------//

function Main()

   local oBrush
   local oMenu
   local oWnd

   oItems   := Array( 6 )
   aChecks  := { .F., .F., .F., .F., .F., .F. }


   HB_LANGSELECT( "IT" )
       HB_SETCODEPAGE( "ITWIN" )
   SET DATE FORMAT "MM/DD/YYYY"
   SET DELETE ON
   //RDDSETDEFAULT( "DBFCDX" )

/*
   DEFINE BRUSH oBrush COLOR CLR_GRAY
   DEFINE WINDOW oWnd BRUSH oBrush MDI
   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON INIT SampleCalex():New( oWnd )

   oBrush:End()
 */


   SampleCalex():New()

return nil

//----------------------------------------------------------------------------//

Function FechaServer()
Return Date()

//---------------------------------------------------//

CLASS SampleCalex

   DATA dDateStart
   DATA dDateEnd

   DATA cAlias
   DATA cFile

   DATA lOnPreNext

   DATA oCalex
   DATA oDtPick
   DATA oExBar
   DATA oPanelExplorer
   DATA oPanelCalex
   DATA oWnd
   DATA oSelex
   DATA nOptSelex

   DATA oVSplit
   DATA lFld          INIT .F.
   DATA oFld

   DATA oDbf

   METHOD New()

   METHOD AddDates()

   METHOD BuildCalex()
   METHOD BuildDbf()
   METHOD BuildDialog()
   METHOD BuildExplorer()
   METHOD BuildPanels()
   METHOD BuildPop( oView, dDateFrom, dDateTo, nTimeFrom, nTimeTo )
   METHOD BuildSplitterV()

   METHOD ChangeCheck( nPos )
   METHOD ChangeDate()
   METHOD ChangeSelex()
   METHOD ChangeView( oView, nInterval )
   METHOD ColorStatus( dFecha )
   METHOD DeleteInfo( oView, nIdx )
   METHOD GetDateMonth( r, c, lView )
   METHOD Imprime( dFecha )
   METHOD SetSize( nType, nWidth, nHeight )
   METHOD ViewDatabase()

ENDCLASS

//---------------------------------------------------//

METHOD New( oWnd ) CLASS SampleCalex

   local oMenu
   local oSelf    := Self
   local oBrush
   local cPath    := "\DATA\" //cFilePath( HB_ARGV( 0 ) )

   SetCurDir( cPath )
   MENU oMenu
   ENDMENU

   ::dDateStart := Date()
   ::dDateEnd   := Date()

   ::lOnPreNext := .F.

   ::cAlias     := "
citas"
   ::cFile      := Upper( cPath + ::cAlias + "
.dbf" )

   ::BuildDbf()

       ::oDbf:=TCitas():New()
       ::oDbf:setorder(1)
       ::oDbf:Gotop()



   ::ChangeSelex()

   ::nOptSelex  := 3

   DEFINE BRUSH oBrush COLOR CLR_HGRAY

   if Empty( oWnd )
      DEFINE WINDOW ::oWnd MDI MENU oMenu BRUSH oBrush
   else
      DEFINE WINDOW ::oWnd MDICHILD MENU oMenu BRUSH oBrush OF oWnd
   endif

   //::lFld            := .T.

   ::BuildPanels()
   ::BuildSplitterV()
   ::BuildExplorer()
   ::BuildCalex()
   //::AddDates()


   ACTIVATE WINDOW oSelf:oWnd MAXIMIZED ;
      ON RESIZE oSelf:SetSize( nSizeType, nWidth, nHeight ) ;
      VALID ( DbCloseAll(), .T. )

   oBrush:End()

RETURN Self

//----------------------------------------------------------------------------//

METHOD BuildSplitterV() CLASS SampleCalex

   local oSelf    := Self
   local oParent

   if ::oWnd:ClassName() == "
TMDICHILD"
      oParent := ::oWnd
   else
      oParent  := ::oWnd:oWndClient
   endif

   @ 0, oSelf:oPanelExplorer:nWidth + 2 SPLITTER oSelf:oVSplit ;
        VERTICAL ;
        PREVIOUS CONTROLS oSelf:oPanelExplorer ;
        HINDS CONTROLS oSelf:oPanelCalex ;
        LEFT MARGIN 10 ;
        RIGHT MARGIN 80 ;
        SIZE 2, ScreenHeight() - 2 ;
        PIXEL ;
        COLOR CLR_RED ;
        OF oParent UPDATE

Return nil

//----------------------------------------------------------------------------//

METHOD AddDates( dStart, dEnd, nStart, nEnd ) CLASS SampleCalex

   local dDate
   local aGrad

   DEFAULT dStart := CToD( "
 /  /  " )
   DEFAULT dEnd   := CToD( "
 /  /  " )
   DEFAULT nStart := 0
   DEFAULT nEnd   := 0

   //Clear scopes
  * ( ::cAlias )->( OrdSetFocus( "
fecha" ) )
  * ( ::cAlias )->( OrdScope( TOPSCOPE, NIL ) )
 *  ( ::cAlias )->( OrdScope( BOTTOMSCOPE, NIL ) )

       ::oDbf:setorder("
fecha")
       ::oDbf:SetScope( TOPSCOPE, NIL )
       ::oDbf:SetScope( BOTTOMSCOPE, NIL )

   //Set New scopes
  * ( ::cAlias )->( DBGoTop() )
  * ( ::cAlias )->( OrdScope( TOPSCOPE,    DToS( dStart ) + Str( nStart * 100, 4 ) ) )
  * ( ::cAlias )->( OrdScope( BOTTOMSCOPE, DToS( dEnd )   + Str( nEnd * 100, 4 ) ) )
  * ( ::cAlias )->( DBGoTop() )

          ::oDbf:gotop()
          ::oDbf:SetScope( TOPSCOPE, DToS( dStart ) + Str( nStart * 100, 4 ) )
          ::oDbf:SetScope( BOTTOMSCOPE,DToS( dEnd )   + Str( nEnd * 100, 4 ) )
          ::oDbf:gotop()

   ::oCalex:Reset()
 *  DO WHILE ! ( ::cAlias )->( Eof() )
   DO WHILE ! ::oDbf:Eof()
      //nStart, nEnd, dStart, dEnd, cText, cSubject, nIdx, lND, lAplicado, lBloqueoT, aGrad, nClrT, nStatus
      aGrad   := ::ColorStatus( ::oDbf:nStatus, ::oDbf:DSTART )
      ::oCalex:LoadDates( ::oDbf:START,;
                          ::oDbf:END, ;
                          ::oDbf:DSTART, ;
                          ::oDbf:DEND, ;
                          ::oDbf:TEXT, ;
                          ::oDbf:SUBJECT,;
                          ::oDbf:IDX, , , , ;
                          aGrad[ 1 ], ;
                          aGrad[ 2 ], ;
                          ::oDbf:nStatus )
                   ::oDbf:Skip()
   ENDDO

RETURN nil

//---------------------------------------------------//

METHOD BuildCalex() CLASS SampleCalex

   local oSelf := Self

   if !Empty( ::oFld ) .and. ::lFld
   DEFINE CALEX ::oCalex OF ::oFld:aDialogs[ 1 ] ; //::oPanelCalex ;
          FROM 1, 10 TO 600*1.15, 600*1.78 ;
          FIRST_DATE 0 //ALL //TOP //LEFT //BOTTOM //RIGHT
   else
   DEFINE CALEX ::oCalex OF ::oPanelCalex ;
          FROM 1, 10 TO 600, 600 ;
          FIRST_DATE 0 ALL //TOP //LEFT //BOTTOM //RIGHT
   endif
   //::oCalex:bRClicked := { | r, c | MsgInfo( ::oCalex:GetInfoFromCoors( r, c ) ) }
   //::oCalex:bRClicked := { | r, c | MsgInfo( ::oCalex:hCalInfo[1] ) }
   //::oCalex:bRClicked := { | r, c | XBrowse( ::oCalex:hCalInfo ), MsgInfo( r ), MsgInfo( c ) }
   ::oCalex:bRClicked   := { | r, c | ::GetDateMonth( r, c ) }
   //::oCalex:bMouseWheel := { | nK, nD, c, r |

   DEFINE MONTH VIEW OF ::oCalex;
          ON SELECT VIEW ( oSelf:AddDates( ::dStart, ::dEnd, ::nStartHour, ::nEndHour ), ;
                           oSelf:oDtPick:SetDate( ::dDateSelected )  ) ;
          ON SELECT DAY  oSelf:oDtPick:SetDate( dDate ) ;
          ON SELECT WEEK oSelf:oDtPick:SetDate( dDate ) ;
          ON NEXT        ( oSelf:oDtPick:SetDate( dDate ), ;
                           oSelf:AddDates( ::dStart, ::dEnd, ::nStartHour, ::nEndHour ) );
          ON PREV        ( oSelf:oDtPick:SetDate( dDate ), ;
                           oSelf:AddDates( ::dStart, ::dEnd, ::nStartHour, ::nEndHour ) );
          ACTIVATE

   //Day

   DEFINE DAY VIEW OF ::oCalex ;
          INTERVAL ::oCalex:aOldInterval[ ::nOptSelex ] ; // 30 ;
          START HOUR 0 ;
          END HOUR 24;
          ON SELECT VIEW ( oSelf:AddDates( ::dStart, ::dEnd, ::nStartHour, ::nEndHour ), ;
                           oSelf:oDtPick:SetDate( ::dDateSelected )  ) ;
          ON NEXT        ( oSelf:oDtPick:SetDate( dDate ), ;
                           oSelf:AddDates( ::dStart, ::dEnd, ::nStartHour, ::nEndHour ) );
          ON PREV        ( oSelf:oDtPick:SetDate( dDate ), ;
                           oSelf:AddDates( ::dStart, ::dEnd, ::nStartHour, ::nEndHour ) );
          ON RIGHT CLICK ( oSelf:BuildPop( nRow, nCol, Self, dDateFrom, dDateTo, nTimeFrom, nTimeTo ) );
          ON DELETE      ( oSelf:DeleteInfo( Self, nIdx ) )


   //Week

   DEFINE WEEK VIEW OF ::oCalex ;
          INTERVAL ::oCalex:aOldInterval[ ::nOptSelex ] ; // 30 ;
          START HOUR 0 ;
          END HOUR 24;
          ON SELECT VIEW ( oSelf:oDtPick:SetDate( oLast:dDateSelected - DoW( oLast:dDateSelected ) + 1 ),;
                           oSelf:AddDates( ::dStart, ::dEnd, ::nStartHour, ::nEndHour ) ) ;
          ON RIGHT CLICK ( oSelf:BuildPop( nRow, nCol, Self, dDateFrom, dDateTo, nTimeFrom, nTimeTo ) ) ;
          ON NEXT        ( oSelf:oDtPick:SetDate( dDate ), ;
                           oSelf:AddDates( ::dStart, ::dEnd, ::nStartHour, ::nEndHour ) );
          ON PREV        ( oSelf:oDtPick:SetDate( dDate ), ;
                           oSelf:AddDates( ::dStart, ::dEnd, ::nStartHour, ::nEndHour ) );
          ON DELETE      ( oSelf:DeleteInfo( Self, nIdx ) )

RETURN nil

//---------------------------------------------------//

METHOD BuildDbf() CLASS SampleCalex

    FIELD dstart,start,idx,nStatus

   local oSelf       := Self
   local lAppend     := .F.
   local i
   local nDay
   local nMonth
   local nYear
   local nStat
   local nTime1
   local nTime2
   local nOpc
   local aVals       := { "
00", "05", "10", "15", "20", "30", "45" }
   local cLastOrd
   local cDbfPath := "
.\data\"

    local  aStructure := {  { "
start"    , "N",   4, 0 },;
                      { "
end"      , "N",   4, 0 },;
                      { "
dstart"   , "D",   8, 0 },;
                      { "
subject"  , "C", 100, 0 },;
                      { "
text"     , "M",  10, 0 },;
                      { "
idx"      , "N",  10, 0 },;
                      { "
dend"     , "D",   8, 0 },;
                      { "
lRemember", "L",   1, 0 },;
                      { "
nMinutes",  "N",   4, 0 },;
                      { "
nStatus",   "N",   2, 0 } }





    IF !lIsDir(alltrim(cDbfPath))
       IF !lMkDir(cDbfPath)
          MsgAlert("
I cannot create the folder "+cDbfPath,"Attention" )
       ENDIf
   ENDIf



       if File( cDbfPath+"
citas.dbf" )
      if !File( cDbfPath+"
citas.cdx" )
         USE  &(cDbfPath+"
citas") NEW EXCLUSIVE ALIAS DB
         INDEX ON DToS( dstart ) + StrZero( start, 4 ) TAG fecha FOR !deleted()
         INDEX ON idx TAG idx FOR !deleted()
         INDEX ON nStatus TAG status FOR !deleted()
           CLOSE DB
      endif
   else
      lAppend :=.t.
    DbCreate( cDbfPath+"
citas.dbf", aStructure, "DBFCDX", .T., "DB" )
      INDEX ON DToS( dstart ) + StrZero( start, 4 ) TAG fecha FOR !deleted()
      INDEX ON idx TAG idx FOR !deleted()
      INDEX ON nStatus TAG status FOR !deleted()
      CLOSE DB
   endif



/*
#ifdef DEMO
   if lAppend
      cLastOrd := ( ::cAlias )->( OrdSetFocus( "
fecha" ) )
      CursorWait()
      for i := 1 to 6000
         nMonth := StrZero( HB_RandomInt( 1, 12 ), 2 )
         nDay   := StrZero( HB_RandomInt( 1, if( nMonth != "
02", 30, 28 ) ), 2 )
         nYear  := StrZero( HB_RandomInt( 2016, 2018 ), 4 )
         nTime1 := StrZero( HB_RandomInt( 5, 22 ), 2 )
         nTime2 := StrZero( HB_RandomInt( nTime1, 23 ), 2 )
         nStat  := HB_RandomInt( 1, 10 )
         nOpc   := HB_RandomInt( 1,  7 )
         if !( ::cAlias )->( DbSeek( Dtos( Ctod( nMonth + "
/" + nDay + "/" + nYear ) ) + nTime1 + aVals[ nOpc ] ) )
         ( ::cAlias )->( DbAppend() )
         REPLACE ( ::cAlias )->idx       WITH i
         REPLACE ( ::cAlias )->start     WITH Val( nTime1 + aVals[ nOpc ] )
         nOpc   := nOpc + 1
         nOpc   := if( nOpc > 7, 1, nOpc )
         REPLACE ( ::cAlias )->end       WITH Val( nTime2 + aVals[ nOpc ] )
         REPLACE ( ::cAlias )->dstart    WITH Ctod( nMonth + "
/" + nDay + "/" + nYear )
         REPLACE ( ::cAlias )->dend      WITH Ctod( nMonth + "
/" + nDay + "/" + nYear )
         REPLACE ( ::cAlias )->subject   WITH "
Subject: " + nDay + "/" + nMonth
         REPLACE ( ::cAlias )->text      WITH "
Text: " + nDay + "/" + nMonth + "/" + nYear
         REPLACE ( ::cAlias )->nStatus   WITH nStat
         REPLACE ( ::cAlias )->lRemember WITH .T.
         REPLACE ( ::cAlias )->nMinutes  WITH 5 * nStat
         endif
      next
      CursorArrow()
      ( ::cAlias )->( OrdSetFocus( cLastOrd ) )
      ( ::cAlias )->( DbGoTop() )
   endif
#endif
*/
RETURN nil

//---------------------------------------------------//

METHOD ViewDatabase() CLASS SampleCalex

   local oSelf    := Self
  * local nOldRec  := ( ::cAlias )->( RecNo() )
  * local cLastOrd := ( ::cAlias )->( OrdSetFocus( "
fecha" ) )
  local nOldRec  := ::oDbf:RecNo()
  local cLastOrd :=::oDbf:SetOrder( "
fecha" )

  * ( ::cAlias )->( DBGoTop() )
  ::oDbf:gotop()

   XBROWSER ::oDbf SETUP ( oBrw:lFooter := .F. ) SHOW SLNUM //AUTOSORT // OR SHOW RECID

  * ( ::cAlias )->( OrdSetFocus( cLastOrd ) )
   ::oDbf:SetOrder( cLastOrd )
  * ( ::cAlias )->( DBGoTo( nOldRec ) )
   ::oDbf:goto(nOldRec)

Return nil

//----------------------------------------------------------------------------//

METHOD BuildDialog( oView, dDateFrom, dDateTo, nTimeFrom, nTimeTo ) CLASS SampleCalex

   local oDlg
   local cSubject := Space( 100 )
   local cText
   local lSave    := .F.
   local lNew     := oView:oCalex:oCalInfoSelected == NIL
   local o, nID, cLastOrd
   local nStatus  := 1
   local lRemember := .F.
   local nMinutes := 0

   DEFINE DIALOG oDlg ;
   TITLE If( lNew, "
Add Appointment", "Edit Appointment" ) ;
   SIZE 600, 600

   if ! lNew
      o        := oView:oCalex:oCalInfoSelected
      cSubject := o:cSubject
      cText    := o:cText

      nStatus  := o:nStatus
      lRemember := o:lRemember
      nMinutes := o:nMinutes


   endif


   @ 10, 10 SAY "
Date: " + DToC( dDateFrom ) OF oDlg PIXEL
   @ 10, 10 SAY "
Date: " + DToC( dDateTo ) OF oDlg PIXEL
   @ 25, 10 SAY "
Time Start: [" + oView:ConvertTime( nTimeFrom, oView:lAmPm ) +;
                "
] -- Time End: [" + oView:ConvertTime( nTimeTo, oView:lAmPm ) + "]" OF oDlg PIXEL
   @ 40, 10 SAY "
Subject" OF oDlg PIXEL
   @ 40, 30 GET cSubject OF oDlg PIXEL SIZE 100, 10
   @ 55, 10 SAY "
Text" OF oDlg PIXEL
   @ 70, 10 GET cText MEMO OF oDlg PIXEL SIZE 130, 95
   @ 190, 10 SAY "
Status" OF oDlg PIXEL
   @ 190, 30 COMBOBOX nStatus ITEMS { "
Pending", "In Progress", "Completed" } OF oDlg PIXEL SIZE 100, 90
   @ 200, 10 CHECKBOX lRemember PROMPT "
Set Reminder" OF oDlg PIXEL



   @ 280, 10 BUTTON "
OK" PIXEL ACTION ( lSave := .T., oDlg:End() )
   @ 280, 120 BUTTON "
CANCEL" PIXEL ACTION ( oDlg:End() )

   ACTIVATE DIALOG oDlg CENTERED

   IF lSave

     * cLastOrd = ( ::cAlias )->( OrdSetFocus( "
idx" ) )
        cLastOrd := ::oDbf:setorder("
idx")

      if lNew
        * nID = ( ::cAlias )->( DBGoBottom() )
          nID := ::oDbf:gobottom()
          * nID = ( ::cAlias )->IDX + 1
           nID := ::oDbf:IDX + 1
          * ( ::cAlias )->( DBAppend() )
           ::oDbf:Append()
          * REPLACE ( ::cAlias )->IDX  WITH nID
           ::oDbf:idx := nId
      else
         *  ( ::cAlias )->( DBSeek( o:nIdx ) )
         ::oDbf:seek(o:nIdx)
         o:cSubject = cSubject
         o:cText    = cText
         o:nStatus   := nStatus
         o:lRemember := lRemember
         o:nMinutes  := nMinutes
      endif

     /* REPLACE ( ::cAlias )->start   WITH nTimeFrom
      REPLACE ( ::cAlias )->end     WITH nTimeTo
      REPLACE ( ::cAlias )->dstart  WITH dDateFrom
      //REPLACE ( ::cAlias )->dend    WITH dDateTo
      REPLACE ( ::cAlias )->subject WITH cSubject
      REPLACE ( ::cAlias )->text    WITH cText
      */
            ::oDbf:start    :=  nTimeFrom
            ::oDbf:end      :=  nTimeTo
            ::oDbf:dstart   :=  dDateFrom
            ::oDbf:dend     :=  dDateTo
            ::oDbf:subject  :=  cSubject
            ::oDbf:text     :=  cText
            ::oDbf:lRemember:= lRemember
            ::oDbf:nMinutes := nMinutes


            *  ( ::cAlias )->( DBCommitAll() )
            ::oDbf:save()

      ::AddDates( oView:dStart, oView:dEnd, oView:nStartHour, oView:nEndHour )
      oView:BuildDates()
     * ( ::cAlias )->( OrdSetFocus( cLastOrd ) )
        ::oDbf:setorder(cLastOrd)
   ENDIF

RETURN nil

//---------------------------------------------------//

METHOD BuildExplorer() CLASS SampleCalex

   local oPanel
   local oSelf := Self
   local nOption := 5

   ::oExBar := TExplorerBar():New( 0, 0, 250, 300, ::oPanelExplorer )

   oPanel := ::oExBar:AddPanel( Upper( "
Jump To Date" ), "c:\work\fwh\bitmaps\32x32\calendar.bmp", 200 )
   @ 40, 15 CALENDAR ::oDtPick VAR ::dDateStart OF oPanel PIXEL SIZE 250, 157 WEEKNUMBER DAYSTATE

   ::oDtPick:bChange = { | o | ::ChangeDate( o ) }

   oPanel := ::oExBar:AddPanel( Upper( "
View" ), "c:\work\fwh\bitmaps\32x32\view.bmp", 130 )
   oPanel:AddLink( "
View Daily"  , { || ::oCalex:SetDayView(), ::ChangeSelex()  }, "d:\fwh\bitmaps\16x16\inspect.bmp" )
   oPanel:AddLink( "
View Weekly" , { || ::oCalex:SetWeekView(), ::ChangeSelex() }, "d:\fwh\bitmaps\16x16\additem.bmp" )
   oPanel:AddLink( "
View Monthly", { || ::oCalex:SetMonthView() }, "c:\work\fwh\bitmaps\16x16\calendar.bmp" )

   @ 100, 10 SELEX ::oSelex VAR nOption of oPanel PIXEL SIZE 220, 45;
      ITEMS "
5", "10", "15", "20", "30", "60" ;
      GRADIENT OUTTRACK { { 1/2, nRGB( 219, 230, 244 ), nRGB( 207-50, 221-25, 255 ) }, ;
                          { 1/2, nRGB( 201-50, 217-25, 255 ), nRGB( 231, 242, 255 ) } };
      LINECOLORS nRGB( 237, 242, 248 ), nRGB( 141, 178, 227 );
      COLORTEXT  CLR_BLUE, CLR_RED ;
      ACTION (::oCalex:oView:SetInterval( Val( ::oSelex:aOptions[ nOption ] ) ), ::oCalex:Refresh() )

   oPanel := ::oExBar:AddPanel( Upper( "
Actions" ), "c:\work\fwh\bitmaps\32x32\index2.bmp", 140 )
   oPanel:AddLink( "
New record",  { || msginfo("New")  }, "c:\work\fwh\bitmaps\16x16\adddbf.bmp" )
   oPanel:AddLink( "
Modify record", { || msginfo("Modify")  }, "c:\work\fwh\bitmaps\16x16\edit.bmp" )
   oPanel:AddLink( "
Delete record",  { || msginfo("Delete")  }, "c:\work\fwh\bitmaps\16x16\deldbf.bmp" )
   //oPanel:AddLink( "
Copy record",  { || msginfo("Copy")  }, "c:\work\fwh\bitmaps\16x16\copy.bmp" )
   oPanel:AddLink( "
Informes",  { || oSelf:Imprime()  }, "c:\work\fwh\bitmaps\16x16\print.bmp" )
   oPanel:AddLink( "
View Database",  { || oSelf:ViewDatabase() }, "c:\work\fwh\bitmaps\16x16\prg.bmp" )
   oPanel:AddLink( "
Exit",  { || oSelf:oWnd:End()  }, "c:\work\fwh\bitmaps\16x16\exit2.bmp" )

   oPanel := ::oExBar:AddPanel( Upper( "
INFO" ), "c:\work\fwh\bitmaps\32x32\notes.bmp", 52 )
   oPanel:AddLink( "
Info",  { || XBrowse( ::oCalex:hCalInfo ) }, "c:\work\fwh\bitmaps\16x16\prg.bmp" )

   ::oPanelExplorer:oClient := ::oExBar
   ::oPanelExplorer:oClient:bMouseWheel := { || MsgInfo( "
ok" ) }

Return nil

//---------------------------------------------------//

METHOD BuildPanels() CLASS SampleCalex

   local oBrush
   local oParent

   if ::oWnd:ClassName() == "
TMDICHILD"
      oParent  := ::oWnd
   else
      oParent  := ::oWnd:oWndClient
   endif
   ::oPanelExplorer := TPanel():New( 1, 0, ::oWnd:nHeight, 280, oParent )
   ::oPanelCalex    := TPanel():New( 1, ::oPanelExplorer:nWidth + 6, ::oWnd:nHeight, ;
                                     ::oWnd:nWidth - ::oPanelExplorer:nWidth + 6, oParent )

   DEFINE BRUSH oBrush COLOR CLR_WHITE
   ::oPanelExplorer:SetBrush( oBrush )
   ::oPanelCalex:SetBrush( oBrush )
   oBrush:End()

   if ::lFld
   @ 1, 1 FOLDEREX ::oFld ;
         PROMPTS "
Calex" OF ::oPanelCalex ;
         TAB HEIGHT 22 ;
         SIZE  2 *::oPanelCalex:nWidth - 70, 2* ::oPanelCalex:nHeight - 266 ;
         PIXEL //FONT oThis:oFontXF
   endif

Return nil

//---------------------------------------------------//

METHOD ChangeSelex() CLASS SampleCalex

   local cInterval //:= AllTrim( Str( ::oCalex:oView:nInterval ) )
   local nAt       //:= AScan( ::oSelex:aOptions, cInterval )

   if !Empty( ::oSelex )
      nAt       := AScan( ::oSelex:aOptions, cInterval )
      if nAt != 0  .and. ::oSelex:nOption != nAt
         cInterval := AllTrim( Str( ::oCalex:oView:nInterval ) )
         ::oSelex:SetOption( nAt )
         ::oSelex:Refresh()
      endif
   endif

Return nil

//---------------------------------------------------//

METHOD SetSize( nType, nWidth, nHeight ) CLASS SampleCalex

   if nWidth != nil
      ::oPanelExplorer:Move( , , , nHeight )
      ::oPanelCalex:Move( , , nWidth - ( ::oPanelExplorer:nRight + 6 ), nHeight )
   endif

Return nil

//---------------------------------------------------//

METHOD GetDateMonth( r, c, lView ) CLASS SampleCalex

   local dDate
   local aPos      := {}
   local oCalInfo
   local cStrDay
   local aInfo
   local hDays
   local aDates    := {}
   local nH
   local nW
   DEFAULT lView   := .T.

   if ::oCalex:oView:ClassName() == Upper( "
TMonthView" )
      aPos   := ::oCalex:oView:GetPosition( r, c )
      dDate  := ::oCalex:oView:GetDateFromPos( aPos[ 1 ], aPos[ 2 ] )
      //XBrowse( ::oCalex:oView:GetCoorFromPos( aPos[ 1 ], aPos[ 2 ] ) )
      cStrDay := DToS( dDate )
      hDays = hb_HASH()
      for each oCalInfo in ::oCalex:hCalInfo
         aInfo = {}
#ifdef __XHARBOUR__
         oCalInfo := oCalInfo:Value
#endif
         if oCalInfo:dStart == dDate
            if hb_HHASKEY( hDays, cStrDay )
               aInfo := hb_HGET( hDays, cStrDay )
            endif
            AAdd( aInfo, oCalInfo )
            ASort( aInfo, , ,{ | o1, o2 | o1:nStart < o2:nStart } )
            //AAdd( aDates, { oCalInfo:nIdx, oCalInfo:dStart, oCalInfo:dEnd, oCalInfo:nStart, oCalInfo:nEnd, RTrim( oCalinfo:cSubject ), oCalInfo:nStatus } )
            AAdd( aDates, { oCalInfo:nStart, oCalInfo:nStart + oCalInfo:nEnd, RTrim( oCalinfo:cSubject ), oCalInfo:nStatus, oCalInfo:nIdx } )
            //XBrowse( aInfo )
            hb_HSET( hDays, cStrDay, aInfo )
         endif
      next
   endif

   if lView .and. !Empty( aDates )
      //XBrowse( aDates ) //hDays )
      //XBrowse( ::oCalex:oCalInfo:aCoords )
      if !Empty( ::oCalex:oCalInfo )
      //r  := ::oCalex:oCalInfo:aCoords[ 1 ]
      //c  := ::oCalex:oCalInfo:aCoords[ 2 ]

      //nH := Int( ::oCalex:oCalInfo:aCoords[ 3 ] / 2 ) - 1
      //nW := Int( ::oCalex:oCalInfo:aCoords[ 4 ] / 2 ) + 1
      nH := ::oCalex:oView:nRowHeight - 21
      nW := ::oCalex:oView:nColWidth  - 3

      APopupBrowse( aDates, ::oCalex:oWnd, r - 1, c - 9, nH, nW, ;
          { | o | ( o:lHeader := .F. ) }, 5 )
          //{ | o | ( o:cHeaders := { "
HourS", "HourE", "Subject", "St", "Id" } ) }, 1 )
          //{ | o | ( o:cHeaders := { "
Id", "Start", "End", "HourS", "HourE", "Subject", "St" } ) }, 1 )
      endif
   endif

Return dDate

//----------------------------------------------------------------------------//

METHOD BuildPop( nRow, nCol, oView, dDateFrom, dDateTo, nTimeFrom, nTimeTo ) CLASS SampleCalex

   local oMenu
   local oSelf    := Self
   local lNew     := oView:oCalex:oCalInfoSelected == NIL
   local oCalex   := oView:oCalex

   MENU oMenu POPUP
      MENUITEM If( lNew, "
New appointment", "Modify appointment" ) ;
         ACTION oSelf:BuildDialog( oView, dDateFrom, dDateTo, nTimeFrom, nTimeTo )
      SEPARATOR
      if ! lNew
         MENUITEM "
Delete appointment"  ACTION If( MsgYesNo( "Are you sure?" ), oView:oCalex:DelCalInfo(), )
      endif

      MENUITEM "
Today" ACTION ( oView:SetDate( date() ), If( oView:IsKindOf( "TWEEKVIEW" ),;
                                 oView:oCalex:SetWeekView(), oView:oCalex:SetDayView() ) )
      SEPARATOR

      MENUITEM  oItems[ 1 ] PROMPT "
5  minutes" CHECKED ACTION ( oSelf:ChangeView( oView,  5 ) )
      MENUITEM  oItems[ 2 ] PROMPT "
10 minutes" CHECKED ACTION ( oSelf:ChangeView( oView, 10 ) )
      MENUITEM  oItems[ 3 ] PROMPT "
15 minutes" CHECKED ACTION ( oSelf:ChangeView( oView, 15 ) )
      MENUITEM  oItems[ 4 ] PROMPT "
20 minutes" CHECKED ACTION ( oSelf:ChangeView( oView, 20 ) )
      MENUITEM  oItems[ 5 ] PROMPT "
30 minutes" CHECKED ACTION ( oSelf:ChangeView( oView, 30 ) )
      MENUITEM  oItems[ 6 ] PROMPT "
60 minutes" CHECKED ACTION ( oSelf:ChangeView( oView, 60 ) )

   ENDMENU
   ::ChangeCheck()

   ACTIVATE POPUP oMenu OF oView:oCalex AT nRow, nCol

Return nil

//----------------------------------------------------------------------------//

METHOD ChangeView( oView, nInterval ) CLASS SampleCalex

   local oCalex   := oView:oCalex
   local nPos     := AsCan( ::oCalex:aOldInterval, nInterval )

   if !Empty( nPos )
      oCalex:oWeekView:SetInterval( nInterval )
      oCalex:oWeekView:Refresh()
      oCalex:oDayView:SetInterval( nInterval )
      oCalex:oDayView:Refresh()
      ::ChangeCheck( nPos )
   endif

Return nil

//----------------------------------------------------------------------------//

METHOD ChangeCheck( nPos ) CLASS SampleCalex

   local x
   DEFAULT nPos  := 0

   if !Empty( nPos )
      aChecks[ nPos ] := ! aChecks[ nPos ]
      For x = 1 to Len( oItems )
         if nPos != x
            if aChecks[ x ]
               aChecks[ x ] := ! aChecks[ x ]
            endif
         else
            if ! aChecks[ x ]
               aChecks[ x ] := ! aChecks[ x ]
            endif
         endif
         oItems[ x ]:SetCheck( aChecks[ x ] )
      Next x
      if !Empty( ::oSelex )
         ::ChangeSelex()
      endif
   else
      For x = 1 to Len( oItems )
          oItems[ x ]:SetCheck( aChecks[ x ] )
      Next x
   endif
Return nil

//---------------------------------------------------//

METHOD DeleteInfo( oView, nIdx ) CLASS SampleCalex

   local cLastOrd  := ( ::cAlias )->( OrdSetFocus( "
idx" ) )

   ( ::cAlias )->( DBSeek( nIdx ) )
   ( ::cAlias )->( DBDelete() )
   ( ::cAlias )->( OrdSetFocus( cLastOrd ) )

RETURN NIL

//---------------------------------------------------//

METHOD ChangeDate( oDatePick ) CLASS SampleCalex

   ::oCalex:oView:SetDate( oDatePick:GetDate() )

   if ::oCalex:oView:IsKindOf( "
TMONTHVIEW" )
      ::oCalex:SetMonthView()
   elseif ::oCalex:oView:IsKindOf( "
TWEEKVIEW" )
      ::oCalex:SetWeekView()
   else
      ::oCalex:SetDayView()
   endif

RETURN NIL

//----------------------------------------------------------------------------//

METHOD ColorStatus( nType, dFecha ) CLASS SampleCalex

   local aGrad
   local nClrT     := CLR_BLACK
   DEFAULT nType   := 0

   DO CASE
      case nType = 1
         aGrad := { { 1, RGB(0x9a,0xcd,0x32), RGB(0x9a,0xcd,0x32) } }
         nClrT     := CLR_BLACK
      case nType = 2
         aGrad := { { 1, RGB(0x00,0x80,0xff) , RGB(0x00,0x80,0xff) } }
         nClrT     := CLR_BLACK
      case nType = 3
         aGrad := { { 1, RGB(0xff,0xff,0x80), RGB(0xff,0xff,0x80) } }
         nClrT     := CLR_BLACK
      case nType = 4
         aGrad := { { 1, RGB(0xff,0x00,0x00), RGB(0xff,0x00,0x00) } }
         nClrT := CLR_WHITE
      case nType = 5
         aGrad := { { 1, RGB(0xc0,0xc0,0xc0), RGB(0xc0,0xc0,0xc0) } }
         nClrT     := CLR_BLACK
      case nType = 6
         aGrad := { { 1, METRO_ORANGE, METRO_ORANGE } }
         nClrT     := CLR_BLACK
      case nType = 7
         aGrad := { { 1, METRO_LIME, METRO_LIME } }
         nClrT     := CLR_BLACK
      case nType = 8
         aGrad := { { 1, METRO_CRIMSON, METRO_CRIMSON } }
         nClrT     := CLR_BLACK
      case nType = 9
         aGrad := { { 1, METRO_OLIVE, METRO_OLIVE } }
         nClrT     := CLR_BLACK
      case nType = 10
         aGrad := { { 1, METRO_STEEL, METRO_STEEL } }
         nClrT     := CLR_BLUE
      Otherwise
         aGrad := { { 1, RGB(0x9a,0xcd,0x32), RGB(0x9a,0xcd,0x32) } }
  ENDCASE

return { aGrad, nClrT }

//----------------------------------------------------------------------------//

METHOD Imprime( dFecha ) CLASS SampleCalex

   local oRep
   local oFont1, oFont2, acor, oDlg1, oGet1, oGet2, oGet3, oBot1, oBot2
   local lRep    := .f.
   local dDesde
   local dHasta
   local mestado := 1

   DEFAULT dFecha := ::oCalex:dDateSelected

   dDesde := dFecha
   dHasta := dFecha

   // Defino los distintos tipos de letra
   DEFINE FONT oFont1 NAME "
ARIAL" SIZE 0,-10
   DEFINE FONT oFont2 NAME "
ARIAL" SIZE 0,-10 BOLD


   DEFINE DIALOG oDlg1 TITLE "
Informe de Citas" FROM 03,15 TO 13,70 //       OF oApp:oWnd

   @ 07, 05 SAY "
Estado:"               OF oDlg1 PIXEL SIZE 50,12 RIGHT
   @ 22, 05 SAY "
Desde Fecha:"          OF oDlg1 PIXEL SIZE 50,12 RIGHT
   @ 37, 05 SAY "
Hasta Fecha:"          OF oDlg1 PIXEL SIZE 50,12 RIGHT

   @ 05, 60 COMBOBOX oGet1 VAR mestado OF oDlg1 SIZE 60,12 PIXEL ;
      ITEMS { "
Todas", "Solo pendientes", "Solo Realizadas" }
   @ 20, 60 GET oGet2 VAR dDesde  OF oDlg1 PIXEL
   @ 35, 60 GET oGet3 VAR dHasta  OF oDlg1 PIXEL VALID ( dHasta >= dDesde )
   @ 50,40 BUTTON oBot1 PROMPT "
&Imprimir" OF oDlg1 SIZE 30,10 ;
           ACTION ( lRep := .t., oDlg1:End() ) PIXEL
   @ 50,90 BUTTON oBot2 PROMPT "
&Cancelar" OF oDlg1 SIZE 30,10 ;
           ACTION ( lRep := .f., oDlg1:End() ) PIXEL
   ACTIVATE DIALOG oDlg1 CENTER

   IF !lRep
      RETURN nil
   ENDIF

   REPORT oRep ;
       TITLE "
Citas de " + ALLTRIM( "TCalex" )  + " del " + DTOC( dDesde ) + " al " + DTOC( dHasta ) LEFT ;
       FONT  oFont1, oFont2 ;
       HEADER OemToAnsi( "
Sample01" ) RIGHT ;
       FOOTER "
Hoja: " + STR( oRep:nPage, 3 ) ,"Fecha: " + DToc( DATE() ) LEFT ;
       PREVIEW CAPTION "
Citas"
   COLUMN TITLE "
Id"      DATA ( ::cAlias )->idx     SIZE 07 FONT 1
   COLUMN TITLE "
Subject" DATA Left( ( ::cAlias )->subject, 40 ) SIZE 20 FONT 1
   COLUMN TITLE "
Fecha"   DATA ( ::cAlias )->dStart SIZE 08 FONT 2
   COLUMN TITLE "
Desde"   DATA TRANSFORM( ( ::cAlias )->start, "999:99" ) SIZE 05 FONT 1 RIGHT
   COLUMN TITLE "
Hasta"   DATA TRANSFORM( ( ::cAlias )->end,   "999:99" ) SIZE 05 FONT 1 RIGHT
   COLUMN TITLE "
Asunto"  DATA ( ::cAlias )->text    SIZE 25 FONT 1 MEMO
   //COLUMN TITLE "
Motivo"  DATA ( ::cAlias )->motivo  SIZE 20 FONT 1
   //COLUMN TITLE "
Alarma"  DATA IF( ( ::cAlias )->lRemember, "SI", "NO" ) SIZE 05 FONT 1
   //COLUMN TITLE "
Estado"  DATA IF( ( ::cAlias )->nStatus,"REALIZADA  ","PENDIENTE") SIZE 10 FONT 1

   // Digo que el titulo lo escriba con al letra 2
   oRep:oTitle:aFont[1] := {|| 2 }
   oRep:oTitle:aFont[1] := {|| 2 }
   oRep:bInit           := {|| ( ::cAlias )->( DbGoTop() ) }
   //oRep:bSkip := {|| ( ::cAlias )->Skip() }

   END REPORT

   ACTIVATE REPORT oRep //WHILE ( ::cAlias )->EOF() //;
      //ON INIT CursorArrow() ;
      //ON STARTPAGE oRep:SayBitmap( .1, .1, "
LOGO.BMP", .5, .5 )

   RELEASE oFont1
   RELEASE oFont2

RETURN nil

//----------------------------------------------------------------------------//

function APopupBrowse( aValue, oWnd, nRow, nCol, nH, nW, bInit, nColumn )

   local oDlg
   local oBrw
   local bGetValid
   local uOrgl
   local uRet
   local aPoint    := { nRow, nCol }
   local cFace     := "
Calibri"
   local nHFont    := -10
   local oFont

   DEFAULT oWnd    := GetWndDefault()
   DEFAULT nW      := 500
   DEFAULT nH      := 180
   DEFAULT nColumn := 1

   if !Empty( aValue )
      aPoint = ClientToScreen( oWnd:hWnd, aPoint )
      DEFINE FONT oFont        NAME cFace SIZE 0, nHFont
      DEFINE DIALOG oDlg OF oWnd STYLE WS_POPUP ;
         SIZE nW, nH

      ACTIVATE DIALOG oDlg NOWAIT ;
         ON INIT oDlg:SetPos( aPoint[ 1 ], aPoint[ 2 ] ) ;
         VALID ( oFont:End(), .T. )

      @ 0, 0 XBROWSE oBrw DATASOURCE aValue AUTOCOLS AUTOSORT ;
         SIZE oDlg:nWidth, oDlg:nHeight OF oDlg PIXEL NOBORDER FONT oFont

      WITH OBJECT oBrw
         :lRecordSelector  := .F.
         :lHScroll         := .F.
         :lFlatStyle       := .T.
         :lFastDraw        := .T.
         :AutoFit()
         :bClrStd    := { || { ColorStatus( oBrw:aRow[ 4 ] )[ 2 ], ColorStatus( oBrw:aRow[ 4 ] )[ 1 ] } }

         if bInit != nil
            Eval( bInit, oBrw )
         endif
         :CreateFromCode()

         :PostMsg( WM_SETFOCUS )
         :bKeyDown   := { | nKey | If( nKey == VK_RETURN, ( Eval( oBrw:bChange ), oDlg:End() ), ;
                                   If( nKey == VK_ESCAPE, oDlg:End(), ) ) }
         :bLDblClick := { | r, c | ( oDlg:End() ) }
         :bChange    := { || uRet := oBrw:aCols[ nColumn ]:Value }
         :bLButtonUp := { | nRow, nCol | Eval( oBrw:bChange ) }
         //:Seek( oGet:GetText() )
      END
   endif

return uRet

//----------------------------------------------------------------------------//

Function ColorStatus( nType, dFecha )

   local aGrad
   local nClrT     := CLR_BLACK
   DEFAULT nType   := 0

   DO CASE
      case nType = 1
         aGrad := { { 1, RGB(0x9a,0xcd,0x32), RGB(0x9a,0xcd,0x32) } }
         nClrT     := CLR_BLACK
      case nType = 2
         aGrad := { { 1, RGB(0x00,0x80,0xff) , RGB(0x00,0x80,0xff) } }
         nClrT     := CLR_BLACK
      case nType = 3
         aGrad := { { 1, RGB(0xff,0xff,0x80), RGB(0xff,0xff,0x80) } }
         nClrT     := CLR_BLACK
      case nType = 4
         aGrad := { { 1, RGB(0xff,0x00,0x00), RGB(0xff,0x00,0x00) } }
         nClrT := CLR_WHITE
      case nType = 5
         aGrad := { { 1, RGB(0xc0,0xc0,0xc0), RGB(0xc0,0xc0,0xc0) } }
         nClrT     := CLR_BLACK
      case nType = 6
         aGrad := { { 1, METRO_ORANGE, METRO_ORANGE } }
         nClrT     := CLR_BLACK
      case nType = 7
         aGrad := { { 1, METRO_LIME, METRO_LIME } }
         nClrT     := CLR_BLACK
      case nType = 8
         aGrad := { { 1, METRO_CRIMSON, METRO_CRIMSON } }
         nClrT     := CLR_BLACK
      case nType = 9
         aGrad := { { 1, METRO_OLIVE, METRO_OLIVE } }
         nClrT     := CLR_BLACK
      case nType = 10
         aGrad := { { 1, METRO_STEEL, METRO_STEEL } }
         nClrT     := CLR_BLUE
      Otherwise
         aGrad := { { 1, RGB(0x9a,0xcd,0x32), RGB(0x9a,0xcd,0x32) } }
  ENDCASE

return { aGrad, nClrT }

//----------------------------------------------------------------------------//
CLASS TXData from TDatabase
     DATA cDbfPath   init "
.\DATA\"
  ENDCLASS

   CLASS TCitas from TXData
   METHOD New()
ENDCLASS

METHOD New( lShared ) CLASS TCitas
   Default lShared := .t.
   ::super:New(,::cDbfPath + "
Citas" ,"DBFCDX", lShared)
   if ::use()
      ::setOrder(1)
      ::gotop()
   endif
RETURN Sel





after the adding a new record I have thid error
Code: Select all  Expand view
  Error occurred at: 07/11/2024, 10:23:05
   Error description: Error BASE/2001  Alias inesistenteC:\Work\errori\Calex\DATA\Citas.dbf: TCITAS:FIELDGET
   Args:
     [   1] = O   TCITAS

Stack Calls
===========
   Called from: ../../../tobject.prg => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TCITAS:ERROR( 0 )
   Called from: .\source\classes\database.prg => TCITAS:FIELDGET( 950 )
   Called from: .\source\classes\database.prg => TCITAS:DSTART( 1624 )
   Called from: sample01.prg => SAMPLECALEX:ADDDATES( 243 )
   Called from: sample01.prg => SAMPLECALEX:BUILDDIALOG( 529 )
 


the function adddates is changed in this mode

Code: Select all  Expand view
METHOD AddDates( dStart, dEnd, nStart, nEnd ) CLASS SampleCalex

   local dDate
   local aGrad

   DEFAULT dStart := CToD( "  /  /  " )
   DEFAULT dEnd   := CToD( "  /  /  " )
   DEFAULT nStart := 0
   DEFAULT nEnd   := 0

   //Clear scopes
  * ( ::cAlias )->( OrdSetFocus( "fecha" ) )
  * ( ::cAlias )->( OrdScope( TOPSCOPE, NIL ) )
 *  ( ::cAlias )->( OrdScope( BOTTOMSCOPE, NIL ) )

       ::oDbf:setorder("fecha")
       ::oDbf:SetScope( TOPSCOPE, NIL )
       ::oDbf:SetScope( BOTTOMSCOPE, NIL )

   //Set New scopes
  * ( ::cAlias )->( DBGoTop() )
  * ( ::cAlias )->( OrdScope( TOPSCOPE,    DToS( dStart ) + Str( nStart * 100, 4 ) ) )
  * ( ::cAlias )->( OrdScope( BOTTOMSCOPE, DToS( dEnd )   + Str( nEnd * 100, 4 ) ) )
  * ( ::cAlias )->( DBGoTop() )

          ::oDbf:gotop()
          ::oDbf:SetScope( TOPSCOPE, DToS( dStart ) + Str( nStart * 100, 4 ) )
          ::oDbf:SetScope( BOTTOMSCOPE,DToS( dEnd )   + Str( nEnd * 100, 4 ) )
          ::oDbf:gotop()

   ::oCalex:Reset()
 *  DO WHILE ! ( ::cAlias )->( Eof() )
   DO WHILE ! ::oDbf:Eof()
      //nStart, nEnd, dStart, dEnd, cText, cSubject, nIdx, lND, lAplicado, lBloqueoT, aGrad, nClrT, nStatus
      aGrad   := ::ColorStatus( ::oDbf:nStatus, ::oDbf:DSTART )
      ::oCalex:LoadDates( ::oDbf:START,;
                          ::oDbf:END, ;
                          ::oDbf:DSTART, ;
                          ::oDbf:DEND, ;
                          ::oDbf:TEXT, ;
                          ::oDbf:SUBJECT,;
                          ::oDbf:IDX, , , , ;
                          aGrad[ 1 ], ;
                          aGrad[ 2 ], ;
                          ::oDbf:nStatus )
                   ::oDbf:Skip()
   ENDDO

RETURN nil
 




I use tdatabase
Code: Select all  Expand view

CLASS TXData from TDatabase
     DATA cDbfPath   init ".\DATA\"
  ENDCLASS

   CLASS TCitas from TXData
   METHOD New()
ENDCLASS

METHOD New( lShared ) CLASS TCitas
   Default lShared := .t.
   ::super:New(,::cDbfPath + "
Citas" ,"DBFCDX", lShared)
   if ::use()
      ::setOrder(1)
      ::gotop()
   endif
RETURN Self


I not change the index

How I can resolve ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7033
Joined: Thu Oct 18, 2012 7:17 pm

Re: Calex - sample01

Postby Silvio.Falconi » Thu Jul 11, 2024 2:18 pm

Any solution please ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7033
Joined: Thu Oct 18, 2012 7:17 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 91 guests

cron