Price Change item/ item without price should not print on Receipt: LS Retail 2013 R2

This is small customization in LS Retail for not print price change item in the receipt.

1. Create field in POS Trans. Line (99008981) table and Trans. Sales Entry (99001473) table.

Field No.  Field Name Data Type
50000  Print Line Boolean

2. Codeunit: POS Post Utility (99008902)

Add one line code in funtion: InsertSalesTransaction() 

SalesEntry."Customer No." := POSTransaction."Customer No."; //Existing
SalesEntry."Print Line"   := POSTransLineTmp."Print Line"; // Add Code

3. Create POS Command

Table: POS Command (99008920)

Create POS Command "PRICECH1" similar to PRICECH.

4. Codeunit: POS Transaction (99001570)

        //TRI HS START
        'PRICECH1':
          ChangePricePressed1(MenuLine.Parameter);
        //TRI HS STOP

Write above code after end of PRICECH Case statement.

Create ChangePricePressed1 Function as similar to ChangePricePressed function in the POS Transaction codeunit and add bold highlight code


LineRec.VALIDATE(Price,Dec);  //Existing Line

LineRec.VALIDATE(LineRec."Print Line",TRUE);       //Add Code
LineRec.MODIFY;                                                               //Add Code

WriteMgrStatus;      //Existing Line

5. Codeunit: POS Print Utility (99008903)

Add one line code in funtion as

PrintSalesInfo(VAR Transaction : Record "Transaction Header";Tray : Integer)

glTrans := Transaction;
SalesEntry.SETRANGE("Store No.",Transaction."Store No.");
SalesEntry.SETRANGE("POS Terminal No.",Transaction."POS Terminal No.");
SalesEntry.SETRANGE("Transaction No.",Transaction."Transaction No.");

SalesEntry.SETRANGE("Print Line",FALSE);  //Add Code
OrderByDepartment := GenPosFunc."Receipt Printing by Category";

6. Add PRICECH1 command in Post Command and Post Parameter 0

Block multiple Staff Login with same Staff ID in LS Retail POS (Nav 2013 R2)

Block same Staff Id login at difference terminals at same time in LS Retail POS.

Small Customization

1. Create Field in Staff table (99001461)
   Field Name              Type
   Login by                  Code        10
                                
2. Codeunit -> 10012718 (EPOS Controler)
   Function: LogoffPressed(pActivePanel : Text) : Boolean
     
   Create local variable
   Variable Name         Type              Subtype
    recStore                    record           Staff

@Function start
//TRI HS START 
IF (POSSession.StaffID = '') AND (POSSession.TerminalNo <> '') THEN BEGIN
  recStaff.RESET;
  recStaff.SETRANGE(recStaff."Login by",POSSession.TerminalNo);
  IF recStaff.FINDFIRST THEN
    REPEAT
      IF recStaff."Login by" = POSSession.TerminalNo THEN BEGIN
        recStaff1.RESET;
        recStaff1 := recStaff;
        recStaff1."Login by" := '';
        recStaff1.MODIFY;
      END;
    UNTIL recStaff.NEXT = 0;
END;
//TRI HS STOP

Add bold code between the two line as shown below

  IF POSSession.StaffID <> '' THEN BEGIN
//HS START# Code added to update Login Status field in Staff table
      recStaff.LOCKTABLE;
      recStaff.RESET;
      IF recStaff.GET(POSSession.StaffID) THEN BEGIN
        recStaff."Login by" := '';
        recStaff.MODIFY;
      END;
//HS STOP
    POSSession.SetStaff('');

3. Codeunit -> 99001572 (POS View)
   Function: Login(Manager : Boolean;SetNewStaffID : Code[10]) : Boolean
     
   Create local variable
   Variable Name         Type              Subtype
    recStore                    record           Staff

Add bold code between the two line as shown below

RetVal := POSSESSION.Login(Manager, TmpStaffID, TmpPassword, TmpWorkShift, MessageTxt);

//HS START # Code to block multiple login with same staff ID at POS

recStaff.LOCKTABLE;
recStaff.RESET;
IF recStaff.GET(TmpStaffID) THEN BEGIN
  IF RetVal AND (MessageTxt = '') THEN BEGIN
    IF (recStaff."Login by" = '') OR (recStaff."Login by" = POSSESSION.TerminalNo) THEN BEGIN
      recStaff."Login by" := POSSESSION.TerminalNo;
      recStaff.MODIFY;
    END ELSE BEGIN
      MessageTxt := 'Staff already Logged-in from ' + recStaff."Login by" +' terminal to the POS';
      RetVal := FALSE;
    END;
  END;
END;
//HS STOP

IF RetVal THEN BEGIN

---------------------------------------------------------------------------------

Enjoy...