25. Februar 2010 00:58
25. Februar 2010 10:51
25. Februar 2010 23:52
26. Februar 2010 00:05
26. Februar 2010 04:11
26. Februar 2010 09:57
26. Februar 2010 18:26
8. März 2010 16:52
Select Case WshSysEnv("CLIENTNAME")
.....
.....
CASE "WS-IT4"
RemNetPrinter()
net.AddWindowsPrinterConnection "\\MBMISC01\PDF_DRUCKER"
net.AddWindowsPrinterConnection "\\MBPS01\LOKAL_IT"
net.AddWindowsPrinterConnection "\\MBPS01\RG_LOKAL_IT"
net.SetDefaultPrinter "\\MBPS01\LOKAL_IT"
IF NOT RecPrinterSelection.GET(USERID, ReportID) THEN
IF NOT RecPrinterSelection.GET('', ReportID) THEN
IF NOT RecPrinterSelection.GET(USERID,0) THEN
IF RecPrinterSelection.GET('',0) THEN;
IF RecPrinterSelection.Druckername2 <> '' THEN BEGIN
LängeNameDruckerauswahl := STRLEN(RecPrinterSelection.Druckername2);
drucker.RESET;
REPEAT
UNTIL (drucker.NEXT = 0) OR
(UPPERCASE(COPYSTR(drucker.ID, 1, LängeNameDruckerauswahl)) = UPPERCASE(RecPrinterSelection.Druckername2));
IF (UPPERCASE(COPYSTR(drucker.ID, 1, LängeNameDruckerauswahl)) = UPPERCASE(RecPrinterSelection.Druckername2)) THEN
EXIT(drucker.ID)
ELSE
EXIT('');
END ELSE
EXIT(RecPrinterSelection."Printer Name");
20. März 2010 12:55
20. März 2010 15:18
20. März 2010 18:25
CuPublics.SetPrinter(RecReportSelections."Printer Name Base");
REPORT.RUN(RecReportSelections."Report ID",FALSE,FALSE,RecInvSalesHeader);
// Die GetPrinter() Funktion löscht gleichzeitig den Drucker in der PUBLIC Variablen!
FestgelegterDrucker := CuPublics.GetPrinter();
IF FestgelegterDrucker <> '' THEN BEGIN
// Wenn die PUBLIC Variable mit einem Drucker belegt wurde, wird dieser Bevorzugt verwendet!
LängeNameDruckerauswahl := STRLEN(FestgelegterDrucker);
drucker.RESET;
REPEAT
UNTIL (drucker.NEXT = 0) OR
(UPPERCASE(COPYSTR(drucker.ID, 1, LängeNameDruckerauswahl)) = UPPERCASE(FestgelegterDrucker));
IF (UPPERCASE(COPYSTR(drucker.ID, 1, LängeNameDruckerauswahl)) = UPPERCASE(FestgelegterDrucker)) THEN
EXIT(drucker.ID)
ELSE
EXIT('');
END ELSE BEGIN
IF NOT RecPrinterSelection.GET(USERID, ReportID) THEN
IF NOT RecPrinterSelection.GET('', ReportID) THEN
IF NOT RecPrinterSelection.GET(USERID,0) THEN
IF RecPrinterSelection.GET('',0) THEN;
Standard-Druckerbehandlung
END;
20. März 2010 22:47
21. März 2010 00:24
21. März 2010 14:10
21. März 2010 15:17