OrderSpec.OrderCreate Method |
Namespace: VO
1// create orders for a multi-order file: 2oDB := DBFileSpec{, "DBFCDX"} 3IF oDB:Find() 4oOrd1 := OrderSpec{oDB} 5oOrd2 := OrderSpec{oDB} 6oOrd3 := OrderSpec{oDB} 7oOrd1:OrderCreate("C:\TEST\customer.cdx", "FirstName", "FirstName") 8oOrd2:OrderCreate("C:\TEST\customer.cdx", "LastName", "LastName") 9oOrd3:OrderCreate("C:\TEST\customer.cdx", "CustNum", "CustNum") 10ENDIF 11// create orders for single-order files: 12oDB := DBFileSpec{, "DBFNTX"} 13IF oDB:Find() 14oOrd1 := OrderSpec{oDB} 15oOrd2 := OrderSpec{oDB} 16oOrd3 := OrderSpec{oDB} 17oOrd1:OrderCreate("C:\TEST\cust1.ntx", , "FirstName") 18oOrd2:OrderCreate("C:\TEST\cust2.ntx", , "LastName") 19oOrd3:OrderCreate"C:\TEST\cust3.ntx", , "CustNum") 20ENDIF 21// create some orders using instance variables for a multi-order file: 22oDB := DBFileSpec{, "DBFCDX"} 23IF oDB:Find() 24oOrd1 := OrderSpec{oDB} 25oOrd2 := OrderSpec{oDB} 26oOrd3 := OrderSpec{oDB} 27// create an order starting from record 3 and display the progress. 28oOrd1:FileName := "customer" 29oOrd1:OrderName := "FirstName" 30oOrd1:OrderExpr := "FirstName" 31oOrd1:OrderBlock := {| | _Field->FirstName } 32oOrd1:All := FALSE 33oOrd1:EvalBlock := {| | _Field->FirstName, Qout(RECNO()), TRUE} 34oOrd1:Start := 3 35oOrd1:Rest := TRUE 36// create a unique, descending order on lastname field 37oOrd2:FileName := "customer" 38oOrd2:OrderName := "LastName" 39oOrd2:OrderExpr := "LastName" 40oOrd2:OrderBlock := {| | _Field->LastName } 41oOrd2:Unique := TRUE 42oOrd2:DESCEND := TRUE 43// create a FOR condition based on firstnames with starting letter > "M" 44oOrd3:FileName := "customer" 45oOrd3:OrderName := "FirstName" 46oOrd3:OrderExpr := "FirstName" 47oOrd3:OrderBlock := {| | _Field->FirstName } 48oOrd3:ForCond := "SubStr(_Field->FirstName, 1, 1) > 'M'" 49oOrd3:ForBlock := {| | SUBSTR(_Field->FirstName, 1, 1) > 'M' } 50oOrd1:OrderCreate( ) 51oOrd2:OrderCreate( ) 52oOrd3:OrderCreate( ) 53ENDIF