Hi,
Thanks that is brilliant you are a star... Really got me out of a
hole and will help on other issues.
Thanks again and again.
Thanks that is brilliant you are a star... Really got me out of a
hole and will help on other issues.
Thanks again and again.
--- In vantage@yahoogroups.com, "bw2868bond" <bwalker@...> wrote:
>
> Try this:
> Module Script
>
>
> '// ** Wizard Insert Location - Do Not Remove 'Begin/End
> Wizard Added Module Level Variables' Comments! **
> '// Begin Wizard Added Module Level Variables **
>
> Private WithEvents edvPendingRcvDtl As EpiDataView
> Private DidThat As Boolean
> Private WithEvents oTrans_receiptAdapter As EpiBaseAdapter
>
> '// End Wizard Added Module Level Variables **
>
>
> '// Add Custom Module Level Variables Here **
>
>
>
> Sub InitializeCustomCode()
>
> '// ** Wizard Insert Location - Do not
> delete 'Begin/End Wizard Added Variable Intialization' lines **
> '// Begin Wizard Added Variable Intialization
>
> oTrans_receiptAdapter = csm.TransAdaptersHT
> ("oTrans_receiptAdapter")
>
> '// End Wizard Added Variable Intialization
> '// Begin Custom Method Calls
> DidThat = False
> edvPendingRcvDtl = CType(oTrans.EpiDataViews
> ("PendingRcvDtl"), EpiDataView)
> Dim edvPending As EpiDataView = CType(oTrans.EpiDataViews
> ("PendingRcvDtl"), EpiDataView)
>
> If Not (edvPending.dataView.Table.Columns.Contains
("DueDate"))
> edvPending.dataView.Table.Columns.Add(new DataColumn
> ("DueDate"))
> End If
>
> '// End Custom Method Calls
> End Sub
>
>
>
> Sub DestroyCustomCode()
>
>
> '// ** Wizard Insert Location - Do not
> delete 'Begin/End Wizard Added Object Disposal' lines **
> '// Begin Wizard Added Object Disposal
>
> oTrans_receiptAdapter = Nothing
> '// End Wizard Added Object Disposal
> '// Begin Custom Code Disposal
>
> '// End Custom Code Disposal
> End Sub
>
>
>
>
>
>
> Private Function getDueDate(ByVal po as Integer, ByVal line as
> Integer, ByVal rel as Integer ) As String
> Dim dueDate As String
>
> Dim recordSelectedRel As Boolean
> Dim showSearch As Boolean = False
> Dim whereClauseRel As String = "PONum = '" & po & "' And
> POLine = '" & line & "' And PORelNum = '" & rel & "'"
> Dim dsRelease As DataSet = SearchFunctions.listLookup
> (ReceiptEntryForm, "PORelSearchAdapter", recordSelectedRel,
> showSearch, whereClauseRel)
> If (recordSelectedRel = True) Then
> dueDate = dsRelease.Tables(0).Rows(0)
> ("DueDate").ToShortDateString()
> End If
>
> Return dueDate
>
> End Function
>
> Private Sub AddDueDate()
> '//Add additional get the Due dates for the Released and
add
> more columns....
> Dim edvPending As EpiDataView = CType(oTrans.EpiDataViews
> ("PendingRcvDtl"), EpiDataView)
>
> If Not (edvPending.dataView.Table.Columns.Contains
("DueDate"))
> edvPending.dataView.Table.Columns.Add(new DataColumn
> ("DueDate"))
> End If
>
> '//Add the Value into the Rows
> For Each dr As DataRow in edvPending.dataView.Table.Rows
> If IsDBNull(dr("DueDate")) Then
> dr("DueDate") = getDueDate(dr("PONum"),dr
("POLine"),dr
> ("PORel"))
> End If
> Next
> End Sub
>
> Private Sub edvPendingRcvDtl_EpiViewNotification(view As
> EpiDataView, args As EpiNotifyArgs) Handles
> edvPendingRcvDtl.EpiViewNotification
> If (args.NotifyType =
> EpiTransaction.NotifyType.Initialize) Then
> If (args.Row > -1) And (DidThat = False) Then
> AddDueDate()
> DidThat = True
> End If
> If (args.Row = -1) Then
> DidThat = False
> End If
> End If
>
> End Sub
>
>
>
> Private Sub oTrans_receiptAdapter_AfterAdapterMethod(ByVal
> sender As object, ByVal args As AfterAdapterMethodArgs) Handles
> oTrans_receiptAdapter.AfterAdapterMethod
> '// ** Argument Properties and Uses **
> '// args.MethodName
> '
> 'Add Event Handler Code
> '
> 'MessageBox.Show(args.MethodName) ' use this to find
> method
>
> Select Case args.MethodName
>
> Case "Update"
> DidThat = False
> Case Else
>
> End Select
>
> End Sub
>
>
>
> End Module
>
> We have a lot more going on in our customization which I cut out -
I
> may have removed something needed for the due date by accident...
>
> --- In vantage@yahoogroups.com, "brychanwilliams"
> <brychanwilliams@> wrote:
> >
> > Hi,
> >
> > I have been trying to do this myself, I get the list to display
by
> > creating a dataview and applying the filter but it is not passing
> the
> > correct rows across. Maybe it is still referring to a the
original
> > dataview in the background? Did you manage to solve this one? If
> so,
> > any advice or direction which would be helpful?
> >
> > Thanks
> >
> > --- In vantage@yahoogroups.com, "Gary Parfrey" <garyp@> wrote:
> > >
> > > Bernie
> > >
> > >
> > >
> > > No its only available on the Received tab, not the pending
> receipt
> > tab.
> > > Crazy as you can only check what you have booked in incorrectly!
> > >
> > >
> > >
> > > This is in our own list of pending screen customizations
> > >
> > > Gary Parfrey
> > >
> > > Dot Net IT Limited, Reg No 4412519
> > >
> > > From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com]
On
> > Behalf
> > > Of bw2868bond
> > > Sent: 02 August 2007 13:29
> > > To: vantage@yahoogroups.com
> > > Subject: [Vantage] Receipt Entry - Release Due Date
> > >
> > >
> > >
> > > Do any of the 8.03.4xx Beta testers know if the PO Line Release
> > DueDate
> > > is a field available for display on the Receipt Entry pending
> > receipts
> > > grid?
> > >
> > > It is not available in 8.00 or 8.03.305. It seems like it would
> be
> > a
> > > nice bit of data to have for display when there are multiple
> > releases
> > > for a part and the dates may have gotten jumbled by PO
> > maintenance....
> > >
> > > The DueDate field is fundamentally lacking in the GetPendingDtl
> > Method
> > > so a quick and dirty customization doesn't look promising..
> > >
> > > Thanks,
> > >
> > > Bernie.
> > >
> > >
> > >
> > >
> > >
> > > [Non-text portions of this message have been removed]
> > >
> >
>