web
You’re offline. This is a read only version of the page.
close
Skip to main content
Community site session details

Community site session details

Session Id :
Microsoft Dynamics GP (Archived)

EFT Cash Receipts Integration - GP 2010 Options

(0) ShareShare
ReportReport
Posted on by

Has anyone here used IM to import Cash Receipts for EFT Receivables?
The file imports correctly but does not tell the system that it is an
EFT receipt.

How can I get the EFT box to be checked in the Cash Receipts Entry
window?  The customer imports 200+ receipts at a time and does not
want to check each box manually, as this worked ok when they were
using GP 9.0.

What is the best workaround for this?  A script in IM for Cash Receipt
Type?

*This post is locked for comments

I have the same question (0)
  • L Vail Profile Picture
    65,271 on at
    Re: EFT Cash Receipts Integration - GP 2010 Options

    You could certainly use VBA script to check the box, but it wouldn't run any of the GP business logic behind the checkbox. If checking the box is the only thing needed to have the system generate the EFT file, then you are good to go.

  • Community Member Profile Picture
    on at
    Re: EFT Cash Receipts Integration - GP 2010 Options

    Anyone get a solution for this?  It's unfortunate that IM doesn't have a field mapping for EFT.  It's not just marking the checkbox but also populating the check number field with the next available number.  Is the recommended approach VBA?  I'm on GP2010.  

  • Community Member Profile Picture
    on at
    RE: EFT Cash Receipts Integration - GP 2010 Options

    I'm in need of this same thing. I did notice that once the EFT Box is checked the Check/Card Number does populate with he next available EFT number. Does anyone know how to write this VB script? It would much appreciated.

  • Community Member Profile Picture
    on at
    RE: EFT Cash Receipts Integration - GP 2010 Options

    --after script vba

    set MyCon = CreateObject("ADODB.Connection")

    MyCon.Connectionstring = "database=" + GPConnection.GPConnInterCompanyID

    GPConnection.Open(MyCon)

    updatecommand = "update RM10201 "

    updatecommand = updatecommand & " set EFTFLAG = '1'"

    updatecommand = updatecommand & " where bachnumb='EFT'"

    recset = MyCon.Execute(updatecommand )

    --Use script vba.  For what I did the next eft number MUST be numeric and not alpha numeric.

    'Create a new connection

    Set pConnection = CreateObject("ADODB.Connection")

    'Open the connection to the database

    Call pConnection.Open("Dynamics GP 2010", "sa", "bhssapw")

    'Create a new recordset -- that will hold returned data

    Set pRecordset = CreateObject("ADODB.Recordset")

    'Build a string containing your SQL Select Statement

    'In this example, the SQL "Max" function is used, and the

    'resulting column is given an alias of 'EFTNumber'.

    sSQL = "SELECT EFTRMNEXTNUMBER FROM TFBHS..CM00101 WHERE CHEKBKID='DEPOSITORY'"

    'MsgBox ("The SQL statement is: " & sSQL)

    'Open the recordset with the SQL SELECT statement

    Call pRecordset.Open(sSQL, pConnection)

    CurrentField = trim(pRecordset.Fields(0).Value)

    'Msgbox trim(pRecordset.Fields(0).Value)

    set MyCon = CreateObject("ADODB.Connection")

    MyCon.Connectionstring = "database=" + GPConnection.GPConnInterCompanyID

    GPConnection.Open(MyCon)

    updatecommand = "update CM00101 "

    updatecommand = updatecommand & " set EFTRMNEXTNUMBER = EFTRMNEXTNUMBER + 1"

    updatecommand = updatecommand & " where CHEKBKID='DEPOSITORY'"

    recset = MyCon.Execute(updatecommand )

  • Community Member Profile Picture
    on at
    RE: EFT Cash Receipts Integration - GP 2010 Options

    Jason,  It looks as though this is exactly what I'm looking for. I will test it and let you know.

    Thanks a ton for what you've done here.

    By the way is there anything like this if there is a EFT payment on a SOP sales transaction integration?

  • Community Member Profile Picture
    on at
    RE: EFT Cash Receipts Integration - GP 2010 Options

    Hi Jason, After adding this I get the message: Object reference not set to an instance of an object. Error Compiling Script 'After Integration' Line 1: Expected statement. Expected statement.

    Sorry, This is all new to me.

    Thanks,l

  • Community Member Profile Picture
    on at
    RE: EFT Cash Receipts Integration - GP 2010 Options

    I've figured it out. Thanks again!

  • Community Member Profile Picture
    on at
    RE: EFT Cash Receipts Integration - GP 2010 Options

    I need some help with changing the below EFT Flag SCript to allow for Alpha numeric Next EFT Number.  this one was noted to only work with numeric and we use EFT-1234567 -

    THANK YOU!
    Krista

    --after script vba

    set MyCon = CreateObject("ADODB.Connection")

    MyCon.Connectionstring = "database=" + GPConnection.GPConnInterCompanyID

    GPConnection.Open(MyCon)

    updatecommand = "update RM10201 "

    updatecommand = updatecommand & " set EFTFLAG = '1'"

    updatecommand = updatecommand & " where bachnumb='EFT'"

    recset = MyCon.Execute(updatecommand )

    --Use script vba.  For what I did the next eft number MUST be numeric and not alpha numeric.

    'Create a new connection

    Set pConnection = CreateObject("ADODB.Connection")

    'Open the connection to the database

    Call pConnection.Open("Dynamics GP 2010", "sa", "bhssapw")

    'Create a new recordset -- that will hold returned data

    Set pRecordset = CreateObject("ADODB.Recordset")

    'Build a string containing your SQL Select Statement

    'In this example, the SQL "Max" function is used, and the

    'resulting column is given an alias of 'EFTNumber'.

    sSQL = "SELECT EFTRMNEXTNUMBER FROM TFBHS..CM00101 WHERE CHEKBKID='DEPOSITORY'"

    'MsgBox ("The SQL statement is: " & sSQL)

    'Open the recordset with the SQL SELECT statement

    Call pRecordset.Open(sSQL, pConnection)

    CurrentField = trim(pRecordset.Fields(0).Value)

    'Msgbox trim(pRecordset.Fields(0).Value)

    set MyCon = CreateObject("ADODB.Connection")

    MyCon.Connectionstring = "database=" + GPConnection.GPConnInterCompanyID

    GPConnection.Open(MyCon)

    updatecommand = "update CM00101 "

    updatecommand = updatecommand & " set EFTRMNEXTNUMBER = EFTRMNEXTNUMBER + 1"

    updatecommand = updatecommand & " where CHEKBKID='DEPOSITORY'"

    recset = MyCon.Execute(updatecommand )

  • Suggested answer
    Bill Campbell Profile Picture
    12 on at
    RE: EFT Cash Receipts Integration - GP 2010 Options

    We were able to make this work for the EFT Flag - but did not try to set the next EFT number - has anyone figured out why this seems to only work for Numeric values.  I dont see anything that suggests it would stop it from working?

    My next question is why do you need to 'set the next' EFT number?  Why can't you allow the system to generate the next correct number - I know that works for Alpha Numeric just out of the box.  

    Would that not be a better choice of action?

  • Community Member Profile Picture
    on at
    RE: EFT Cash Receipts Integration - GP 2010 Options

    where do I put this script?   can you provide details on exactly in integration manager where we should put this script?   customer has 1000 plus eft payments, we export to excel, populate the amount to apply then we want to import into cash receipts and make them EFT transactions so we can quickly create the EFT for AR ach file upload

Under review

Thank you for your reply! To ensure a great experience for everyone, your content is awaiting approval by our Community Managers. Please check back later.

Helpful resources

Quick Links

Responsible AI policies

As AI tools become more common, we’re introducing a Responsible AI Use…

Abhilash Warrier – Community Spotlight

We are honored to recognize Abhilash Warrier as our Community Spotlight honoree for…

Leaderboard > 🔒一 Microsoft Dynamics GP (Archived)

Last 30 days Overall leaderboard

Featured topics

Product updates

Dynamics 365 release plans