OK, I've got an oddball that's made me lose my hair (what's left of it).
I've got vb code within the sales order customization that, under certain
circumstances, goes through and updates the Discount Percent on the order
header, and each Order Detail line. In essence, my code uses the epi
dataview to set the orderhed discount percent, then I loop through each
detail and update the detail discount percent.
Here's the issue - if I open order entry and IMMEDIATELY invoke this code, I
get a dialog box on the orderhed update, and each orderdtl update that asks
if I want to save the changes. However, if I do any other saving after
opening order entry, then invoke this code, it works with no confirmation
dialog boxes.
Has anyone experienced this?
Here's the code, note that I included beginedit/endedit in the code - made
no difference.
Dim edvH As EpiDataView = CType(oTrans.EpiDataViews("OrderHed"),
EpiDataView)
Dim edvD As EpiDataView = CType(oTrans.EpiDataViews("OrderDtl"),
EpiDataView)
edvH.dataview(edvH.row)("DiscountPercent") = NewDiscPct
otrans.update() ' This is where it gives me a save confirmation dialog
box
for each DtlDR as datarow in edvd.dataview.Table.rows
DtlDR("DiscountPercent") = NewDiscPct
otrans.Update() ' This is also where it gives me a save
confirmation dialog box
next
Thanks
Kevin Simon
[Non-text portions of this message have been removed]
I've got vb code within the sales order customization that, under certain
circumstances, goes through and updates the Discount Percent on the order
header, and each Order Detail line. In essence, my code uses the epi
dataview to set the orderhed discount percent, then I loop through each
detail and update the detail discount percent.
Here's the issue - if I open order entry and IMMEDIATELY invoke this code, I
get a dialog box on the orderhed update, and each orderdtl update that asks
if I want to save the changes. However, if I do any other saving after
opening order entry, then invoke this code, it works with no confirmation
dialog boxes.
Has anyone experienced this?
Here's the code, note that I included beginedit/endedit in the code - made
no difference.
Dim edvH As EpiDataView = CType(oTrans.EpiDataViews("OrderHed"),
EpiDataView)
Dim edvD As EpiDataView = CType(oTrans.EpiDataViews("OrderDtl"),
EpiDataView)
edvH.dataview(edvH.row)("DiscountPercent") = NewDiscPct
otrans.update() ' This is where it gives me a save confirmation dialog
box
for each DtlDR as datarow in edvd.dataview.Table.rows
DtlDR("DiscountPercent") = NewDiscPct
otrans.Update() ' This is also where it gives me a save
confirmation dialog box
next
Thanks
Kevin Simon
[Non-text portions of this message have been removed]