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