pears.NetOwnerCompanySelect

CREATE PROCEDURE "pears"."NetOwnerCompanySelect"( IN "pWebUserID" CHAR(20) ) 
RESULT( "value" CHAR(5),"name" CHAR(25) ) 
BEGIN
  IF(SELECT "count"() FROM "iqxnetuser" WHERE "iqxnetuserid" = "pWebUserID") = 0 THEN
    SELECT '',''
  ELSE
    SELECT "companystatusid","name" FROM "companystatus" UNION SELECT '%','All' AS "name" ORDER BY "name" ASC
  END IF
END /* DOC
2016-09-22 PC
Ref:IW4 
provide filter dropdown for Company status select box
 
inputs:
pWebUserID
 
outputs:
value - select code
name - text for dropdown box
 
tests:
null pWebUserID
invalid pWebUserID
valid pWebUserID
add test status with sort order 0
*/
/* TEST
call NetTestSetup('');
delete from Companystatus where Companystatusid='~';
select string('!',value,'!'),string('!',name,'!') from NetOwnerCompanySelect(null);
expect !!,!!;
select string('!',value,'!'),string('!',name,'!') from NetOwnerCompanySelect('z99');
expect !!,!!;
insert into Companystatus (companystatusid,name,help,sortorder) values ('~','TestState','testhelp',0);
select value,name from NetOwnerCompanySelect('test.owner');
expect %,All;
expect .,Archived;
expect C,Client;
expect I,Invoice*;
expect N,Previously*;
expect P,Prospect;
expect A,Secondary*;
expect S,Supplier;
expect ~,TestState;
delete from Companystatus where Companystatusid='~';
*/
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetOwnerCompanySelect" IS 
{CREATE PROCEDURE pears."NetOwnerCompanySelect"(IN pWebUserID CHAR(20))
RESULT(VALUE CHAR(5),name CHAR(25))
BEGIN
    IF (SELECT COUNT(*) FROM iqxnetuser WHERE iqxnetuserid=pWebUserID) = 0 THEN
        SELECT '','';
    ELSE
        SELECT companystatusid,name FROM companystatus UNION SELECT '%','All' AS name ORDER BY name
    END IF;
END
 
/* DOC
2016-09-22 PC
Ref:IW4 
provide filter dropdown for Company status select box
 
inputs:
    pWebUserID
 
outputs:
    value - select code
    name - text for dropdown box
 
tests:
    null pWebUserID
    invalid pWebUserID
    valid pWebUserID
    add test status with sort order 0
*/
 
/* TEST
call NetTestSetup('');
delete from Companystatus where Companystatusid='~';
select string('!',value,'!'),string('!',name,'!') from NetOwnerCompanySelect(null);
expect !!,!!;
select string('!',value,'!'),string('!',name,'!') from NetOwnerCompanySelect('z99');
expect !!,!!;
insert into Companystatus (companystatusid,name,help,sortorder) values ('~','TestState','testhelp',0);
select value,name from NetOwnerCompanySelect('test.owner');
expect %,All;
expect .,Archived;
expect C,Client;
expect I,Invoice*;
expect N,Previously*;
expect P,Prospect;
expect A,Secondary*;
expect S,Supplier;
expect ~,TestState;
delete from Companystatus where Companystatusid='~';
*/
}