Update Production Order Form if Sales Order Form has been updated

Question

Hi Experts, how can you update the "Due Date" in the Production Order form if the "Delivery Date" in the Sales Order form has been updated?  I am having problem catching the actual event if the Date was modified.  I'm not sure if I'm coding this correctly, but this is what I have so far:
            If ((pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_DATA_UPDATE) And (pVal.Before_Action = True)) Then
                strSQL = "SELECT DueDate FROM OWOR WHERE DueDate = '" & strDueDate & "'"
                orecordset = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                orecordset.DoQuery(strSQL)
            End If
Please share your examples.

Answer 1

All, thank you for your help.  I understand why it is not working now.  I was able to accomplish what I was lookin for with the following code (for anyone who was having the same problem as me:
            If pVal.FormTypeEx = "139" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_VALIDATE Then                     
                If pVal.ItemUID = "12" And pVal.BeforeAction = False And pVal.ActionSuccess = True Then  
                    oEditText = oForm.Items.Item("12").Specific
                    myNewDate = ConvertDateString(oEditText.Value, "test")                              
                    SODocEntry = oForm.Items.Item("8").Specific.Value                                     
                    oPdo = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oProductionOrders)          '
                    oRecordSet = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                    oRecordSet.DoQuery("SELECT DocEntry from OWOR where OriginABS = '" & SODocEntry & "'")
                    If Not oRecordSet.EoF Then
                        oPdo.GetByKey(oRecordSet.Fields.Item(0).Value)
                        oPdo.DueDate = myNewDate
                        intResult = oPdo.Update                                    
                        If intResult <> 0 Then                                                                               
oCompany.GetLastError(errInt, errString)
                            oApplication.MessageBox("oApplication_ItemEvent: " & errString)
                        End If
                        oRecordSet.MoveNext()                                                                               
End If
                End If
            End If