Planning reservas hotel

[Patricio Avalos Aguirre]

Hola Daniel

Revisando esta muy buenoo, como decia un colega puede servir para cualquier proyecto, muy interesante

[rolando]

Daniel,

Después de unas pruebas le descubrí un error de funcionamiento a la clase y, es que al tratar de arrastrar una reserva a otra habitación, cuando se pasa sobre otra reserva una de las dos queda oculta.

Lo que relato puede verse en un video (autoexecutable) que subí a https://www.box.com/s/p2103q9qbdazn363ecx3

Saludos

Rolando

[Daniel Garcia-Gil]

Hola

Si, esto es solo un ejemplo, pero control de eso queda por parte del programador, actuamente estoy trabajando en unas mejoras para el arrastre, posiblemente controle esa situacion, pero por los momentos es control del programador que al pasar por una reserva existente no permita moverla

[ruben Dario]

Hola Daniel,

Muy interesante tu clase.
Veo que me puede servir, el caso mio es el siguiente
Tengo n numero de ordenes de fabricacion.
asi 1,2,3,4

La idea es programar la orden dando la Fecha de Inicio y Fecha Final o Hora Final,

Gracias por tu aporte.

[Francisco Horta]

Daniel,

Pudieras adecuar TCalex para que funcione el arrastre? seria excelente..
Gracias
Paco

[Daniel Garcia-Gil]

Saludos

aqui una mejora en el arrastre de las reservas...

http://sitasoft.net/fivewin/samples/plann2.zip

[Patricio Avalos Aguirre]

Hola

Jugando un poco se produjo error

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\PASO\tplan\prueba.exe (32 bits)
   Size: 2,243,584 bytes
   Compiler version: Harbour 3.2.0dev (Rev. 18754)
   FiveWin  Version: FWH 13.02
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 2 mins 33 secs
   Error occurred at: 02/27/2013, 18:03:11
   Error description: Error BASE/1132  Error de rango: acceso al array
   Args:
     [   1] = A   { ... }
     [   2] = N   1

Stack Calls
===========
   Called from: .\source\prg\tplann.prg => TPLANNING:RBUTTONUP( 1128 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TPLANNING:HANDLEEVENT( 1724 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3178 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 991 )
   Called from: .\source\prg\sample01.prg => SAMPLEPLAN:NEW( 86 )
   Called from: .\source\prg\sample01.prg => MAIN( 25 )

System
======
   CPU type: Intel(R) Core(TM) i3 CPU         540  @ 3.07GHz 75 Mhz
   Hardware memory: 3832 megs
 

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\Users\pavalos\AppData\Local\Temp\Rar$EX64.016\prueba.exe (32 bits)
   Size: 2,243,584 bytes
   Compiler version: Harbour 3.2.0dev (Rev. 18754)
   FiveWin  Version: FWH 13.02
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 41 secs
   Error occurred at: 02/27/2013, 18:08:13
   Error description: Error BASE/1005  Message not found: NIL:_CARGO
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => NIL:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => NIL:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => NIL:_CARGO( 0 )
   Called from: .\source\prg\sample01.prg => SAMPLEPLAN:MOVERESERVATION( 391 )
   Called from: .\source\prg\sample01.prg => (b)SAMPLEPLAN_BUILDPLANNING( 218 )
   Called from: .\source\prg\tplann.prg => TPLANNING:LBUTTONUP( 664 )
   Called from: .\source\classes\CONTROL.PRG => TPLANNING:HANDLEEVENT( 1714 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3178 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 991 )
   Called from: .\source\prg\sample01.prg => SAMPLEPLAN:NEW( 86 )
   Called from: .\source\prg\sample01.prg => MAIN( 25 )

System
======

El ultimo sucede cuando se elimina una reserva y presiona dblclick en un espacio en blanco

[hmpaquito]

Daniel,


Qué bonita está la clase.

Mira, se produce un error cuando se arrastra una reserva a la columna de rooms.

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\prueba.exe (32 bits)
   Size: 2,243,584 bytes
   Compiler version: Harbour 3.2.0dev (Rev. 18754)
   FiveWin  Version: FWH 13.02
   Windows version: 5.1, Build 2600 Service Pack 3

   Time from start: 0 hours 0 mins 14 secs
   Error occurred at: 02/28/2013, 13:19:49
   Error description: Error BASE/1005  Message not found: NIL:_CARGO
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => NIL:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => NIL:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => NIL:_CARGO( 0 )
   Called from: .\source\prg\sample01.prg => SAMPLEPLAN:MOVERESERVATION( 391 )
   Called from: .\source\prg\sample01.prg => (b)SAMPLEPLAN_BUILDPLANNING( 218 )
   Called from: .\source\prg\tplann.prg => TPLANNING:LBUTTONUP( 664 )
   Called from: .\source\classes\CONTROL.PRG => TPLANNING:HANDLEEVENT( 1714 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3178 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 991 )
   Called from: .\source\prg\sample01.prg => SAMPLEPLAN:NEW( 86 )
   Called from: .\source\prg\sample01.prg => MAIN( 25 )
 

Saludos

[FranciscoA]

Hola Daniel,
Yo tambien te solicito la clase referida para comenzar un proyecto de Planing de Hotel. ¿Puedo contar con ella?
Email: falegria230349@yahoo.es

Saludos.

[Daniel Garcia-Gil]

Saludos

Nueva version:

incluye la posibilidad de agregar un cursor para el arrastre, mejorado el arrastre de las reservas, no permite arrastrar una reserva si existe existe alguna ocupacion

http://sitasoft.net/fivewin/samples/plann3.zip

[rolando]

Daniel,

Está buenísima. Muchas gracias.

Pero, uno siempre quiere más. Me interesaría ver la forma de ampliar una reserva en forma visual, es decir tomando cualquier reserva y, al clickear sobre sus bordes poder ampliarla ya sea para atrás o para adelante en el tiempo (algo así como se hace con la clase tGantt).

No se si se puede hacer con tu fabulosa clase, sólo es una idea que creo no está a mi alcance implementar.

Saludos y Gracias.

Rolando

[Databaselab2002]

Estimado Daniel,

Podrias enviarme la clase referida a databaselab2002@yahoo.com.ar
Te agradezco muchisimo

Saludos.
Fabian

[Silvio.Falconi]

como se describe en privado enviar el error a este último ejemplo
Este error se muestra cuando traté de mover una reserva en otro
tal vez es un problema de FWH o xHarbour?

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\work\errori\plann3\sample03.Exe (32 bits)
   Size: 1,883,136 bytes
   Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715)
   FiveWin  Version: FWHX 12.03
   Windows version: 5.1, Build 2600 Service Pack 2

   Time from start: 0 hours 0 mins 3 secs
   Error occurred at: 03/01/2013, 10:09:12
   Error description: Error BASE/1089  Non-integer parameters: HB_BITRESET
   Args:
     [   1] = N   15.00
     [   2] = N   0

Stack Calls
===========
   Called from:  => HB_BITSHIFT( 0 )
   Called from: tplann.prg => TPLANNING:DATADROPAVAILABLE( 402 )
   Called from: tplann.prg => TPLANNING:PAINTDATA( 1001 )
   Called from: tplann.prg => TPLANNING:PAINTDATES( 1104 )
   Called from: tplann.prg => TPLANNING:PAINT( 863 )
   Called from: tplann.prg => (b)TPLANNING:TPLANNING( 125 )
   Called from:  => TPLANNING:DISPLAY( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1666 )
   Called from: tplann.prg => TPLANNING:HANDLEEVENT( 641 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3153 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 980 )
   Called from: sample03.prg => SAMPLEPLAN:NEW( 86 )
   Called from: sample03.prg => MAIN( 25 )

System
======
   CPU type: AMD Athlon(tm) 64 X2 Dual Core Processor 5600+ 2900 Mhz
   Hardware memory: 3072 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 13
      1 , C:\Programmi\Mozilla Firefox\firefox.exe
      2 , C:\Programmi\Mozilla Firefox\plugin-container.exe
      3 , C:\Programmi\OpenOffice.org 3\program\soffice.bin
      4 , C:\WINDOWS\Explorer.EXE
      5 , C:\WINDOWS\RTHDCPL.EXE
      6 , C:\work\xMate\xMate.Exe
      7 ATI video bios poller client, C:\WINDOWS\system32\Ati2evxx.exe
      8 CDirectoryChangeWatcherHelperWindow, C:\Programmi\File comuni\Ahead\Lib\NMBgMonitor.exe
      9 CiceroUIWndFrame, C:\WINDOWS\system32\ctfmon.exe
     10 DirectDBListenWndProc, C:\Programmi\File comuni\Ahead\Lib\NMIndexStoreSvr.exe
     11 DropboxTrayIcon, C:\Documents and Settings\Administrator\Dati applicazioni\Dropbox\bin\Dropbox.exe
     12 HPSISVC, C:\WINDOWS\system32\HPSIsvc.exe
     13 Room     : Room 05                      
Guest    : cccccccccccc                  
Check In : 02/24/2013
Check Out: 02/27/2013, C:\work\errori\plann3\sample03.Exe

Variables in use
================
   Procedure     Type   Value
   ==========================
   HB_BITSHIFT
     Param   1:    N    15.00
     Param   2:    N    0
     Local   1:    U    
     Local   2:    U    
   TPLANNING:DATADROPAVAILABLE
     Param   1:    C    "04  "
     Param   2:    O    Class: TPDATA
     Local   1:    O    Class: TPLANNING
     Local   2:    L    .T.
     Local   3:    H    {=>}
     Local   4:    O    Class: TPDATA
     Local   5:    N    0
     Local   6:    N    15.00
     Local   7:    U    
     Local   8:    U    
     Local   9:    U    
     Local  10:    U    
   TPLANNING:PAINTDATA
     Param   1:    N    50401708
     Local   1:    O    Class: TPLANNING
     Local   2:    U    
     Local   3:    H    {=>}
     Local   4:    U    
     Local   5:    U    
     Local   6:    U    
     Local   7:    N    1
     Local   8:    N    25.46
     Local   9:    N    26
     Local  10:    U    
     Local  11:    N    186
     Local  12:    N    1
     Local  13:    N    4
     Local  14:    N    3.00
     Local  15:    N    64
     Local  16:    N    195.00
     Local  17:    N    132
     Local  18:    N    327.00
     Local  19:    A    Len:    1
     Local  20:    N    0
     Local  21:    L    .F.
     Local  22:    L    .F.
     Local  23:    H    {=>}
   TPLANNING:PAINTDATES
     Param   1:    N    50401708
     Local   1:    O    Class: TPLANNING
     Local   2:    N    11
     Local   3:    N    26
     Local   4:    N    -602927209
     Local   5:    N    3.00
     Local   6:    N    64
     Local   7:    N    100
     Local   8:    U    
     Local   9:    U    
     Local  10:    C    "Room 25                       "
     Local  11:    N    666
     Local  12:    N    1
     Local  13:    N    25.46
     Local  14:    U    
     Local  15:    U    
     Local  16:    U    
     Local  17:    U    
   TPLANNING:PAINT
     Local   1:    O    Class: TPLANNING
     Local   2:    A    Len:    5
     Local   3:    A    Len:    4
     Local   4:    N    50401708
     Local   5:    N    807
     Local   6:    N    623
   (b)TPLANNING:TPLANNING
     Param   1:    O    Class: TPLANNING
   TPLANNING:DISPLAY
   TCONTROL:HANDLEEVENT
     Param   1:    N    15
     Param   2:    N    0
     Param   3:    N    0
     Local   1:    O    Class: TPLANNING
     Local   2:    U    
   TPLANNING:HANDLEEVENT
     Param   1:    N    15
     Param   2:    N    0
     Param   3:    N    0
     Local   1:    O    Class: TPLANNING
   _FWH
     Param   1:    N    0
     Param   2:    N    15
     Param   3:    N    0
     Param   4:    N    0
     Param   5:    N    2
     Local   1:    O    Class: TPLANNING
   WINRUN
     Param   1:    N    5899140
   TWINDOW:ACTIVATE
     Param   1:    C    "NORMAL"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    U    
     Param   6:    U    
     Param   7:    U    
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    U    
     Param  18:    U    
     Param  19:    U    
     Local   1:    O    Class: TWINDOW
     Local   2:    U    
     Local   3:    U    
   SAMPLEPLAN:NEW
     Local   1:    O    Class: SAMPLEPLAN
     Local   2:    O    Class: TMENU
     Local   3:    O    Class: TBRUSH
     Local   4:    O    Class: SAMPLEPLAN
   MAIN

Linked RDDs
===========
   DBF
   DBFFPT
   DBFNTX
   DBFBLOB
   DBFCDX

DataBases in use
================

  1:    ROOMS                              RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          5           30      .F.   .F.

     Indexes in use                        TagName
        => ROOMS->ID                          ROOMS_ID

     Relations in use

  2: => RESERVA                            RddName: DBFCDX
     ==============================
     RecNo    RecCount    BOF   EOF
          3            2      .F.   .T.

     Indexes in use                        TagName
        => RESERVA->ROOMS_ID + DToS( RESERVA->ROOM_IN

     Relations in use

Classes in use:
===============
     1 ERROR
     2 HASHENTRY
     3 HBCLASS
     4 HBOBJECT
     5 SAMPLEPLAN
     6 TMENU
     7 TBRUSH
     8 TWINDOW
     9 TFONT
    10 TCONTROL
    11 TPLANNING
    12 TSCROLLBAR
    13 TDATEPICK
    14 TPDATA
    15 TRECT
    16 TSTRUCT
    17 TREG32

Memory Analysis
===============
      145 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes

 

[Daniel Garcia-Gil]

Es problema de compatibilidad de xharbour/Harbour

enviado a tu email la solucion

[Silvio.Falconi]

GOOD NOW!!