Journal Transactions Entry Customize to show Acct and Sub Descr

(0) Share

Report

Posted on by Community Member Microsoft Employee

I want to show the account and Sub Account Description on the screen when the user scroll through the grid.

I have seen this implemented at the bottom of the screen which would be perfect. I have tried to create teh customization but cannot seem to get it to work.

Dynamics SL version 7

*This post is locked for comments

All responses (3)

Answers (0)

Becky K 100 on at

Like (0)

Report

RE: Journal Transactions Entry Customize to show Acct and Sub Descr

This worked, but then the user is able to change it, so I want it visible, but not able to be changed. If it is not enabled, it will not populate and gives and VB error. The value of the disabled SAF controls cannot be set.
Paul Phillips 590 on at

Like (0)

Report

Re: Journal Transactions Entry Customize to show Acct and Sub Descr

Hi Eric,

Here's the gist of this type of customization:

1. Add two label controls at the bottom of the form for each description

2. The account description is loaded from the db in the cacct_Chk event

3. The subaccount description is loaded from the db in the csub_Chk event

4. Both descriptions are refreshed in the Spread1_LineGotFocus event

When you load the account and subaccount decriptions from the database, set the label captions using the SetProps call with PROP_CAPTION.

Here's sample code to retrieve the subaccount description. It is developer preference as to whether the cursor is globally scoped or not. I find that local scope is easier to maintain and the performance impact is negligible. You'll want to check around this code block to ensure that the subaccount number is not blank, and if it is, set the description to blank. To get the current value of the subaccount, use this call: GetObjectValue("cSub").

Also note that in SL7 VBA, LenB(<buffer>) must still be passed to the SqlFetch API call, even though it is has been removed in the corresponding SDK (VBTools) API call.

---------------------------

Dim SqlStr As String

Dim csr_SubAcct As Integer

Call SqlCursorEx(csr_SubAcct, NOLEVEL + SqlFastReadOnly, "csr_SubAcct", "", "")

SqlStr = "SELECT * from Subacct (NOLOCK) WHERE Sub=" & SParm(SubAccount)

serr1 = SqlFetch1(csr_SubAcct, SqlStr, bSubAcct, LenB(bSubAcct))

Call SqlFree(csr_SubAcct)

'-- Update label caption

If serr1 = 0 Then

Call setprop(LabelControlName, PROP_CAPTION, DefaultLabelCaption & Trim$(bSubAcct.Descr))

Else

Call setprop(LabelControlName, PROP_CAPTION, DefaultLabelCaption)

End If

'-- Refresh UI

Call DispFields(FormName, LabelControlName)

---------------------------

Paul
Community Member Microsoft Employee on at

Like (0)

Report

Re: Journal Transactions Entry Customize to show Acct and Sub Descr

add GLtran.user1 to the grid, call it xuser1

in the VB editor put this code in the cacct_Chk event

Dim ctrldacct As SIVControl

Dim ctrlxUser1 As SIVControl

Set ctrldacct = sivMyApp.Controls("dacct")

Set ctrlxUser1 = sivMyApp.Controls("xUser1")

ctrlxUser1.value = ctrldacct.value

You can use this same logic for the subacct.

Ayrin