x_Dialog Tab Stops

[johnkoh]

Re: x_Dialog Tab Stops

Ray; Thank you for the explanation.

Al, I will try with your suggestion.

The question still remains of why all of this work in an xdialog rather than a form that can be opened as a dialog?

I will apply it on complicated case and the xDialog better than Form.

btw, this latest version is some what different from the image shown in previous posts where the question was how to give focus to a pop up lookup. Now it's a drop down for product.

-- I could not solved the Popup problem, so changed to drop-down.

[Tim Kiebert]

Re: x_Dialog Tab Stops

Try this. add this event code to the browse xml

<browse .......
<code>
	<OnFetch>
		dim shared InvId as C
		If alltrim(Invoice_Number.text) > "" then
			InvId = Invoice_Number.text
		End If
	</OnFetch>
	<events>
		function Quantity_OnChange as v ()
			dim shared Invid as C
			If alltrim(Invoice_Number.text) = ""
		 		Invoice_number.value = InvId
		 	End If
		end function 
	</events>
</code>
<title ............

[Ray in Capetown]

Re: x_Dialog Tab Stops

2. Field rule The question still remains of why all of this work in an xdialog rather than a form that can be opened as a dialog?

I too would like to know, been wondering that for years that john has been on this lone mission.

"Ours isn't to ask why but answer how" - so sayeth Zarasuthstra.

[MoGrace]

Re: x_Dialog Tab Stops

John's sample database is the closest I've found on how to call the xml browse definition in an XD.

Not to bogart his thread...but does anyone have an example of displaying multiple browses in an XD? Or preferably an example of a dashboard for the desktop perhaps?

[Al Buchholz]

Re: x_Dialog Tab Stops

Mo

Generate the XML dialogs and copy and paste into one dialog.

Make sure you change the pointer names for each dialog.

_______________________

For those playing along at home,

I prefer Field Rule level code for things like setting link values, but to each his own.

To modify the previous idea I had so a typical hdr detail set can also work.

1. remove the default for the HDR id in the lines table.

2. Replace with code in the Events - Record Events - CanSaveRecord
to save the hdr id if not already given a value (ie by the hdr detail set relationship)

dim iitbl as P
iitbl= table.current()
if iitbl.invoice_number = "" then
   iitbl.invoice_number= Var->vInvHdrId
end if

frDefaultId2HdrId.png

And thanks again Lenny for fixing the upload attachments.

That is all....

[johnkoh]

Re: x_Dialog Tab Stops

It is working good. I wrote the variable, as Al suggested, on the <table>event -> OnWroteField and CanSaveRecord.

'set the dim global vgInvhdrId at Invoice_header table and
<table>event ->OnSaveRecord 
tbl= table.current()
vgInvhdrId=tbl.invoice_number

'at Invoice_item table
dim tbl as P
tbl= table.current()
if tbl.invoice_number = "" then
   tbl.invoice_number= Var->vgInvHdrId
end if

Thank you every one.

xml Invoice dlg.jpg

[MoGrace]

Re: x_Dialog Tab Stops

@AL - you commented on several posts I found about dashboards on the desktop, I was hoping you might have an example? even a screen shot or an XD script?

[Al Buchholz]

Re: x_Dialog Tab Stops

It is working good. I wrote the variable, as Al suggested, on the <table>event -> OnWroteField and CanSaveRecord.

'set the dim global vgInvhdrId at Invoice_header table and
<table>event ->[B][COLOR="#FF0000"]OnSaveRecord [/COLOR][/B]
tbl= table.current()
vgInvhdrId=tbl.invoice_number

'at Invoice_item table
dim tbl as P
tbl= table.current()
if tbl.invoice_number = "" then
   tbl.invoice_number= Var->vgInvHdrId
end if

Thank you every one.

[ATTACH=CONFIG]41504[/ATTACH]

John

You have 2 statements that mention different events.

CanSave and OnSave are quite different.

CanSave happens prior to the row being saved and OnSave is after the row is saved.

I doubt that OnSave works in this case.

What are you doing in the OnWrote field? I don't see where that was mentioned and why it is needed.

[Al Buchholz]

Re: x_Dialog Tab Stops

@AL - you commented on several posts I found about dashboards on the desktop, I was hoping you might have an example? even a screen shot or an XD script?

Can you get me some spare time?

[MoGrace]

Re: x_Dialog Tab Stops

@Al - with 8840 posts I figured you had lots of spare time hee hee

[Al Buchholz]

Re: x_Dialog Tab Stops

@Al - with 8840 posts I figured you had lots of spare time hee hee

I'll never catch or be as good as those guys ahead of me ( or most of them behind either.....)

Check your email.

[johnkoh]

Re: x_Dialog Tab Stops

Al,

Thank you for your point.
I tried only one event which is the CanSaveRecord or OnWroteField Event in Invoice_item table, It works with only one event.

'set the dim global vgInvhdrId at Invoice_header table and <== I thought I will get the vgInvHdrId's value (Invoice_Number) at here
<table>event ->OnSaveRecord
tbl= table.current()
vgInvhdrId=tbl.invoice_number

'at Invoice_item table * CanSaveRecord or one of field OnWrote event is working well. I do not need the duplicate code.
dim tbl as P
tbl= table.current()
if tbl.invoice_number = "" then
tbl.invoice_number= Var->vgInvHdrId
end if

[johnkoh]

Re: x_Dialog Tab Stops

Tim,

<code>
	<events>
		function Quantity_Onchange as v()
			If alltrim(invoice_number.text)="" then
				invoice_number.value=vgInvHdrId
			end if	
		end function	
	</events>
</code>

It works well without "<onFetch>" code. The "<OnFetch>" is made an error.

Thank you