Ship and Invoice

Hey KMK,

If that you want to do for all users follow below steps -

1. Design Codeunit 81.

2. Create a Text Constant Say Text5000 with Const Value as &Ship.

3. Under function Code, change the Function as shown below -

Standard CODE -

SalesSetup.GET;
WITH SalesHeader DO BEGIN
  CASE "Document Type" OF
    "Document Type"::Order:
      BEGIN
        Selection := STRMENU(Text000,3);
        IF Selection = 0 THEN
          EXIT;
        Ship := Selection IN [1,3];
        Invoice := Selection IN [2,3];
      END;

New Code -

SalesSetup.GET;
WITH SalesHeader DO BEGIN
  CASE "Document Type" OF
    "Document Type"::Order:
      BEGIN
        //Selection := STRMENU(Text000,3);
        Selection := STRMENU(Text5000,1);
        IF Selection = 0 THEN
          EXIT;
        Ship := Selection IN [1,3];
        Invoice := Selection IN [2,3];
      END;

Let me know if any issues.