AP Invoice Entry Customization

I tried BPMs for 2 weeks.. it dint help!!

--- In vantage@yahoogroups.com, "Vic Drecchio" wrote:
>
> Me personally, I'd drop the screen customizations and use BPMs. Have you
> done BPMs before?
>
>
>
> From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
> sanjay219@...
> Sent: Wednesday, February 06, 2013 4:28 PM
> To: vantage@yahoogroups.com
> Subject: [Vantage] AP Invoice Entry Customization
>
>
>
>
>
> I need to show up a message, when a receipt line is added to the AP invoice
> entry, and if the APInvoiceDate(Header) is less than APReceiptDate(Lines). I
> need this warning when i click save.
> I used the customization wizard. I tried the following code in the Form
> Event Wizard. I chose Event Type as Closing, and it worked well. I need
> this(show message) to happen when I click save. Any suggestions?
>
> Dim apidtl As EpiDataView = CType(oTrans.EpiDataViews("APInvDtl"),
> EpiDataView)
> Dim rcpt As DateTime = apidtl.dataView(apidtl.Row)("RcptReceiptDate& amp;
> quot;)
>
> Dim apihed As EpiDataView = CType(oTrans.EpiDataViews("APInvHed"),
> EpiDataView)
> Dim Idate As DateTime = apihed.dataView(apihed.Row)("InvoiceDate" ; ;)
>
> if(idate
>
>
>
>
>
>
> No virus found in this message.
> Checked by AVG - www.avg.com
> Version: 2012.0.2238 / Virus Database: 2639/5585 - Release Date: 02/06/13
>
>
>
>
> -----
> No virus found in this message.
> Checked by AVG - www.avg.com
> Version: 2012.0.2238 / Virus Database: 2639/5585 - Release Date: 02/06/13
>
> [Non-text portions of this message have been removed]
>
I need to show up a message, when a receipt line is added to the AP invoice entry, and if the APInvoiceDate(Header) is less than APReceiptDate(Lines). I need this warning when i click save.
I used the customization wizard. I tried the following code in the Form Event Wizard. I chose Event Type as Closing, and it worked well. I need this(show message) to happen when I click save. Any suggestions?

Dim apidtl As EpiDataView = CType(oTrans.EpiDataViews("APInvDtl"), EpiDataView)
Dim rcpt As DateTime = apidtl.dataView(apidtl.Row)("RcptReceiptDate& amp; quot;)

Dim apihed As EpiDataView = CType(oTrans.EpiDataViews("APInvHed"), EpiDataView)
Dim Idate As DateTime = apihed.dataView(apihed.Row)("InvoiceDate" ; ;)

if(idate<rcpt)
MessageBox.Show("Check Dates")
end if
Me personally, I'd drop the screen customizations and use BPMs. Have you
done BPMs before?



From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
sanjay219@...
Sent: Wednesday, February 06, 2013 4:28 PM
To: vantage@yahoogroups.com
Subject: [Vantage] AP Invoice Entry Customization





I need to show up a message, when a receipt line is added to the AP invoice
entry, and if the APInvoiceDate(Header) is less than APReceiptDate(Lines). I
need this warning when i click save.
I used the customization wizard. I tried the following code in the Form
Event Wizard. I chose Event Type as Closing, and it worked well. I need
this(show message) to happen when I click save. Any suggestions?

Dim apidtl As EpiDataView = CType(oTrans.EpiDataViews("APInvDtl"),
EpiDataView)
Dim rcpt As DateTime = apidtl.dataView(apidtl.Row)("RcptReceiptDate& amp;
quot;)

Dim apihed As EpiDataView = CType(oTrans.EpiDataViews("APInvHed"),
EpiDataView)
Dim Idate As DateTime = apihed.dataView(apihed.Row)("InvoiceDate" ; ;)

if(idate






No virus found in this message.
Checked by AVG - www.avg.com
Version: 2012.0.2238 / Virus Database: 2639/5585 - Release Date: 02/06/13




-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 2012.0.2238 / Virus Database: 2639/5585 - Release Date: 02/06/13

[Non-text portions of this message have been removed]