10. April 2013 11:01
FindPrinter:
IF ( UserSetup.GET( USERID ) = FALSE ) THEN
UserSetup.INIT;
IF NOT PrinterSelection.GET(USERID,ReportID,'') THEN
IF NOT PrinterSelection.GET('',ReportID,UserSetup."Responsibility Center") THEN
IF NOT PrinterSelection.GET('',ReportID,'') THEN
IF NOT PrinterSelection.GET(USERID,0,'') THEN
IF NOT PrinterSelection.GET('',0,UserSetup."Responsibility Center") THEN
IF PrinterSelection.GET('',0,'') THEN;
IF NOT Printer.GET(PrinterSelection."Printer Name") THEN BEGIN
IF PrinterSelection."Printer Name" <> '' THEN BEGIN
Printer.SETRANGE(Name,SELECTSTR(1,PrinterSelection."Printer Name"));
IF Printer.FIND('-') THEN
PrinterSelection."Printer Name" := STRSUBSTNO('%1,%2',Printer.Name,Printer.Device)
END;
END;
// stop MST1-03.mkl
EXIT(PrinterSelection."Printer Name");
11. April 2013 08:16
11. April 2013 12:58
18. April 2013 13:17
18. April 2013 13:26
18. April 2013 13:50