[progress Communities] [progress Openedge Abl] Forum Post: Re: 10.2b Prodataset Error No 11874

[Murilo Pereira]

I got it to work. First, the problem you're having is probably because by the time you fill the dataset, the callback-procedures are out of scope. I put the fill INSIDE the code above, and it seems to work. I also removed the tables in the ttOrder datasource field pairs, since there's no custname in order, only custnum. This would be my first (calling) procedure: DEFINE TEMP-TABLE ttOLine LIKE orderLine. DEFINE TEMP-TABLE ttOrder LIKE order FIELD totalOrder AS DECIMAL. DEFINE TEMP-TABLE ttItem LIKE ITEM. DEFINE DATASET dsOrder FOR ttOrder, ttOLine, ttItem. DEFINE VARIABLE hDS AS HANDLE NO-UNDO. ASSIGN hDS = DATASET dsOrder:HANDLE. run p:\tests\dataset.p (INPUT 1 , INPUT-OUTPUT DATASET dsOrder BY-REFERENCE). FOR EACH ttOrder: DISP ttOrder.ordernum. END. And this would be the code you have above, a little different: DEFINE TEMP-TABLE ttOLine LIKE orderLine. DEFINE TEMP-TABLE ttOrder LIKE order FIELD totalOrder AS DECIMAL. DEFINE TEMP-TABLE ttItem LIKE ITEM. DEFINE DATASET dsOrder FOR ttOrder, ttOLine, ttItem. DEFINE INPUT PARAMETER piOrderNum AS INTEGER NO-UNDO. /*.DEFINE INPUT PARAMETER phDataSet AS HANDLE NO-UNDO.*/ DEFINE INPUT-OUTPUT PARAMETER DATASET FOR dsOrder. DEFINE VARIABLE phdataset AS HANDLE NO-UNDO. phDataset = DATASET dsOrder:HANDLE. DEFINE QUERY qOrder FOR Order, Customer, SalesRep. DEFINE VARIABLE iBuff AS INTEGER NO-UNDO. DEFINE VARIABLE hBuff AS HANDLE NO-UNDO. DEFINE DATA-SOURCE srcOrder FOR QUERY qOrder Order KEYS (OrderNum), Customer KEYS (CustNum), SalesRep KEYS (SalesRep). DEFINE DATA-SOURCE srcOline FOR OrderLine. DEFINE DATA-SOURCE srcItem FOR ITEM KEYS (ItemNum). phDataSet:SET-CALLBACK-PROCEDURE ("BEFORE-FILL", "preDataSetFill", THIS-PROCEDURE). phDataSet:SET-CALLBACK-PROCEDURE ("AFTER-FILL", "postDataSetFill", THIS-PROCEDURE). phDataSet:GET-BUFFER-HANDLE("ttOrder"):SET-CALLBACK-PROCEDURE ("BEFORE-FILL", "preOrderFill", THIS-PROCEDURE). phDataSet:GET-BUFFER-HANDLE("ttOline"):SET-CALLBACK-PROCEDURE ("AFTER-FILL", "postOlineFill", THIS-PROCEDURE). phDataSet:GET-BUFFER-HANDLE("ttItem"):SET-CALLBACK-PROCEDURE ("AFTER-ROW-FILL", "postItemRowFill", THIS-PROCEDURE). DATASET dsOrder:FILL(). PROCEDURE preDataSetFill: DEFINE INPUT PARAMETER DATASET FOR dsOrder. QUERY qOrder:QUERY-PREPARE("FOR EACH Order WHERE Order.OrderNum = " + STRING(piOrderNum) + ", FIRST Customer OF Order, FIRST SalesRep OF Order"). END PROCEDURE. /* preDataSetFill */ PROCEDURE postDataSetFill: DEFINE INPUT PARAMETER DATASET FOR dsOrder. DO iBuff = 1 TO DATASET dsOrder:NUM-BUFFERS: DATASET dsOrder:GET-BUFFER-HANDLE(iBuff)ETACH-DATA-SOURCE(). END. END PROCEDURE. /* postDataSetFill */ PROCEDURE postOlineFill: DEFINE INPUT PARAMETER DATASET FOR dsOrder. DEFINE VARIABLE dTotal AS DECIMAL NO-UNDO. FOR EACH ttOline WHERE ttOline.OrderNum = ttOrder.OrderNum: dTotal = dTotal + ttOline.ExtendedPrice. END. ttOrder.TotalOrder = dTotal. END PROCEDURE. /* postOnlineFill */ PROCEDURE postItemRowFill: DEFINE INPUT PARAMETER DATASET FOR dsOrder. DEFINE VARIABLE iType AS INTEGER NO-UNDO. DEFINE VARIABLE cItemTypes AS CHARACTER NO-UNDO INIT "BASEBALL,CROQUET,FISHING,FOOTBALL,GOLF,SKI,SWIM,TENNIS". DEFINE VARIABLE iTypeNum AS INTEGER NO-UNDO. DEFINE VARIABLE cType AS CHARACTER NO-UNDO. DO iType = 1 TO NUM-ENTRIES(cItemTypes): cType = ENTRY(iType, cItemTypes). IF INDEX(ttItem.ItemName, cType) NE 0 THEN ttItem.ItemName = REPLACE(ttItem.ItemName, cType, cType). END. END PROCEDURE. PROCEDURE preOrderFill: DEFINE INPUT PARAMETER DATASET FOR dsOrder. BUFFER ttOrder:ATTACH-DATA-SOURCE(DATA-SOURCE srcOrder:HANDLE, "custnum,custnum"). END PROCEDURE. /*--------------------------*/ And even though you still get an error for failing to attach a datasource to the orderline temp-table, you get a record for ttOrder. Hope it helps, Murilo

Continue reading...