pears.NetTimesheetIDFromSerialNumber

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
 
*/
}