Planning reservas hotel

User avatar
Patricio Avalos Aguirre
Posts: 1060
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile
Contact:

Re: Planning reservas hotel

Post by Patricio Avalos Aguirre »

Hola Daniel

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

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
User avatar
rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 am
Location: San Nicolás - BA - ARGENTINA

Re: Planning reservas hotel

Post by 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 :D
User avatar
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita
Contact:

Re: Planning reservas hotel

Post by 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
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5N ... rc=global9
User avatar
ruben Dario
Posts: 1070
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia

Re: Planning reservas hotel

Post by 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.
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Francisco Horta
Posts: 845
Joined: Sun Oct 09, 2005 5:36 pm
Location: la laguna, mexico.

Re: Planning reservas hotel

Post by Francisco Horta »

Daniel,

Pudieras adecuar TCalex para que funcione el arrastre? seria excelente..
Gracias
Paco
____________________
Paco
User avatar
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita
Contact:

Re: Planning reservas hotel

Post by Daniel Garcia-Gil »

Saludos

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

http://sitasoft.net/fivewin/samples/plann2.zip
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5N ... rc=global9
User avatar
Patricio Avalos Aguirre
Posts: 1060
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile
Contact:

Re: Planning reservas hotel

Post by Patricio Avalos Aguirre »

Hola

Jugando un poco se produjo error

Code: Select all | Expand

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   1Stack 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

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
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
hmpaquito
Posts: 1482
Joined: Thu Oct 30, 2008 2:37 pm

Re: Planning reservas hotel

Post by 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

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
User avatar
FranciscoA
Posts: 2164
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Planning reservas hotel

Post by 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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita
Contact:

Re: Planning reservas hotel

Post by 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
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5N ... rc=global9
User avatar
rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 am
Location: San Nicolás - BA - ARGENTINA

Re: Planning reservas hotel

Post by 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 :D
Databaselab2002
Posts: 142
Joined: Sun Oct 09, 2005 1:36 am

Re: Planning reservas hotel

Post by Databaselab2002 »

Estimado Daniel,

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

Saludos.
Fabian
User avatar
Silvio.Falconi
Posts: 7143
Joined: Thu Oct 18, 2012 7:17 pm
Been thanked: 1 time

Re: Planning reservas hotel

Post by 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?


Image

Code: Select all | Expand

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   0Stack 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/2013Check Out: 02/27/2013, C:\work\errori\plann3\sample03.ExeVariables 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   MAINLinked RDDs===========   DBF   DBFFPT   DBFNTX   DBFBLOB   DBFCDXDataBases 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 useClasses 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 TREG32Memory Analysis===============      145 Static variables   Dynamic memory consume:      Actual  Value:          0 bytes      Highest Value:          0 bytes 
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour March-April 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
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita
Contact:

Re: Planning reservas hotel

Post by Daniel Garcia-Gil »

Es problema de compatibilidad de xharbour/Harbour

enviado a tu email la solucion
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5N ... rc=global9
User avatar
Silvio.Falconi
Posts: 7143
Joined: Thu Oct 18, 2012 7:17 pm
Been thanked: 1 time

Re: Planning reservas hotel

Post by Silvio.Falconi »

GOOD NOW!!

Image
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour March-April 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
Post Reply