insert into Account  (WACCOUNTID, SACCOUNTCODE, SMAINACCOUNTCODE, SSUBACCOUNTCODE, SDESCRIPTION, WACCOUNTTYPEID, WREPORTINGGROUP1ID, WREPORTINGGROUP2ID, BSUBACCOUNTS,
 BINCOMEEXPENSE, BOPENITEM, BINACTIVE, DSYSDATE, WPROFILEID, WLINKACCOUNT, WTAXACCOUNT, WCURRENCYID) values (gen_id(GEN_ACCOUNTID,1),
'<@SPATNUM@>',substring('<@SPATNUM@>' from 1 for 4),
substring('<@SPATNUM@>' from 5 for 3),
substring('<@LNAME@> <@FNAME@> '|| <@BIRTHDATE@> from 1 for 64) ,
1,
0,0,0,0,1,0,current_timestamp,0,gen_id(GEN_ACCOUNTID,0),0,0)
@@GO@@
INSERT INTO DEBTOR (WACCOUNTID, WCONTACTID, SPASSWORD, SPOSTAL1, SPOSTAL2, SPOSTAL3, 
WPOSTCOUNTRIES_ID, SPOSTALCODE, SDELIVERY1, SDELIVERY2, SDELIVERY3, WDELCOUNTRIES_ID, 
SDELIVERYCODE, STELEPHONE1, STELEPHONE2, SFAX, SEMAIL, SBANKNAME, SBRANCHCODE, 
SBANKACCOUNTNUMBER, SBANKACCOUNTNAME, SCREDITCARDNUMBER, 
DEXPIRYDATE, SCREDITCARDTYPE, SCREDITCARDHOLDER, FCREDITLIMIT, FCHARGEAMOUNT,
 FDISCOUNT, FINTEREST, WBANKID, WSALESMANID, BOPENITEM, BPOSTBBF, BDISABLED, SMESSAGE,
 WDEFAULTPRICETYPEID, DLASTACTIVITY, WCURRENCYID, WFOREXACCOUNTID, SREFERENCE, DSYSDATE, 
WDUEDAYS, DREMITTANCE, WDEFAULTACCOUNT, WDEFAULTTAX, SCOMPANYREGNO, SFREEFIELD1, SFREEFIELD2, 
SFREEFIELD3, SLANGUAGE, SLAYOUTINVOICE, SLAYOUTCREDITNOTE, SLAYOUTQUOTE, SWEBSITE)
 VALUES (
gen_id(GEN_ACCOUNTID,0), 
0, 
'', 
'<@ADDRESS@>', 
'<@CITY@>',
'<@ADDRESS2@>',   
152, 
'<@ZIP@>',  
'<@ADDRESS@>', 
'<@ADDRESS2@>', 
'<@CITY@>',  
152, 
'<@ZIP@>',  
'<@HMPHONE@>',
'<@WIRELESSPHONE@>',
'<@WKPHONE@>', 
'<@EMAIL@>', 
'', 
'', 
'', 
'', 
'', 
null, 
'', 
'', 
0, 
0, 
0, 
0, 
0, 
0, 
0, 
0, 
0, 
'<@SSN@>', 
1, 
null, 
0, 
0, 
'', 
current_Timestamp, 
30, 
null, 
0, 
0, 
'', 
<@BIRTHDATE@>, 
'<@LNAME@> <@FNAME@>', 
'', 
'', 
null, 
null, 
null, 
''
)
@@GO@@
insert into DEBPEREXTRA
( WACCOUNTID, SNAME)
 VALUES (
gen_id(GEN_ACCOUNTID,0), 
'<@LNAME@>'
)
@@GO@@
update DEBPEREXTRA set SGENDER = '<@GENDER@>',
SSUBNAME = '<@MIDDLEI@>',
SNAME = '<@LNAME@>',
DBIRTH = <@BIRTHDATE@>,
SINITIALS = '<@FNAME@>' ,
SHOUSENUMBER = '<@HOUSENR@>',
SBSN = '<@SSN@>'
 where WACCOUNTID = gen_id(GEN_ACCOUNTID,0)
@@GO@@