metametaclass’s gists

metametaclass / gist:4697036

Created February 2, 2013 12:09

	private void Process(IGetChangeLog chng, ChangeLogTableData changeData) {
	mLog.VerboseFormat("Process: {0}", chng);
	CheckIsInheritedFinished(chng.CHL_OPER);
	TableData td=null;
	TableData tmp;
	int sign=0;
	switch(chng.CHL_OPER) {
	case LogOperations.Insert:
	case LogOperations.AppendLogOnly:
	case LogOperations.InsertV:

metametaclass / gist:4750713

Last active December 12, 2015 09:19

metametaclass / gist:4961305

Created February 15, 2013 15:59

	select
	AccTrns_Dept AccTrns_Dept, min(NO_NAME) DEPT_NAME,
	AccTrns_OffBalance AccTrns_OffBalance,
	GETDATEDETAIL(AccTrns_Date,?) dDATE, case
	when DHalf.ACCTRNSHALF_INVERSE=1 and
	KHalf.ACCTRNSHALF_INVERSE=1 then 1
	when DHalf.ACCTRNSHALF_INVERSE=-1 and
	KHalf.ACCTRNSHALF_INVERSE=1 then 2
	when DHalf.ACCTRNSHALF_INVERSE=-1 and
	KHalf.ACCTRNSHALF_INVERSE=-1 then 3

metametaclass / gist:5089232

Created March 5, 2013 10:05

	(defn- do-configure-program
	[]
	(let [rootLogger (.. LogManager getRootLogger)
	replLogger (LogManager/getLogger "user")
	layout (org.apache.log4j.PatternLayout. "%d %-4r [%t] (%F:%L) %-5p %c %x - %m%n")
	shortLayout (org.apache.log4j.PatternLayout. "[%t] (%F:%L) %-5p %c %x - %m%n")
	errorAppender (org.apache.log4j.FileAppender. layout "error.log" true)
	debugAppender (org.apache.log4j.FileAppender. layout "debug.log" true)
	infoAppender (org.apache.log4j.FileAppender. layout "info.log" true)
	testsAppender (org.apache.log4j.FileAppender. shortLayout "tests.log" true)

metametaclass / gist:5099574

Created March 6, 2013 14:16

redirection error

	M[info] Resolving io.spray#spray-servlet;1.1-M7 ...

	M[info] Resolving io.spray#spray-http;1.1-M7 ...

	M[info] Resolving org.parboiled#parboiled-scala_2.10.0-RC5;1.1.4 ...

	M[info] Resolving org.parboiled#parboiled-core;1.1.4 ...

	M[info] Resolving io.spray#spray-util;1.1-M7 ...

metametaclass / gist:5176764

Created March 16, 2013 15:05

	with recursive FullAccounts as
	(select 0 ACCNT_XMLOBJ_ID, null ACCNT_PARENT_ID, null ACCNT_NUM, null ACCNT_Group from RDB$DATABASE
	union
	select ACCNT_XMLOBJ_ID, ACCNT_PARENT_ID, ACCNT_NUM, ACCNT_Group from Accounts
	),
	AccountParents as
	(select ACCNT_XMLOBJ_ID CHILD_ID, ACCNT_XMLOBJ_ID, ACCNT_PARENT_ID, ACCNT_NUM, ACCNT_Group from FullAccounts
	union all
	select AH.CHILD_ID CHILD_ID, ACCNT_XMLOBJ_ID, ACCNT_PARENT_ID, ACCNT_NUM, ACCNT_Group from FullAccounts
	join AccountParents ah on ACCNT_XMLOBJ_ID=ah.ACCNT_PARENT_ID

metametaclass / gist:5176767

Created March 16, 2013 15:05

	with recursive AccountHier as
	( select ACCNT_XMLOBJ_ID, ACCNT_NUM, ACCNT_PARENT_ID,
	ACCNT_NAME, ACCNT_DESC,
	1 ALevel,
	cast(Accnt_INum as varchar(20)) SortPath,
	ACCNT_GROUP,
	ACCNT_ACTPASS,
	ACCNT_ACTPASSCODE, ACCNT_DETAILLEVEL from Accounts
	where ACCNT_PARENT_ID=0
	union all

metametaclass / gist:5178680

Last active December 15, 2015 01:18

	select sum(case Main.AccTrnsHalf_Half*
	case
	when :OneHalfMode=1 then Main.AccTrnsHalf_Inverse
	else 1
	end
	when 1 then Main.AccTrnsHalf_Half*AccTrns_MainTotal
	else 0
	end) DTotal,
	sum(case Main.AccTrnsHalf_Half*
	case

metametaclass / gist:5180705

Created March 17, 2013 08:48

	with q1
	as
	(select case :NeedDept
	when 1 then AccTrns_Dept
	else 0
	end AccTrns_Dept,
	Main.AccTrnsHalf_Half MainHalf,
	coalesce(MainAttrs.ACA_ID,Main.ACCTRNSHALF_Accnt_ID) MainAcc,
	MainCode1.AccAnICode_ICode MC1,
	MainCode2.AccAnICode_ICode MC2,

metametaclass / gist:5265203

Created March 28, 2013 17:32

	Statement 60026:
	-------------------------------------------------------------------------------
	select * from Accounts where Accnt_ID=?
	^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
	PLAN (ACCOUNTS INDEX (PK_ACCOUNTS))
	0 ms

	2013-03-28T20:27:53.2150 (9620:012CD9E8) EXECUTE_STATEMENT_START
	operdendb (ATT_1071, SVCUSER:CLOJURESVC, NONE, TCPv4:192.168.1.2)
	(TRA_256633, READ_COMMITTED \| REC_VERSION \| WAIT \| READ_WRITE)

metametaclass metametaclass