https://developerzone-stg.pastel.co.za/index.php?action=history&feed=atom&title=VB6_Customer_Account 2026-04-17T15:30:18Z Revision history for this page on the wiki MediaWiki 1.25.2 https://developerzone-stg.pastel.co.za/index.php?title=VB6_Customer_Account&diff=175&oldid=prev 2015-10-26T09:10:05Z

<p>Created page with &quot;&lt;syntaxhighlight lang=&quot;vb&quot;&gt; Dim helper As ComHelper Set helper = New ComHelper On Error GoTo ErrHandler &#039;Initialisation helper.CreateCommonDBConnection &quot;server=.;initial cata...&quot;</p> <p><b>New page</b></p><div>&lt;syntaxhighlight lang=&quot;vb&quot;&gt;<br /> Dim helper As ComHelper<br /> Set helper = New ComHelper<br /> On Error GoTo ErrHandler<br /> <br /> 'Initialisation<br /> helper.CreateCommonDBConnection &quot;server=.;initial catalog=EvolutionCommon;integrated security=sspi&quot;<br /> helper.SetLicense &quot;DEMO&quot;, &quot;17411087337875&quot;<br /> helper.CreateConnection &quot;server=.;initial catalog=50010;integrated security=sspi&quot;<br /> <br /> helper.BeginTran<br /> <br /> 'Create a new customer account<br /> Dim cust As Customer<br /> Set cust = New Customer<br /> cust.code = &quot;ABD001&quot;<br /> cust.Description = &quot;ABD&quot;<br /> cust.Save<br /> <br /> 'Post a customer transaction<br /> Dim tran As CustomerTransaction<br /> Set tran = New CustomerTransaction<br /> Set tran.Customer = cust<br /> tran.Date = Now<br /> <br /> Dim trcode As TransactionCode<br /> Set trcode = helper.GetTransactionCode(Pastel_Evolution_Module_AR, &quot;IN&quot;)<br /> tran.TransactionCode = trcode<br /> tran.Amount = 114<br /> tran.Tax = 14<br /> tran.Reference = &quot;INV0001&quot;<br /> tran.Description = &quot;Monthly Fee&quot;<br /> tran.Post<br /> <br /> helper.CommitTran<br /> Exit Sub<br /> ErrHandler:<br /> helper.RollbackTran<br /> MsgBox Err.Description<br /> &lt;/syntaxhighlight&gt;</div>

Admin