And everything looks fine there, code from procedure Editor of .w file:
/* Browse definitions */
DEFINE BROWSE BROWSE-1
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _DISPLAY-FIELDS BROWSE-1 wWin _FREEFORM
QUERY BROWSE-1 NO-LOCK DISPLAY
JobHead.JobNum FORMAT "x(14)":U WIDTH 14.0
OrderDtl.PartNum FORMAT "x(20)":U WIDTH 15.0
OrderDtl.LineDesc FORMAT "X(50)":U WIDTH 18
JobHead.ProdQty COLUMN-LABEL "Qty" WIDTH 8.0
SchedPri.DESCRIPTION COLUMN-LABEL "Priority?" FORMAT "X(50)":U WIDTH 10.0
JobHead.SchedLocked COLUMN-LABEL "Locked?" WIDTH 9
JobHead.ReqDueDate COLUMN-LABEL "Job ReqBy" FORMAT "99/99/99":U
WIDTH 11.2
OrderDtl.DocOrdBasedPrice * OrderDtl.OrderQty @ DollarValue COLUMN-LABEL "$ Value"
WIDTH 11
JobHead.DueDate COLUMN-LABEL "Job Due" FORMAT "99/99/99":U
WIDTH 13.0
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
WITH NO-ROW-MARKERS SEPARATORS SIZE 118 BY 10.71
BGCOLOR 11 FONT 6 ROW-HEIGHT-CHARS .86 EXPANDABLE.
Pre-processor code:
/* ******************** Preprocessor Definitions ******************** */
&Scoped-define PROCEDURE-TYPE SmartWindow
&Scoped-define DB-AWARE no
&Scoped-define ADM-CONTAINER WINDOW
&Scoped-define ADM-SUPPORTED-LINKS Data-Target,Data-Source,Page-Target,Update-Source,Update-Target,Filter-target,Filter-Source
/* Name of first Frame and/or Browse and/or first Query */
&Scoped-define FRAME-NAME fMain
&Scoped-define BROWSE-NAME BROWSE-1
/* Internal Tables (found by Frame, Query & Browse Queries) */
&Scoped-define INTERNAL-TABLES JobHead JobProd OrderDtl SchedPri
/* Definitions for BROWSE BROWSE-1 */
&Scoped-define FIELDS-IN-QUERY-BROWSE-1 JobHead.JobNum OrderDtl.PartNum OrderDtl.LineDesc JobHead.ProdQty SchedPri.DESCRIPTION JobHead.SchedLocked JobHead.ReqDueDate OrderDtl.DocOrdBasedPrice * OrderDtl.OrderQty @ DollarValue JobHead.DueDate
&Scoped-define ENABLED-FIELDS-IN-QUERY-BROWSE-1
&Scoped-define SELF-NAME BROWSE-1
&Scoped-define QUERY-STRING-BROWSE-1 FOR EACH JobHead WHERE JobHead.Company = "dble" AND JobHead.JobClosed = FALSE AND JobHead.JobComplete = FALSE AND JobHead.JobReleased = TRUE NO-LOCK, ~
EACH JobProd OF JobHead NO-LOCK, ~
EACH OrderDtl OF JobProd NO-LOCK, ~
EACH SchedPri OF JobHead NO-LOCK BY JobHead.DueDate BY (OrderDtl.DocOrdBasedPrice * OrderDtl.OrderQty) DESCENDING
&Scoped-define OPEN-QUERY-BROWSE-1 OPEN QUERY {&SELF-NAME} FOR EACH JobHead WHERE JobHead.Company = "dble" AND JobHead.JobClosed = FALSE AND JobHead.JobComplete = FALSE AND JobHead.JobReleased = TRUE NO-LOCK, ~
EACH JobProd OF JobHead NO-LOCK, ~
EACH OrderDtl OF JobProd NO-LOCK, ~
EACH SchedPri OF JobHead NO-LOCK BY JobHead.DueDate BY (OrderDtl.DocOrdBasedPrice * OrderDtl.OrderQty) DESCENDING.
&Scoped-define TABLES-IN-QUERY-BROWSE-1 JobHead JobProd OrderDtl SchedPri
&Scoped-define FIRST-TABLE-IN-QUERY-BROWSE-1 JobHead
&Scoped-define SECOND-TABLE-IN-QUERY-BROWSE-1 JobProd
&Scoped-define THIRD-TABLE-IN-QUERY-BROWSE-1 OrderDtl
&Scoped-define FOURTH-TABLE-IN-QUERY-BROWSE-1 SchedPri
Here is the problem bit, under Control Definitions, definition of BROWSE-1:
/* *********************** Control Definitions ********************** */
/* Define the widget handle for the window */
DEFINE VAR wWin AS WIDGET-HANDLE NO-UNDO.
/* Definitions of the field level widgets */
/* Query definitions */
&ANALYZE-SUSPEND
DEFINE QUERY BROWSE-1 FOR
JobHead,
JobProd,
OrderDtl,
&ANALYZE-RESUME
Should be:
DEFINE QUERY BROWSE-1 FOR
JobHead,
JobProd,
OrderDtl,
Schedpri SCROLLING.
I add the 'Schedpri SCROLLING.' thru Procedure Editor, check syntax-everthing fine, save.
( Note that saving , at this point, as a .p, everthing stays in place and runs fine. )
Open again in AppBuilder, this portion has reverted back to:
DEFINE QUERY BROWSE-1 FOR
JobHead,
JobProd,
OrderDtl,
&ANALYZE-RESUME
And .w has errors, will not run.
_QUERY-BLOCK CODE:
/* Setting information for Queries and Browse Widgets fields */
&ANALYZE-SUSPEND _QUERY-BLOCK BROWSE BROWSE-1
/* Query rebuild information for BROWSE BROWSE-1
_START_FREEFORM
OPEN QUERY {&SELF-NAME} FOR EACH JobHead
WHERE JobHead.Company = "dble"
AND JobHead.JobClosed = FALSE
AND JobHead.JobComplete = FALSE
AND JobHead.JobReleased = TRUE NO-LOCK,
EACH JobProd OF JobHead NO-LOCK,
EACH OrderDtl OF JobProd NO-LOCK,
EACH SchedPri OF JobHead NO-LOCK
BY JobHead.DueDate
BY (OrderDtl.DocOrdBasedPrice * OrderDtl.OrderQty) DESCENDING.
_END_FREEFORM
_Options = "NO-LOCK INDEXED-REPOSITION"
_TblOptList = ",,"
_OrdList = "mfgsys.JobHead.DueDate|yes"
_Where[1] = "JobHead.Company = ""dble""
AND JobHead.JobClosed = FALSE
AND JobHead.JobReleased = TRUE"
_Query is OPENED
*/ /* BROWSE BROWSE-1 */
&ANALYZE-RESUME
Note that this portion is commented out for some reason, by the AppBuilder.