forked from petrowsky/fmpfunctions
-
Notifications
You must be signed in to change notification settings - Fork 1
/
debug.fmfn
51 lines (48 loc) · 1.78 KB
/
debug.fmfn
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
/*
* =====================================================
* debug()
*
* RETURNS: (mixed) A list of informative values
* about the current FMP environment.
* DEPENDANCIES: developer() function.
* NOTES: While testing non developer accounts you
* may need to remove off if ( developer )
* =====================================================
*/
if ( developer;
Let ( [
// Variables
$$DEBUG = List (
"App Version = " & Abs ( Get ( ApplicationVersion ) );
"Host Name = " & Get ( HostName );
"Host IP = " & Get ( HostIPAddress );
"Location = " & Get ( FilePath );
"Account = " & Get ( AccountName );
"-----------------------------------";
"Script Param = " & Get ( ScriptParameter );
"Script Result = " & Get ( ScriptResult );
"-----------------------------------";
"Last Error = " & Get ( LastError );
"Last ODBC = " & Get ( LastODBCError );
"-----------------------------------";
"Layout = " & Get ( LayoutName );
"Layout Table = " & Get ( LayoutTableName );
"-----------------------------------";
"Open Records = " & Get ( RecordOpenCount );
"Record Modified = " & Get ( RecordModificationCount );
"-----------------------------------";
"Active Field = " & Get ( ActiveFieldName );
"Active Field Table = " & Get ( ActiveFieldTableName );
"Active Layout Object = " & Get ( ActiveLayoutObjectName );
"Active Layout Table = " & Get ( LayoutTableName );
"-----------------------------------";
"Local time = " & Get ( CurrentTimeStamp );
"Host time = " & Get ( CurrentHostTimeStamp );
"-----------------------------------";
"$counter = " & $counter;
)
];
// Return value
$$DEBUG
)
)