🚀 go-pugleaf

If I have  "ORDHDR.DBF","FRCOL.DBF" and "ORDER.QBE"
and form "ORDERWF.WFM" in Visual dBASE 5.5
like this


1.  CLASS ORDERWFFORM OF FORM
2.    Set Procedure To D:\VISUALDB\SAMPLES\BUTTONS.CC additive
3.    this.OnOpen = CLASS::FORM_ONOPEN
4.    this.OnGotFocus = CLASS::FORM_ONGOTFOCUS
5.    this.Top = 0.5
6.    this.Height = 25
7.    this.OnLostFocus = CLASS::FORM_ONLOSTFOCUS
8.    this.Width = 88.5
9.    this.Sizeable = .F.
10.   this.OnClose = CLASS::FORM_ONCLOSE
11.   this.Text = ""
12.   this.Moveable = .F.
13.   this.Maximize = .F.
14.   this.Minimize = .F.
15.   this.View = "ORDER.QBE"
16.   this.Left = 8.25


17.   DEFINE ENTRYFIELD EFTAGNAME OF THIS;
18.       PROPERTY;
19.         DataLink "ordhdr->HTAGNAME",;
20         Top 0.2979,;
21.         Height 0.9961,;
22.         Width 20,;
23.         OnChange {;select ordhdr;replace ordhdr->hTagName with
this.Value},;
24.         ColorHighLight "0xa00000/0x80ffff",;
25.         Left 20


26. Procedure OKBUTTON1_OnClick
27.      P_ProceedYes = .T.
28.         SELECT frcol
29.         set filter to
30.         go top
31.         SEEK left(form.cbDStyle.Value,3)+left(form.cbFrCol.Value,2)
32.         if FOUND()
33.            SELECT ordhdr
34.            seek P_OrdNo
35.            Replace ordhdr->hFinUpP   With frcol->finUp
36.            Replace ordhdr->hDrwFrUp  With frcol->fDrwFrUp
37.            Replace ordhdr->hDoorStUp With frcol->fDoorSUp
38.            Replace ordhdr->hRegAl    With frcol->fRegAl
39.         else
40.            SELECT ordhdr
41.            MSGBOX("Invalid Color: "+;
42.
left(form.cbDStyle.Value,3)+left(form.cbFrCol.Value,2),"Error",16)
43.            P_ProceedYes = .F.
44.         endif
45.      endif
46.      if P_ProceedYes
47.         form.Close()
48.      endif
49.   Return


Question is: What should code for lines 15,23,28,29,31,33,35,40 look
like in 7.0

Thank you!