pears.NetOwnerSetCompanySalesStatus

CREATE PROCEDURE "pears"."NetOwnerSetCompanySalesStatus"( IN "pWebUserID" CHAR(20),IN "pCompanyID" CHAR(20),IN "pNewCompanySalesStatus" CHAR(1) ) 
RESULT( "pResult" CHAR(255) ) 
BEGIN
  DECLARE "SalesStatusNotDefined" exception FOR sqlstate VALUE '23503';
  UPDATE "Company" SET "SalesStatus" = "pNewCompanySalesStatus" WHERE "CompanyID" = "pCompanyID";
  IF @@rowcount <> 1 THEN
    SELECT '2:~CompanyID not found'
  ELSE
    SELECT '0:~success'
  END IF
exception
  WHEN "SalesStatusNotDefined" THEN SELECT '3:~Sales Status Not Defined'
  WHEN others THEN
    SELECT '1~:SalesStatus not set'
END /* DOC
2020-06-01 GJ IW-1188 Created/Modified proc from Justin so it works on the web
*/
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetOwnerSetCompanySalesStatus" IS 
{CREATE PROCEDURE pears."NetOwnerSetCompanySalesStatus"(IN pWebUserID CHAR(20), IN pCompanyID CHAR(20), IN pNewCompanySalesStatus CHAR(1))
RESULT (pResult CHAR(255))
BEGIN
    DECLARE SalesStatusNotDefined EXCEPTION FOR SQLSTATE '23503';
    UPDATE Company SET SalesStatus =  pNewCompanySalesStatus WHERE CompanyID = pCompanyID;
    IF @@rowcount <> 1 THEN
        SELECT '2:~CompanyID not found';
    ELSE 
        SELECT '0:~success';
    END IF;
    EXCEPTION WHEN SalesStatusNotDefined THEN 
        SELECT '3:~Sales Status Not Defined';
    WHEN OTHERS THEN 
        SELECT'1~:SalesStatus not set';
END
 
/* DOC
2020-06-01 GJ IW-1188 Created/Modified proc from Justin so it works on the web
*/
}