37 lines
1023 B
Plaintext
37 lines
1023 B
Plaintext
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
|