pears.NetTimesheetIDFromSerialNumber [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== pears.NetTimesheetIDFromSerialNumber ======
<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"."NetTimesheetIDFromSerialNumber"( in "pWebUserID" char(20),in "pSerialNumber" char(50) ) 
result( "pResult" char(250) ) 
// IQXWeb
begin
  declare "tsID" char(20);
  set "tsid" = '';
  if(select "count"() from "temptimesheet" where "serialnumber" = "pSerialNumber") = 1 then
    set "tsID" = (select first "temptimesheetid" from "temptimesheet" where "serialnumber" = "pSerialNumber")
  end if;
  select '0:'+"tsID"+'~Success'
end /* TEST

select length(presult) as A from NetTimesheetIDFromSerialNumber('',(select top 1 serialnumber from temptimesheet order by serialnumber desc));
expect A=30;

*/
/* DOC
20180910 PC test routine

*/
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetTimesheetIDFromSerialNumber" IS 
{create PROCEDURE pears."NetTimesheetIDFromSerialNumber"( in pWebUserID char(20), in pSerialNumber char(50) ) 
result( pResult char(250) ) 
// IQXWeb
begin
  declare tsID char(20);
  set tsid='';
  if (select count(*) from temptimesheet where serialnumber=pSerialNumber) = 1 then
    set tsID=(select first temptimesheetid from temptimesheet where serialnumber=pSerialNumber);
  end if;
  select '0:' + tsID + '~Success'
end

/* TEST

select length(presult) as A from NetTimesheetIDFromSerialNumber('',(select top 1 serialnumber from temptimesheet order by serialnumber desc));
expect A=30;

*/

/* DOC
20180910 PC test routine

*/
}
</code>