added LSL2 stored procedures

LSL2/STPROC/GET_SUP_OR_QTL.txt

@@ -0,0 +1,36 @@
+compile function get_sup_or_qtl( Shift, Supervisor )
+
+$insert quote_sigs_equ
+
+* MUST PASS THE SHIFT AS AN INTEGER AND 'SUPERVISOR' FOR THE SUPERVISOR
+* OTHERWISE IT WILL RETURN THE QUALITY TEAM LEADER
+
+ReturnVar = ''
+if assigned( Shift ) else
+   return ''
+end
+QuoteSigs = xlate( 'CONFIG', 'QUOTE_SIGS', '', 'X' )
+if Supervisor = 'SUPERVISOR' then
+	begin case
+	   case ( Shift = 1 )
+	      ReturnVar = QuoteSigs<Shift1Sup$>
+	   case ( Shift = 2 )
+	      ReturnVar = QuoteSigs<Shift2Sup$>         
+	   case ( Shift = 3 )
+	      ReturnVar = QuoteSigs<Shift3Sup$>         
+	   case ( Shift = 4 )
+	      ReturnVar = QuoteSigs<Shift4Sup$>         
+	end case
+end else
+	begin case
+	   case ( Shift = 1 )
+	      ReturnVar = QuoteSigs<Shift1QTL$>
+	   case ( Shift = 2 )
+	      ReturnVar = QuoteSigs<Shift2QTL$>         
+	   case ( Shift = 3 )
+	      ReturnVar = QuoteSigs<Shift3QTL$>         
+	   case ( Shift = 4 )
+	      ReturnVar = QuoteSigs<Shift4QTL$>         
+	end case
+end
+return ReturnVar