O
oedev
Guest
Thanks for the reply, but not sure that works for me. Probably a better example (with a different error!) is against the sports 2000 database. Take the example below, which gives an error stating that "Must assign a user query to a data-source that is a join before filling" 11980 DEFINE TEMP-TABLE ttOrder LIKE-SEQUENTIAL Order FIELD OrderTotal AS DECIMAL FIELD CustName LIKE Customer.Name FIELD RepName LIKE SalesRep.RepName. DEFINE TEMP-TABLE ttOline LIKE-SEQUENTIAL OrderLine FIELD ItemName LIKE ITEM.ItemName FIELD Weight LIKE ITEM.Weight FIELD OnHand LIKE ITEM.OnHand FIELD OnOrder LIKE ITEM.OnOrder. DEFINE DATASET dsOrder FOR ttOrder, ttOline DATA-RELATION OrderToOrderLine FOR ttOrder, ttOline RELATION-FIELDS (OrderNum, OrderNum). DEFINE QUERY qOrder FOR Order, Customer, SalesRep. DEFINE DATA-SOURCE srcOrder FOR QUERY qOrder Order KEYS (OrderNum), Customer KEYS (CustNum), SalesRep KEYS (SalesRep). DEFINE DATA-SOURCE srcOline FOR OrderLine KEYS (OrderNum), Item KEYS (ItemNum). QUERY qOrder:QUERY-PREPARE("FOR EACH Order WHERE Order.OrderNum = 1, " + "FIRST Customer OF Order, FIRST SalesRep OF Order"). BUFFER ttOrder:ATTACH-DATA-SOURCE(DATA-SOURCE srcOrder:HANDLE, "Customer.Name,CustName"). BUFFER ttOline:ATTACH-DATA-SOURCE(DATA-SOURCE srcOline:HANDLE). DATASET dsOrder:FILL(). BUFFER ttOrder
ETACH-DATA-SOURCE(). BUFFER ttOlineETACH-DATA-SOURCE(). So, replacing the second datasource to reference a query, but that gives an error 7327 (because I've referenced the order table), however, removing the reference to the order table means I get every order line the database; DEFINE TEMP-TABLE ttOrder LIKE-SEQUENTIAL Order FIELD OrderTotal AS DECIMAL FIELD CustName LIKE Customer.Name FIELD RepName LIKE SalesRep.RepName. DEFINE TEMP-TABLE ttOline LIKE-SEQUENTIAL OrderLine FIELD ItemName LIKE ITEM.ItemName FIELD Weight LIKE ITEM.Weight FIELD OnHand LIKE ITEM.OnHand FIELD OnOrder LIKE ITEM.OnOrder. DEFINE DATASET dsOrder FOR ttOrder, ttOline DATA-RELATION OrderToOrderLine FOR ttOrder, ttOline RELATION-FIELDS (OrderNum, OrderNum). DEFINE QUERY qOrder FOR Order, Customer, SalesRep. DEFINE QUERY qOrderLine FOR OrderLine, ITEM. DEFINE DATA-SOURCE srcOrder FOR QUERY qOrder Order KEYS (OrderNum), Customer KEYS (CustNum), SalesRep KEYS (SalesRep). DEFINE DATA-SOURCE srcOline FOR QUERY qOrderLine OrderLine KEYS (LineNum), ITEM KEYS (ItemNum). QUERY qOrder:QUERY-PREPARE("FOR EACH Order WHERE Order.OrderNum = 1, " + "FIRST Customer OF Order, FIRST SalesRep OF Order"). BUFFER ttOrder:ATTACH-DATA-SOURCE(DATA-SOURCE srcOrder:HANDLE, "Customer.Name,CustName"). QUERY qOrderLine:QUERY-PREPARE("FOR EACH OrderLine OF Order, " + "FIRST Item OF OrderLine"). BUFFER ttOline:ATTACH-DATA-SOURCE(DATA-SOURCE srcOline:HANDLE). DATASET dsOrder:FILL(). BUFFER ttOrderETACH-DATA-SOURCE(). BUFFER ttOlineETACH-DATA-SOURCE().
Continue reading...
ETACH-DATA-SOURCE(). BUFFER ttOlineETACH-DATA-SOURCE(). So, replacing the second datasource to reference a query, but that gives an error 7327 (because I've referenced the order table), however, removing the reference to the order table means I get every order line the database; DEFINE TEMP-TABLE ttOrder LIKE-SEQUENTIAL Order FIELD OrderTotal AS DECIMAL FIELD CustName LIKE Customer.Name FIELD RepName LIKE SalesRep.RepName. DEFINE TEMP-TABLE ttOline LIKE-SEQUENTIAL OrderLine FIELD ItemName LIKE ITEM.ItemName FIELD Weight LIKE ITEM.Weight FIELD OnHand LIKE ITEM.OnHand FIELD OnOrder LIKE ITEM.OnOrder. DEFINE DATASET dsOrder FOR ttOrder, ttOline DATA-RELATION OrderToOrderLine FOR ttOrder, ttOline RELATION-FIELDS (OrderNum, OrderNum). DEFINE QUERY qOrder FOR Order, Customer, SalesRep. DEFINE QUERY qOrderLine FOR OrderLine, ITEM. DEFINE DATA-SOURCE srcOrder FOR QUERY qOrder Order KEYS (OrderNum), Customer KEYS (CustNum), SalesRep KEYS (SalesRep). DEFINE DATA-SOURCE srcOline FOR QUERY qOrderLine OrderLine KEYS (LineNum), ITEM KEYS (ItemNum). QUERY qOrder:QUERY-PREPARE("FOR EACH Order WHERE Order.OrderNum = 1, " + "FIRST Customer OF Order, FIRST SalesRep OF Order"). BUFFER ttOrder:ATTACH-DATA-SOURCE(DATA-SOURCE srcOrder:HANDLE, "Customer.Name,CustName"). QUERY qOrderLine:QUERY-PREPARE("FOR EACH OrderLine OF Order, " + "FIRST Item OF OrderLine"). BUFFER ttOline:ATTACH-DATA-SOURCE(DATA-SOURCE srcOline:HANDLE). DATASET dsOrder:FILL(). BUFFER ttOrderETACH-DATA-SOURCE(). BUFFER ttOlineETACH-DATA-SOURCE().Continue reading...