Strange Behaviour when Setting a Date UDF from Button Script

Question

Hi, 
 I am setting a Date UDF from a Button Script for the line that currently has the Focus in the GD_Lines. I tried setting through SetValue as well as InvokeChange. With both methods the date shows as YYYYMMDD in the UI until I refresh the grid or move to another tab and come back. I tried stuffing the date as MM/DD/YYYY with InvokeChange, but it doesn't make a difference. 
 Does anyone have an idea how I can get the UI to properly show the date for the user? 
 As a workaround: How do I get the focus back to the line I was on after I refresh the grid? Sage puts me on the first line. I tried .LoadKey and .SetKey on oLines, but that doesn't change the focus in the UI. 
 Best, 
 B.

David Speck · Accepted Answer

So i tested myself and found that ShowRow by itself doesn't accomplish what you need however, using ShowRow before FormatRow does so the following worked for me. 
 If oScript.UIObj > 0 Then
	Set oUIObject = oSession.AsObject(oScript.UIObj)
	oUIObject.InvokeChange "PromiseDate$", "20201228", "GD_Lines"
	nGD_Lines_Ctl = 0 : oUIObject.GetControlProperty "GD_Lines", "Ctl", nGD_Lines_Ctl : If IsNumeric(nGD_Lines_Ctl) Then nGD_Lines_Ctl = CLng(nGD_Lines_Ctl) Else nGD_Lines_Ctl = 0
	nGD_Lines_CurrentRow = 0 : oUIObject.GetControlProperty "GD_Lines", "CurrentRow", nGD_Lines_CurrentRow : If IsNumeric(nGD_Lines_CurrentRow) Then nGD_Lines_CurrentRow = CLng(nGD_Lines_CurrentRow) Else nGD_Lines_CurrentRow = 0
	If nGD_Lines_Ctl <> 0 And nGD_Lines_CurrentRow > 0 Then 
 oUIObject.ShowRow nGD_Lines_Ctl, nGD_Lines_CurrentRow
 oUIObject.FormatRow nGD_Lines_Ctl, nGD_Lines_CurrentRow
	End If
	Set oUIObject = Nothing
End If

Sage 100

Strange Behaviour when Setting a Date UDF from Button Script

Top Replies

COMMUNITY

COMPANY

PARTNERS

SUPPORT & TRAINING