I got an error with using Editbaserecord. (I have tested maria15.prg and there is not problem)
- Code: Select all Expand view
- Application
===========
Path and name: C:\PrgW_SQL\Icra\IcraW.exe (32 bits)
Size: ********* bytes
Compiler version: Harbour 3.2.0dev (r1904111533)
FiveWin version: FWH 20.02
C compiler version: Microsoft Visual C++ 19.20.27508 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 27 secs
Error occurred at: 31/03/2020, 19:57:12
Error description: Error BASE/1081 Argument error: +
Args:
[ 1] = C SET @@TRANSACTION_ISOLATION = '
[ 2] = U
Stack Calls
===========
Called from: => CHARACTER:__OPPLUS( 0 )
Called from: .\source\internal\FWMARIA.PRG => FWMARIACONNECTION:INTRANSACTION( 6478 )
Called from: .\source\internal\FWMARIA.PRG => (b)FWMARIACONNECTION( 5644 )
Called from: .\source\internal\FWMARIA.PRG => FWMARIACONNECTION:BEGINTRANSACTION( 0 )
Called from: .\source\internal\FWMARIA.PRG => FWMARIAROWSET:EDITBASERECORD( 4888 )
Called from: .\TOb_Browse1_SQL.prg => TYK_LIST_SQL:GO_DETAY( 835 )
Called from: .\TOb_Browse1_SQL.prg => (b)TYK_LIST_SQL_NEW( 500 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 705 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 991 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1817 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2041 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\TOb_Browse1_SQL.prg => TYK_LIST_SQL:NEW( 561 )
Called from: .\Param_Ortak.prg => PARAM_SMSSABLON( 585 )
Called from: .\Master.prg => (b)DEFINE_RIBBON( 1937 )
Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE( 1599 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONUP( 883 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1817 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:HANDLEEVENT( 1575 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3559 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1097 )
Called from: .\TApplication.prg => TAPPLICATION:ACTIVATE( 1232 )
Called from: .\Master.prg => MAIN( 329 )
System
======
CPU type: Intel(R) Core(TM) i7-8750H CPU @ 2.20GHz 2208 Mhz
Hardware memory: 16268 megs
Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %
Windows total applications running: 7
1 ,
2 , C:\PrgW_SQL\Icra\IcraW.exe
3 , C:\Windows\System32\shcore.dll
4 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.18362.720_none_2e6bec9
5 DDE Server Window, C:\Windows\System32\ole32.dll
6 G, C:\Windows\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.18362.720_none_5f56df818223263
7 HideForm, C:\PrgW_SQL\Icra\FrSystH.dll
Variables in use
================
Procedure Type Value
==========================
CHARACTER:__OPPLUS
Param 1: O Class: ERROR
FWMARIACONNECTION:INTRANSACTION
Param 1: U
Local 1: U
Local 2: U
(b)FWMARIACONNECTION
Local 1: L .F.
Local 2: C "@@TRANSACTION_ISOLATION"
Local 3: U
Local 4: L .F.
Local 5: L .F.
Local 6: S
Local 7: O Class: FWMARIACONNECTION
Local 8: C "SET @@TRANSACTION_ISOLATION = '"
Local 9: U
FWMARIACONNECTION:BEGINTRANSACTION
Param 1: O Class: FWMARIACONNECTION
FWMARIAROWSET:EDITBASERECORD
TYK_LIST_SQL:GO_DETAY
Param 1: C "*"
Param 2: L .F.
Param 3: B {|| ... }
Param 4: O Class: TXBROWSE
Param 5: L .T.
Local 1: O Class: FWMARIAROWSET
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: C "SELECT * FROM `smssblon`"
Local 8: C " WHERE `SBL_ID` = 1"
Local 9: U
Local 10: C "50"
Local 11: L .F.
Local 12: L .F.
(b)TYK_LIST_SQL_NEW
Local 1: U
Local 2: O Class: TYK_LIST_SQL
Local 3: C "SBL_ID"
Local 4: N 1
TBTNBMP:CLICK
Param 1: O Class: TBTNBMP
TBTNBMP:LBUTTONUP
TCONTROL:HANDLEEVENT
Param 1: N 15
Param 2: N 49
Param 3: N 0
Local 1: L .T.
Local 2: N 0
Local 3: S
TBTNBMP:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 983089
Local 1: U
_FWH
Param 1: N 514
Param 2: N 0
Param 3: N 983089
DIALOGBOXINDIRECT
Param 1: N 983089
Param 2: N 514
Param 3: N 0
Param 4: N 983089
Param 5: N 161
Local 1: O Class: TBTNBMP
TDIALOG:ACTIVATE
Param 1: N 13172736
Param 2: C " Ï ‘ A B ¡ S M S M e s a j Ì a b l o n l a r ² ±P £Êı T X B R O W S E P Ü 2 ş T B T N B M P & E k l e P < Ü 2 ÿ T B T N B M P D & e i _t i r P s Ü 2 T B T N B M P & S i l P s Ü 2 T B T N B M P & B u l ( F 3 ) P œÿœÿ2 T B T N B M P E & x t r a P ª Ü
T B T N B M P C S P Ü Ü 2 T B T N B M P & Ç 1k 1_ "
Param 3: N 1381656
Param 4: O Class: TDIALOG
TYK_LIST_SQL:NEW
Param 1: U
Param 2: B {|| ... }
Param 3: U
Param 4: L .F.
Param 5: B {|| ... }
Param 6: L .T.
Param 7: B {|| ... }
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: L .F.
Param 13: O Class: TDIALOG
Param 14: U
Local 1: N 1381656
Local 2: S
Local 3: O Class: TDIALOG
PARAM_SMSSABLON
Param 1: C "SMS_SABLON"
Param 2: O Class: TMYTABLE_SQL
Param 3: A Len: 1
Param 4: A Len: 1
Param 5: C "R"
Param 6: U
Param 7: U
Param 8: N 1
Param 9: A Len: 5
Param 10: A Len: 0
Param 11: A Len: 2
Param 12: C "SMS_SABLON"
Param 13: C ""
Param 14: A Len: 0
Param 15: C "SIL_SMS_SABLON"
Param 16: C "BODY_SMS_SABLON"
Param 17: A Len: 0
Param 18: U
Param 19: L .F.
Param 20: C "E&xtra"
Param 21: O Class: TAPPLICATION
Param 22: O Class: TFONT
Param 23: O Class: TFONT
Param 24: L .F.
Param 25: A Len: 0
Param 26: A Len: 0
Param 27: A Len: 0
Param 28: C ""
Param 29: L .F.
Param 30: L .T.
Param 31: O Class: TWINDOW
Param 32: U
Param 33: C ""
Param 34: A Len: 0
Local 1: C ""
Local 2: C ""
Local 3: O Class: TYK_LIST_SQL
Local 4: N 1
Local 5: O Class: TDIALOG
Local 6: N 2
Local 7: O Class: TYK_LIST_SQL
(b)DEFINE_RIBBON
Local 1: U
TMENU:ACTIVATE
Param 1: O Class: TMENUITEM
TRBTN:LBUTTONUP
Param 1: N 85
Param 2: N 3
Param 3: O Class: TRBGROUP
Param 4: L .F.
Local 1: N 0
Local 2: A Len: 2
TCONTROL:HANDLEEVENT
Param 1: N 49
Param 2: N 40
Param 3: N 0
Local 1: L .T.
Local 2: L .F.
Local 3: S
TRBTN:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 3211304
Local 1: U
_FWH
Param 1: N 514
Param 2: N 0
Param 3: N 3211304
WINRUN
Param 1: N 3211304
Param 2: N 514
Param 3: N 0
Param 4: N 3211304
Param 5: N 59
Local 1: O Class: TRBTN
TWINDOW:ACTIVATE
Param 1: N 1381656
TAPPLICATION:ACTIVATE
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: B {|| ... }
Param 6: U
Param 7: B {|| ... }
Param 8: B {|| ... }
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: B {|| ... }
Param 18: U
Param 19: U
Param 20: L .F.
Local 1: O Class: TWINDOW
Local 2: U
Local 3: U
MAIN
Local 1: O Class: TAPPLICATION
Local 2: N 10526880
Local 3: O Class: TFONT
Local 4: C ""
Local 5: N 870
Local 6: N 599
Local 7: N 1024
Local 8: N 768
Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFCDX
DBFNTX
DataBases in use
================
Classes in use:
===============
1 ERROR
2 HBCLASS
3 HBOBJECT
4 CHARACTER
5 NUMERIC
6 ARRAY
7 SCALAROBJECT
8 HASH
9 HASH
10 BLOCK
11 TWINDOW
12 TCONTROL
13 TGET
14 TFONT
15 TCURSOR
16 TAPPLICATION
17 TPUBLIC
18 TMYDATABASE
19 TMYDATABASE_SQL
20 FWMARIACONNECTION
21 TMYTABLE
22 TMYTABLE_SQL
23 TOB_PARAMETRE
24 TCERCEVE
25 FWROWSET
26 FWMARIAROWSET
27 TFIELD
28 TFIELDS
29 FRREPORTMANAGER
30 TMYFASTREPORT
31 FRPRINTOPTIONS
32 FRPREVIEWOPTIONS
33 FRENGINEOPTIONS
34 FRREPORTOPTIONS
35 TDIALOG
36 TBRUSH
37 TRECT
38 TIPCLIENT
39 TIPCLIENTHTTP
40 TURL
41 TICON
42 TMENU
43 TREG32
44 TMENUITEM
45 TRIBBONBAR
46 TRPANEL
47 TRBGROUP
48 TRBTN
49 TMSGBAR
50 TMSGITEM
51 TTIMER
52 TXIMAGE
53 TSAY
54 TGROUP
55 GET
56 TCLIPGET
57 TBTNBMP
58 TCLIPBOARD
59 TDSAY
60 TPANEL
61 TSCROLLMSG
62 TYK_CORE_SQL
63 TYK_LIST_SQL
64 TXBROWSE
65 TXBRWCOLUMN
66 TSCROLLBAR
67 TBAR
68 TSTRUCT
Memory Analysis
===============
961 Static variables
Dynamic memory consume:
Actual Value: 14286848 bytes
Highest Value: 14286848 bytes
I probably must have made a mistake. but since Fwmaria.prg is an internal program, I cannot detect the error.
TYK_LIST_SQL:GO_DETAY( 835 )
- Code: Select all Expand view
- ::oRs_View:EditBaseRecord( nil, .f., { |oRec| ::GO_DETAYS(lMoveState, oRec ) }, ::oBrw, .T. )
Can you help me?