<?xml version="1.0"?><program><procedure pos="35:1"><name text="Exch2467_Export_ADD_CLASS" pos="35:36"/><parameters pos="35:36"><varparams pos="35:38"/><var pos="35:42"><ident text="aDocLine" pos="35:50"/><type text="variant" pos="35:59"/></var><var pos="36:38"><ident text="aAccount" pos="36:46"/><type text="string" pos="36:54"/></var><var pos="37:38"><ident text="aAccountID" pos="37:48"/><type text="string" pos="37:56"/></var><var pos="38:38"><ident text="aGRANTINVESTMENT_ID" pos="38:57"/><type text="string" pos="38:65"/></var><var pos="39:38"><ident text="aFieldName" pos="39:48"/><type text="string" pos="39:56"/><init pos="39:57"><expr pos="39:59" pos1="39:70"><string text="'ADD_KLASS'" pos="39:70"/></expr></init></var></parameters><var pos="41:3"><ident text="xCode" pos="41:8"/><type text="string" pos="41:16"/></var><compoundstmt pos="42:1"><trystmt pos="44:5"><ifstmt pos="45:7"><expr pos="45:10" pos1="48:40"><op text="(" pos="45:11"/><expr pos="45:11" pos1="48:39"><dsgn pos="45:11"><node text="QueryField" pos="45:21"/><expr pos="45:23" pos1="46:59"><string text="' select oa.orgacctype_id TYPEID '" pos="45:57"/><op text="+" pos="46:24"/><string text="' from ORGACCOUNT oa where oa.id=?'" pos="46:59"/></expr><expr pos="47:23" pos1="47:36"><set pos="47:25"><expr pos="47:25" pos1="47:35"><dsgn pos="47:25"><node text="aAccountID" pos="47:35"/></dsgn></expr></set></expr><expr pos="48:23" pos1="48:31"><string text="'TYPEID'" pos="48:31"/></expr></dsgn><op text="&#60;&#62;" pos="48:35"/><string text="'5'" pos="48:39"/></expr><op text=")" pos="48:40"/></expr><thenstmt pos="49:14"><callstmt pos="49:14"><dsgn pos="49:14"><node text="aDocLine" pos="49:22"/><node text="SetAttribute" pos="49:35"/><expr pos="49:37" pos1="49:47"><dsgn pos="49:37"><node text="aFieldName" pos="49:47"/></dsgn></expr><expr pos="49:49" pos1="49:51"><string text="''" pos="49:51"/></expr></dsgn></callstmt></thenstmt><elsestmt pos="53:7"><ifstmt pos="53:7"><expr pos="53:10" pos1="53:52"><op text="(" pos="53:11"/><expr pos="53:11" pos1="53:51"><dsgn pos="53:11"><node text="LENGTH" pos="53:17"/><expr pos="53:19" pos1="53:45"><dsgn pos="53:19"><node text="TRIM" pos="53:23"/><expr pos="53:25" pos1="53:44"><dsgn pos="53:25"><node text="aGRANTINVESTMENT_ID" pos="53:44"/></dsgn></expr></dsgn></expr></dsgn><op text="&#60;=" pos="53:49"/><number text="0" pos="53:51"/></expr><op text=")" pos="53:52"/></expr><thenstmt pos="54:14"><callstmt pos="54:14"><dsgn pos="54:14"><node text="aDocLine" pos="54:22"/><node text="SetAttribute" pos="54:35"/><expr pos="54:37" pos1="54:47"><dsgn pos="54:37"><node text="aFieldName" pos="54:47"/></dsgn></expr><expr pos="54:49" pos1="54:51"><string text="''" pos="54:51"/></expr></dsgn></callstmt></thenstmt><elsestmt pos="55:14"><compoundstmt pos="55:14"><assignstmt pos="56:11"><dsgn pos="56:11"><node text="xCode" pos="56:16"/></dsgn><expr pos="56:20" pos1="60:39"><dsgn pos="56:20"><node text="QueryField" pos="56:30"/><expr pos="56:32" pos1="58:51"><string text="'Select Code From GrantInvestment Where Id = ?'" pos="56:79"/><op text="+" pos="58:33"/><string text="' and CONTROLFK=1'" pos="58:51"/></expr><expr pos="59:32" pos1="59:54"><set pos="59:34"><expr pos="59:34" pos1="59:53"><dsgn pos="59:34"><node text="aGRANTINVESTMENT_ID" pos="59:53"/></dsgn></expr></set></expr><expr pos="60:32" pos1="60:38"><string text="'CODE'" pos="60:38"/></expr></dsgn></expr></assignstmt><ifstmt pos="63:15"><expr pos="63:18" pos1="63:31"><op text="(" pos="63:19"/><expr pos="63:19" pos1="63:30"><dsgn pos="63:19"><node text="xCode" pos="63:24"/></dsgn><op text="=" pos="63:26"/><string text="'0'" pos="63:30"/></expr><op text=")" pos="63:31"/></expr><thenstmt pos="64:22"><callstmt pos="64:22"><dsgn pos="64:22"><node text="aDocLine" pos="64:30"/><node text="SetAttribute" pos="64:43"/><expr pos="64:45" pos1="64:55"><dsgn pos="64:45"><node text="aFieldName" pos="64:55"/></dsgn></expr><expr pos="64:57" pos1="64:59"><string text="''" pos="64:59"/></expr></dsgn></callstmt></thenstmt><elsestmt pos="65:22"><callstmt pos="65:22"><dsgn pos="65:22"><node text="aDocLine" pos="65:30"/><node text="SetAttribute" pos="65:43"/><expr pos="65:45" pos1="65:55"><dsgn pos="65:45"><node text="aFieldName" pos="65:55"/></dsgn></expr><expr pos="65:57" pos1="65:62"><dsgn pos="65:57"><node text="xCode" pos="65:62"/></dsgn></expr></dsgn></callstmt></elsestmt></ifstmt></compoundstmt></elsestmt></ifstmt></elsestmt></ifstmt><exceptstmt pos="73:9"><callstmt pos="73:9"><dsgn pos="73:9"><node text="ExceptionLog" pos="73:21"/><expr pos="73:23" pos1="73:55"><string text="'Ραξι Exch2467_Export_ADD_CLASS'" pos="73:55"/></expr></dsgn></callstmt></exceptstmt></trystmt></compoundstmt></procedure><compoundstmt pos="79:1"/><types/></program>