Implementing the nenumbers solution

Comments

• Options

  Savatage Member Posts: 7,142

  2005-03-07

  by looking at the download - it mentions you need to modify codeunit 1 with something like this..
  

  PROCEDURE FindPrinter@11(ReportID : Integer) : Text[80];
      VAR
        PrinterSelection : Record 78;
      BEGIN
        //LAWEUME 000313
        //Added functionality to ignore the ne-number in the printer selections table
        //and always read the correct ne-number in the virtual printer table
  
        CLEAR(PrinterSelection);
        IF NOT PrinterSelection.GET(USERID,ReportID) THEN
          IF NOT PrinterSelection.GET('',ReportID) THEN
            IF NOT PrinterSelection.GET(USERID,0) THEN
               ERROR('You must specify default printer'+
                     ' for user %1.',USERID)
            ELSE
               PrinterSelection.TESTFIELD("Printer Name");
  
        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)
                ELSE
                  ERROR('Printer %1 does not exist.',
                         PrinterSelection."Printer Name");
             END;
          END;
  
        EXIT(PrinterSelection."Printer Name");
      END;
  

  Harry Ruiz
  http://www.BiloBeauty.com
  http://www.autismspeaks.org

  0