Re: Planning reservas hotel
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Hola Daniel
Revisando esta muy buenoo, como decia un colega puede servir para cualquier proyecto, muy interesante
Revisando esta muy buenoo, como decia un colega puede servir para cualquier proyecto, muy interesante
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
https://forums.fivetechsupport.com/viewtopic.php?f=6&t=25728
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
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
======
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 )
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