6. Februar 2009 11:53
6. Februar 2009 11:59
6. Februar 2009 13:06
Usersetup.GET(USERID);
IF Usersetup.Vertrieblerfilter = TRUE THEN BEGIN
  FILTERGROUP(2);
  SETFILTER("Salesperson Code",Usersetup."Verkäüfer/Einkäufercode");
  FILTERGROUP(0);
END;
Nummer := '';
titel := '';
IF Nummer = '' THEN BEGIN
  SETRANGE("No.");
  EXIT;
END;
IF titel = '' THEN BEGIN
  SETRANGE(Description);
  EXIT;
END;
IF Kunde = '' THEN BEGIN
  SETRANGE("Sell-to Customer Name");
  EXIT;
END;
IF Ansprechpartner = '' THEN BEGIN
  SETRANGE("Verk. an Kontakt Name");
  EXIT;
END;
IF KundenProjektNr = '' THEN BEGIN
  SETRANGE("Projekt Nr. Kunde");
  EXIT;
END;
IF KundenBestellNr = '' THEN BEGIN
  SETRANGE("Customer Order No.");
  EXIT;
END;
IF HauptProjekt = '' THEN BEGIN
  SETRANGE("Main Order No.");
  EXIT;
END;IF Rec.Status = Rec.Status::"Order Archive" THEN
  FORM.RUN(FORM::"Job Order Archive",Rec);UserSetup.GET(USERID);
IF ((UserSetup.Konstruktion = TRUE) OR UserSetup."Vertrieb Extern" OR (UserSetup.Service = TRUE)) THEN BEGIN
  CurrForm.EDITABLE(FALSE);
  CurrForm.Schlusstext.VISIBLE(FALSE);
  CurrForm.Fakturaplan.VISIBLE(FALSE);
  CurrForm.Zielwerte.VISIBLE(FALSE);
  CurrForm.Risikobewertung.VISIBLE(FALSE);
  CurrForm.Faxen.VISIBLE(FALSE);
  CurrForm.Mail.VISIBLE(FALSE);
  CurrForm.Seitenansicht.VISIBLE(FALSE);
  CurrForm.Protokoll.VISIBLE(FALSE);
  CurrForm.Terminsicht.VISIBLE(FALSE);
  CurrForm.Logistiksicht.VISIBLE(FALSE);
  CurrForm.Kostensicht.VISIBLE(FALSE);
  CurrForm.Verkaufssicht.VISIBLE(FALSE);
  CurrForm.Projektbilanz.VISIBLE(FALSE);
  CurrForm."STS an LP".VISIBLE(FALSE);
  CurrForm.Replizieren.VISIBLE(FALSE);
  CurrForm.Projekt.VISIBLE(FALSE);
  CurrForm.Strukturplan.VISIBLE(FALSE);
  CurrForm.Funktion.VISIBLE(FALSE);
  CurrForm.Planung.VISIBLE(FALSE);
  CurrForm.Anfangstetxt.VISIBLE(FALSE);
END;Enabled   Key   
Yes   Table ID,For Type,For No.,For Version No.,For Doc. No. Occ.,Entry No.   
Yes   Archive-Reference No.,Document Type   
Yes   For No.   
Yes   Code of Category,Document Type,Archiving Date   
Yes   Archived,Document Type,Archive-Reference No.   
Yes   Projektnr.   
Yes   Eink. von Kred.-Nr.   
Yes   Verk. an Deb.-Nr.   
Yes   Hauptangebotsnr.   
Yes   Hauptauftragsnr.   
Yes   Archiving Date   
Yes   Document Type,Archiving Date   
Yes   Document Type,Eink. von Name,Archiving Date   
Yes   Projektnr.,Code of Category,Document Type,Archiving Date   
Yes   Eink. von Kred.-Nr.,Code of Category,Document Type,Archiving Date   
Yes   Verk. an Deb.-Nr.,Code of Category,Document Type,Archiving Date   
Yes   For No.,Code of Category,Document Type,Archiving Date   
Yes   Rech. an Deb.-Nr.,Code of Category,Document Type,Archiving Date   
Yes   Contact No.,Code of Category,Document Type,Archiving Date   
6. Februar 2009 18:48