====== pears.NetTestSetup ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
create procedure "pears"."NetTestSetup"( in "pWebUserID" char(20),in "pSections" char(250) default '' ) 
result( "pResult" char(250) ) 
// IQXWeb - for automated testing
begin
  // Add or update the essential headers to a known state using "existing update defaults off values"
  insert into "division"( "divisionid","name" ) on existing update defaults off values( 'TEST','TestDiv' ) ;
  insert into "person"( "personid","name","keyname","forenames","surname" ) on existing update defaults off values( 'TEST','test','TEST','test','test' ) ;
  insert into "company"( "companyid","name","keyname","clientcode" ) on existing update defaults off values( 'TEST','test','TEST','TESTAC' ) ;
  insert into "employment"( "employmentid","companyid","personid","position" ) on existing update defaults off values( 'TEST','TEST','TEST','TestPosition' ) ;
  insert into "department"( "departmentid","name" ) on existing update defaults off values( '~~','test' ) ;
  insert into "tempdesk"( "tempdeskid","departmentid","name" ) on existing update defaults off values( 'TEST','~~','test' ) ;
  insert into "vacancy"( "vacancyid","departmentid","employmentid","tempdeskid","position","refcode" ) on existing update defaults off values( 'TEST','~~','TEST','TEST','test','TestRef' ) ;
  insert into "staff"( "staffid","defaultdepartid","shortid","userid" ) on existing update defaults off values( 'TEST','~~','~~','test' ) ;
  insert into "PayrollYear"( "Yearnumber","Week1Friday","NumberOfWeeks" ) on existing update defaults off values( 2001,'2001-04-08',53 ) ;
  insert into "contactclass"( "classcode","classdescrip" ) on existing update defaults off values( '~~','Test' ) ;
  // Set up the web logins
  insert into "iqxnetuser"( "iqxnetuserid","iqxnetuserclassid","loginid","name","expirydate","staffid" ) on existing update defaults off values( 'TEST.CANDIDATE','CANDIDATE','test.user.candidate','test.user.candidate',null,null ) ;
  insert into "iqxnetuser"( "iqxnetuserid","iqxnetuserclassid","loginid","name","expirydate","staffid" ) on existing update defaults off values( 'TEST.CLIENT','CLIENT','test.user.client','test.user.client',null,null ) ;
  insert into "iqxnetuser"( "iqxnetuserid","iqxnetuserclassid","loginid","name","expirydate","staffid" ) on existing update defaults off values( 'TEST.OWNER','OWNER','test.user.owner','test.user.owner',null,'TEST' ) ;
  insert into "iqxnetuser"( "iqxnetuserid","iqxnetuserclassid","loginid","name","expirydate","staffid" ) on existing update defaults off values( 'TEST.NOBODY','OWNER','test.user.nobody','test.user.nobody',current date-100,null ) ;
  insert into "iqxnetuser"( "iqxnetuserid","iqxnetuserclassid","loginid","name","expirydate","staffid" ) on existing update defaults off values( 'TEST.AGENCY','AGENCY','Test.user.Agency','Test.user.Agency',null,null ) ;
  update "iqxnetuser" set "password" = (select first "password" from "iqxnetuser" where "loginid" = 'ADMINISTRATOR'),"passwordset" = 1 where "loginid" like 'test.user.%';
  insert into "iqxnetuserlink"( "iqxnetuserlinkid","iqxnetuserid","personid" ) on existing update defaults off values( 'TEST.CANDIDATE','TEST.CANDIDATE','TEST' ) ;
  insert into "iqxnetuserlink"( "iqxnetuserlinkid","iqxnetuserid","employmentid" ) on existing update defaults off values( 'TEST.CLIENT','TEST.CLIENT','TEST' ) ;
  insert into "iqxnetuserlink"( "iqxnetuserlinkid","iqxnetuserid","personid","employmentid" ) on existing update defaults off values( 'TEST.AGENCY','TEST.Agency','TEST','TEST' ) ;
  // timesheets
  insert into "tempshiftplan"( "tempshiftplanid","vacancyid","description" ) on existing update defaults off values( 'TEST','TEST','test' ) ;
  insert into "tempshift"( "tempshiftid","vacancyid","shiftdate","state","tempshiftplanid" ) on existing update defaults off values( 'TEST','TEST',"today"(),'[','TEST' ) ;
  insert into "tempprovtimesheet"( "tempprovtimesheetid","placementid","personid","vacancyid","TempDeskID","period","periodlength","extnumber" ) on existing update defaults off values( 'TEST','TEST','TEST','TEST','TEST',200101,'W',0 ) ;
  insert into "tempprovtimesheet"( "tempprovtimesheetid","placementid","personid","vacancyid","TempDeskID","period","periodlength","extnumber" ) on existing update defaults off values( 'TEST2','TEST','TEST','TEST','TEST',200101,'W',0 ) ;
  insert into "temppayband"( "TempPaybandID","Description","payrollflag","unit" ) on existing update defaults off values( 'TEST1','TestPayBandOne','99','Day' ) ;
  insert into "temppayband"( "TempPaybandID","Description","payrollflag","unit" ) on existing update defaults off values( 'TEST2','TestPayBandTwo','EXPENSES','Expenses' ) ;
  insert into "tempprovtimesheetline"( "tempprovtimesheetlineid","tempprovtimesheetID","temppaybandid","linenumber","unitspaid","unitscharged","payrate","chargerate" ) on existing update defaults off values( 'TEST1','TEST','TEST1',1,1,1,10.0,11.0 ) ;
  insert into "tempprovtimesheetline"( "tempprovtimesheetlineid","tempprovtimesheetID","temppaybandid","linenumber","unitspaid","unitscharged","payrate","chargerate" ) on existing update defaults off values( 'TEST2','TEST','TEST2',1,1,1,20.0,21.0 ) ;
  insert into "tempprovtimesheetline"( "tempprovtimesheetlineid","tempprovtimesheetID","temppaybandid","linenumber","unitspaid","unitscharged","payrate","chargerate" ) on existing update defaults off values( 'TEST3','TEST2','TEST1',1,1,1,20.0,21.0 ) ;
  select '0:~Success'
end /* DOC

*/
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetTestSetup" IS 
{create PROCEDURE pears."NetTestSetup"( in pWebUserID char(20), in pSections char(250) default '')
result(pResult char(250))
// IQXWeb - for automated testing
BEGIN

// Add or update the essential headers to a known state using "existing update defaults off values"

insert into division (divisionid,name) on existing update defaults off values ('TEST','TestDiv');
insert into person (personid,name,keyname,forenames,surname) on existing update defaults off values ('TEST','test','TEST','test','test');
insert into company (companyid,name,keyname,clientcode) on existing update defaults off values ('TEST','test','TEST','TESTAC');
insert into employment (employmentid,companyid,personid,position) on existing update defaults off values ('TEST','TEST','TEST','TestPosition');
insert into department (departmentid,name) on existing update defaults off values ('~~','test');
insert into tempdesk (tempdeskid,departmentid,name) on existing update defaults off values ('TEST','~~','test');
insert into vacancy (vacancyid,departmentid,employmentid,tempdeskid,position,refcode) on existing update defaults off values ('TEST','~~','TEST','TEST','test','TestRef');
insert into staff (staffid,defaultdepartid,shortid,userid) on existing update defaults off values ('TEST','~~','~~','test');
insert into PayrollYear (Yearnumber,Week1Friday,NumberOfWeeks) on existing update defaults off values(2001,'2001-04-08',53);  
insert into contactclass (classcode,classdescrip) on existing update defaults off values ('~~','Test');

// Set up the web logins
insert into iqxnetuser(iqxnetuserid,iqxnetuserclassid,loginid,name,expirydate,staffid) on existing update defaults off values ('TEST.CANDIDATE','CANDIDATE','test.user.candidate','test.user.candidate',null,null);
insert into iqxnetuser(iqxnetuserid,iqxnetuserclassid,loginid,name,expirydate,staffid) on existing update defaults off values ('TEST.CLIENT','CLIENT','test.user.client','test.user.client',null,null);
insert into iqxnetuser(iqxnetuserid,iqxnetuserclassid,loginid,name,expirydate,staffid) on existing update defaults off values ('TEST.OWNER','OWNER','test.user.owner','test.user.owner',null,'TEST');
insert into iqxnetuser(iqxnetuserid,iqxnetuserclassid,loginid,name,expirydate,staffid) on existing update defaults off values ('TEST.NOBODY','OWNER','test.user.nobody','test.user.nobody',current date-100,null);
insert into iqxnetuser(iqxnetuserid,iqxnetuserclassid,loginid,name,expirydate,staffid) on existing update defaults off values ('TEST.AGENCY','AGENCY','Test.user.Agency','Test.user.Agency',null,null);
update iqxnetuser set password=(select first password from iqxnetuser where loginid='ADMINISTRATOR'),passwordset=1 where loginid like 'test.user.%';
insert into iqxnetuserlink(iqxnetuserlinkid,iqxnetuserid,personid) on existing update defaults off values ('TEST.CANDIDATE','TEST.CANDIDATE','TEST');
insert into iqxnetuserlink(iqxnetuserlinkid,iqxnetuserid,employmentid) on existing update defaults off values ('TEST.CLIENT','TEST.CLIENT','TEST');
insert into iqxnetuserlink(iqxnetuserlinkid,iqxnetuserid,personid,employmentid) on existing update defaults off values ('TEST.AGENCY','TEST.Agency','TEST','TEST');

// timesheets
insert into tempshiftplan (tempshiftplanid,vacancyid,description) on existing update defaults off values ('TEST','TEST','test');
insert into tempshift (tempshiftid,vacancyid,shiftdate,state,tempshiftplanid) on existing update defaults off values ('TEST','TEST',today(),'[','TEST');
insert into tempprovtimesheet (tempprovtimesheetid,placementid,personid,vacancyid,TempDeskID,period,periodlength,extnumber) on existing update defaults off values ('TEST','TEST','TEST','TEST','TEST',200101,'W',0);
insert into tempprovtimesheet (tempprovtimesheetid,placementid,personid,vacancyid,TempDeskID,period,periodlength,extnumber) on existing update defaults off values ('TEST2','TEST','TEST','TEST','TEST',200101,'W',0);
insert into temppayband (TempPaybandID,Description,payrollflag,unit) on existing update defaults off values ('TEST1','TestPayBandOne','99','Day');
insert into temppayband (TempPaybandID,Description,payrollflag,unit) on existing update defaults off values ('TEST2','TestPayBandTwo','EXPENSES','Expenses');
insert into tempprovtimesheetline (tempprovtimesheetlineid,tempprovtimesheetID,temppaybandid,linenumber,unitspaid,unitscharged,payrate,chargerate) on existing update defaults off values ('TEST1','TEST','TEST1',1,1,1,10.00,11.00);
insert into tempprovtimesheetline (tempprovtimesheetlineid,tempprovtimesheetID,temppaybandid,linenumber,unitspaid,unitscharged,payrate,chargerate) on existing update defaults off values ('TEST2','TEST','TEST2',1,1,1,20.00,21.00);
insert into tempprovtimesheetline (tempprovtimesheetlineid,tempprovtimesheetID,temppaybandid,linenumber,unitspaid,unitscharged,payrate,chargerate) on existing update defaults off values ('TEST3','TEST2','TEST1',1,1,1,20.00,21.00);

select '0:~Success'
END

/* DOC

*/
}
</code>