Purchase Order Form Access

[Ernst]

Our user would like the Purchase Order Line highlighted with a colour if Not fully delivered.

Seems easy enough as we have done line/ field highlighting in sales order using code like below. But there is no .Linedisplayed on the PurchaseOrderForm, And the purchaseorderform does not appear to have .grdlines.

Is this possible with the PO form. Thx..

AddHandler salesOrderForm.LineDisplayed, AddressOf SalesOrderForm_LineDisplayed

Private Sub SalesOrderForm_LineDisplayed(ByVal sender As Object, ByVal e As System.EventArgs, ByVal SalesOrderLine As JiwaSales.SalesOrder.SalesOrderLine,ByVal RowPassed As Integer)
' Unlock delivered and demand columns for all physical items
Dim salesOrderForm As JiwaSalesUI.SalesOrder.SalesOrderEntryForm = sender

For row As Integer = 0 To salesOrderForm.grdLines.ActiveSheet.RowCount - 1
Dim key As String = salesOrderForm.grdLines.GridText("Key", row)
If key = salesOrderLine.RecID Then
' Scotts Extra If to change colour etc
If salesOrderLine.DiscountedPrice = 0 Then
salesOrderForm.grdLines.ActiveSheet.Cells(row, salesOrderForm.grdLines.ActiveSheet.Columns("ExtPrice").Index).BackColor = System.Drawing.Color.Red
Else
salesOrderForm.grdLines.ActiveSheet.Cells(row, salesOrderForm.grdLines.ActiveSheet.Columns("ExtPrice").Index).BackColor = System.Drawing.Color.White
End If
If salesOrderLine.QuantityDemand > 0 Then
salesOrderForm.grdLines.ActiveSheet.Cells(row, salesOrderForm.grdLines.ActiveSheet.Columns("QuantityDemand").Index).BackColor = System.Drawing.Color.Blue
Else
salesOrderForm.grdLines.ActiveSheet.Cells(row, salesOrderForm.grdLines.ActiveSheet.Columns("QuantityDemand").Index).BackColor = System.Drawing.Color.White
End If
Exit For
End If
Next

End Sub

[DannyC]

This does it

Code: Select all

    Public Sub Setup(ByVal JiwaForm As JiwaApplication.IJiwaForm, ByVal Plugin As JiwaApplication.Plugin.Plugin) Implements JiwaApplication.IJiwaFormPlugin.Setup
      Dim purchaseOrderForm As JiwaFinancials.Jiwa.JiwaPurchaseOrdersUI.MainForm = JiwaForm
      AddHandler purchaseOrderForm.PurchaseOrder.ReadEnd, AddressOf PurchOrder_ReadEnd
    End Sub
   
   Private Sub PurchOrder_ReadEnd(ByVal sender As Object, ByVal e As System.EventArgs)
      Dim purchaseOrder As JiwaPurchaseOrders.PurchaseOrder = DirectCast(sender, JiwaPurchaseOrders.PurchaseOrder)
      Dim row As Integer = 0
      Dim poForm As JiwaFinancials.Jiwa.JiwaPurchaseOrdersUI.MainForm = purchaseOrder.Client
      For Each purchaseOrderLine As JiwaPurchaseOrders.Line In purchaseOrder.Lines
         If purchaseOrderLine.Quantity > purchaseOrderLine.Delivered Then
            poForm.LinesJiwaGrid.ActiveSheet.Cells(row, poForm.LinesJiwaGrid.ActiveSheet.Columns("Qty").Index).BackColor = System.Drawing.Color.Red
         Else
            poForm.LinesJiwaGrid.ActiveSheet.Cells(row, poForm.LinesJiwaGrid.ActiveSheet.Columns("Qty").Index).BackColor = System.Drawing.Color.White
         End If
      row = row + 1   
      Next   
   End Sub   


[SBarnes]

Similarly if you want to look at changing the colour if user changes a value in the grid you can subscribe to the grids change event with a function with a signature like

Code: Select all

void GridLines_Change(object sender, FarPoint.Win.Spread.ChangeEventArgs e)


FarPoint.Win.Spread.ChangeEventArgs has the row and column as properties.

[Ernst]

Thanks Danny.. That was a great solution. I added a "If form =" in the Setup. Not sure if it makes a difference. But seems to be the thing to do.

>>sbarnes Wasent sure where that bit of code would go. But thanks for the help.
void GridLines_Change(object sender, FarPoint.Win.Spread.ChangeEventArgs e)

PS.. How do you place a piece of code in a box?


Public Sub Setup(ByVal JiwaForm As JiwaApplication.IJiwaForm, ByVal Plugin As JiwaApplication.Plugin.Plugin) Implements JiwaApplication.IJiwaFormPlugin.Setup
If TypeOf(JiwaForm) Is JiwaFinancials.Jiwa.JiwaPurchaseOrdersUI.PurchaseOrders Then
Dim purchaseOrderForm As JiwaFinancials.Jiwa.JiwaPurchaseOrdersUI.MainForm = JiwaForm
AddHandler purchaseOrderForm.PurchaseOrder.ReadEnd, AddressOf PurchOrder_ReadEnd
End If
End Sub

Untitled.jpg (31.25 KiB) Viewed 1123 times

[SBarnes]

To place a piece of code in a box there is a code button on the forum post tool bar and you just place the raw code between the tags.


For the grid change code you add a handler in the setup similar to

Code: Select all

AddHandler purchaseOrderForm.PurchaseOrder.ReadEnd, AddressOf PurchOrder_ReadEnd


but as

Code: Select all

AddHandler purchaseOrderForm.LinesJiwaGrid.Changed, AddressOf GridLines_Change