Welcome to Forums
Sign in
|
Join
|
Help
|
Forums
in
VBA/API
Technical Forums
(Entire Site)
Search
Higher Education
Human Services
Healthcare
K-12 Schools
Arts & Cultural
Faith-Based
Foundations
Environmental
Animal Welfare
Associations
Fundraising
Constituent Relationship Management
Financial Management
Education Administration
Website Management
Direct Marketing
Ticketing
Consulting Services
Blackbaud Interactive
Training
Data Enrichment Services
Blackbaud OnDemand
Custom Report Solutions
Staffing Solutions
Maintenance
Disclaimer
Donor Acquisition
Prospect Research
Performance Benchmarking
Data Enrichment Services
Higher Education
Human Services
Healthcare
K-12 Schools
Arts & Cultural
Faith-Based
Foundations
Environmental
Video Interviews
Alerts
Knowledgebase
FAQs
Case Central
Downloads
Forums
Blogs
Support Newsletters
User Guides
System Recommendations
Blackbaud Conferences
Blackbaud Delivers
Target User Forum
Web Seminars
User Groups
Industry Events
Regional Seminars
Who We Are
Contact Us
Careers
Blogs
Press Room
Philanthropy
Nonprofit Resources
Partners
Investor Relations
PCI Compliance
Home
Blogs
Forums
Photos
Downloads
Forums
»
Technical Forums
»
VBA/API
»
Adding a gift amendment
Adding a gift amendment
Last post 04-19-2007 2:01 AM by
Gary Hay
. 0 replies.
Page 1 of 1 (1 items)
Sort Posts:
Oldest to newest
Newest to oldest
Previous
Next
04-19-2007 2:01 AM
Gary Hay
Posts
12
Adding a gift amendment
Reply
Contact
Hi, Knowledgebase no. BB248354 shows how to add a gift amendment with the amount field specified. I'm trying to do a similar thing where we want to specify the Date_1st_Pay and Schedule_Month fields, but I keep getting error 6 'Overflow'. The code is as below: ' get Recurring Gift record objGift.Load lngGiftId ' lngGiftId previously specified ' amend recurring gift schedule if not single month payment If strDescriptionFrequency <> "Monthly" And intRenewEvery <> 1 Then varDate = Format(DateAdd("m", 1 - intRenewEvery, CVar(objGift.Fields(GIFT_fld_NextTransactionDate))), "dd/mm/yyyy") ' adjust date to next month With objGiftAmendServer .Init REApplication.SessionContext, objGift Set objGiftAmend = .AddAmendment() With objGiftAmend .Fields(AMENDMENT_fld_Date_1st_Pay) = CDate(Format(varDate, "dd/mm/yyyy")) .Fields(AMENDMENT_fld_Schedule_Month) = Month(CDate(varDate)) End With .Validate .Save End With objGiftAmendServer.Closedown System.SetToNothing objGiftAmendServer, objGiftAmend objGiftRG.Closedown objGift.GenerateSchedule End If objgift.closedown If any one could help with this we would be very appreciative. Cheers, Gary Hay TWS Australia
Page 1 of 1 (1 items)