Function Rechte(cModul:
String):
String;
Begin
If AnsiCompareText(cModul, '
Angebot') = 0
Then
Result := '
FAngebot'
Else If AnsiCompareText(cModul, '
Auftrag') = 0
Then
Result := '
FAuftrag'
Else If AnsiCompareText(cModul, '
AV') = 0
Then
Result := '
FAV'
Else If AnsiCompareText(cModul, '
Fertigung') = 0
Then
Result := '
FFertigung'
Else If AnsiCompareText(cModul, '
Einkauf') = 0
Then
Result := '
FEinkauf'
Else If AnsiCompareText(cModul, '
Versand') = 0
Then
Result := '
FVersand'
Else If AnsiCompareText(cModul, '
Reparatur') = 0
Then
Result := '
FReparatur'
Else If AnsiCompareText(cModul, '
Supply') = 0
Then
Result := '
FSupply'
Else If AnsiCompareText(cModul, '
Kunden') = 0
Then
Result := '
FKunden'
Else If AnsiCompareText(cModul, '
Artikel') = 0
Then
Result := '
FLager'
Else If AnsiCompareText(cModul, '
Projekt') = 0
Then
Result := '
FProjekt'
Else If AnsiCompareText(cModul, '
Zeichnung') = 0
Then
Result := '
FZeichnung'
Else If AnsiCompareText(cModul, '
Pruefmtl') = 0
Then
Result := '
FPruefmtl'
Else If AnsiCompareText(cModul, '
Iso9000') = 0
Then
Result := '
FIso9000'
Else If AnsiCompareText(cModul, '
System') = 0
Then
Result := '
FSystem'
Else If AnsiCompareText(cModul, '
Dokument') = 0
Then
Result := '
FDok'
Else
Result := '
';
End;