My again... this is still giving me trouble I didn't notice before...
When I drag/drop from one SalesOrder to another, I have to change the sales_order in the database, and assign a new line number. After that, I update both the current dw and the source dw. But for some reason the updates aren't happening... WorkOrders don't move to new SalesOrder. On the screen, everything seems to have worked just fine. If I close both SalesOrder windows and re-open them, the original WorkOrders are still there (ie: They didn't move). Must be something wrong with my logic... but I can't figure it out.
CHOOSE CASE drag_dw CASE this ... Do stuff this.Drag(End!) CASE ELSE // Move the Work Order from the source Sales Order to this one... ll_DragRow = drag_dw.GetSelectedRow( 0 ) ll_DropRow = this.RowCount() + 1 drag_dw.RowsCopy( ll_DragRow, ll_DragRow, Primary!, this, ll_DropRow, Primary! ) this.SetItem( ll_DropRow, "sales_order", il_FormID ) // Add line_nbr to new row this.SetItem( ll_DropRow,"line_nbr", ll_DropRow) this.SetItemStatus( ll_DropRow, 0, Primary!, DataModified! ) this.SelectRow(0, FALSE) this.ScrollToRow(ll_DropRow) this.SelectRow(ll_DropRow, TRUE) // Renumber the lines on the Source DW drag_dw.RowsDiscard( ll_DragRow, ll_DragRow, Primary! ) ll_LastRow = drag_dw.RowCount() ll_ThisRow = ll_DragRow do while ll_ThisRow <= ll_LastRow drag_dw.SetItem( ll_ThisRow, "line_nbr", ll_ThisRow ) ll_ThisRow ++ loop drag_dw.SelectRow(0, FALSE) drag_dw.Drag(End!) END CHOOSE this.Update(TRUE,TRUE) drag_dw.Update(TRUE,TRUE)
Any help is greatly appreciated.