Using DDE with Delphi - Accounting Advisors

procedure TForm1.Button2Click(Sender: TObject);
var distribution:PChar;
begin
if not DDEClientConv1.SetLink( 'PEACHW', 'BCS' ) then
ShowMessage('Could not create link' + #13 + 'You must have Peachtree running' );

DDEClientConv1.PokeData( 'Password,', 'Password' );

// General Journal Poking
DDEClientConv1.PokeData( 'file=generaljournal,CLEAR', '' );
DDEClientConv1.PokeData( 'file=generaljournal,field=DATE', '06/26/2000' ); // optional
DDEClientConv1.PokeData( 'file=generaljournal,field=REFERENCE', 'PR06262000' ); // optional

distribution := '10000' + #9 + '20.00' + #9 + 'Test Debit Entry';

DDEClientConv1.PokeData( 'file=generaljournal,field=FIRSTDISTRIBUTION', distribution );

distribution := '20000' + #9 + '-20.00' + #9 + 'Test Credit Entry';

DDEClientConv1.PokeData( 'file=generaljournal,field=NEXTDISTRIBUTION', distribution );

DDEClientConv1.PokeData( 'file=generaljournal,SAVE', '' ); end;

Brian Matchey comments on his code:
[This] is an example of a DDE link to Peachtree using Delphi and the problems I have encountered using it. It appears to me that DDE support in Peachtree is not too strong or reliable. Because of this, our organization has gone with a different method of linking with Peachtree that involves sending keystrokes to Peachtree that make it import general journal entries.

These are the problems I've encountered with poking data into Peachtree:

1. You cannot have Peachtree running with a different company open. You must have the company you are poking data into open, or it will not post.

2. You must be poking dates in the current fiscal year open in Peachtree.

3. If an error occurs in Peachtree, failure of the user to respond to that error in the Peachtree window will cause a general protection fault if you attempt to poke further transactions.

4. You cannot be in Peachtree-Tasks-General Journal Entry while trying to poke transactions to the general journal. They will not post.

I've searched for a way to trap the response in the dde conversation so I could tell if a pokedata was successful, but so far have not been able to find a way. The ddeClientConv.PokeData method returns true regardless of whether the response was positive or not.

Did you know that there's an alternative to DDE?

PawCOM not only eliminates the need for DDE, it also gives you access to all of the underlying tables in Peachtree, not just the selective availability offered by DDE. This ActiveX control offers both read and write access to Peachtree, and is compatible with Peachtree Accounting and Complete Accounting for Windows version 7 or later.
Plus, the DLL file can be distributed with your applications royalty-free!

Click Here to Learn More or Purchase PawCOM Now!

Accounting Advisors, Inc. 614 Park Avenue SE Atlanta, Georgia 30312 Telephone: 404-784-0275 Toll Free: 800-724-0315 Fax: 404-420-2175 Privacy Policy	[Home Page] [Our Services] [Recent Projects] [Training] [Support] Tips: [Excel] [Peachtree] [Quickbooks] [Google] [DDE] [Other] [Pay Your Invoice] [Driving Directions] [Site Index]	About Our Site
	Questions? Comments? Email Us or call (404) 784-0275 Our toll free number is (800) 724-0315 © Copyright 2004 by Accounting Advisors Web site designed and maintained by Accounting Advisors, Inc.


Quick Links - Upload a Project File - Learn How We Can Help - Read About Recent Projects - Schedule a Class - Pay Your Invoice Online - Request Technical Support Free Newsletter You'll receive Peachtree tips, Excel tips, and more! Newsletter Archives Privacy Policy Did you know? We offer technical support for Peachtree Accounting, Microsoft Excel, and DDE by e-mail, telephone, or remotely.			Using DDE with Delphi Thanks to Brian Matchey for contributing the following Delphi routine: Warning! Code may be wrapped! procedure TForm1.Button2Click(Sender: TObject); var distribution:PChar; begin if not DDEClientConv1.SetLink( 'PEACHW', 'BCS' ) then ShowMessage('Could not create link' + #13 + 'You must have Peachtree running' ); DDEClientConv1.PokeData( 'Password,', 'Password' ); // General Journal Poking DDEClientConv1.PokeData( 'file=generaljournal,CLEAR', '' ); DDEClientConv1.PokeData( 'file=generaljournal,field=DATE', '06/26/2000' ); // optional DDEClientConv1.PokeData( 'file=generaljournal,field=REFERENCE', 'PR06262000' ); // optional distribution := '10000' + #9 + '20.00' + #9 + 'Test Debit Entry'; DDEClientConv1.PokeData( 'file=generaljournal,field=FIRSTDISTRIBUTION', distribution ); distribution := '20000' + #9 + '-20.00' + #9 + 'Test Credit Entry'; DDEClientConv1.PokeData( 'file=generaljournal,field=NEXTDISTRIBUTION', distribution ); DDEClientConv1.PokeData( 'file=generaljournal,SAVE', '' ); end; Brian Matchey comments on his code: [This] is an example of a DDE link to Peachtree using Delphi and the problems I have encountered using it. It appears to me that DDE support in Peachtree is not too strong or reliable. Because of this, our organization has gone with a different method of linking with Peachtree that involves sending keystrokes to Peachtree that make it import general journal entries. These are the problems I've encountered with poking data into Peachtree: 1. You cannot have Peachtree running with a different company open. You must have the company you are poking data into open, or it will not post. 2. You must be poking dates in the current fiscal year open in Peachtree. 3. If an error occurs in Peachtree, failure of the user to respond to that error in the Peachtree window will cause a general protection fault if you attempt to poke further transactions. 4. You cannot be in Peachtree-Tasks-General Journal Entry while trying to poke transactions to the general journal. They will not post. I've searched for a way to trap the response in the dde conversation so I could tell if a pokedata was successful, but so far have not been able to find a way. The ddeClientConv.PokeData method returns true regardless of whether the response was positive or not. Did you know that there's an alternative to DDE? PawCOM not only eliminates the need for DDE, it also gives you access to all of the underlying tables in Peachtree, not just the selective availability offered by DDE. This ActiveX control offers both read and write access to Peachtree, and is compatible with Peachtree Accounting and Complete Accounting for Windows version 7 or later. Plus, the DLL file can be distributed with your applications royalty-free! Click Here to Learn More or Purchase PawCOM Now!