Copy or Duplicate record with repeating section from Dialog2 ?

[[email protected]]

Dear Experts,

is there any sample or code to do "copy/duplicate" function on Dialog with repeating section ?

I have search for few weeks from the forum but can't find a soluction

TIA

[Davidk]

Re: Copy or Duplicate record with repeating section from Dialog2 ?

Have you seen the video D33? That should get you what you need.

[[email protected]]

Re: Copy or Duplicate record with repeating section from Dialog2 ?

thanks for the direction,

but this only copy a row from the current repeating section only,

what i need is to copy and existing master-details to a new master-details dialog to create a new record.

thanks

[Davidk]

Re: Copy or Duplicate record with repeating section from Dialog2 ?

Hey Fred,

The very best way to get exactly the help you need is to include details in your original request, as you did in your reply.

So... you have 2 Dialogs? Essentially the same... and you want to copy Master/Detail records from one Dialog to a 2nd Dialog?

Are the Dialogs Data Bound? Are both Dialogs open at the same time? Are they both displayed at the same time?

There are so many variables and ways to accomplish this that more information is required.

[[email protected]]

Re: Copy or Duplicate record with repeating section from Dialog2 ?

from a dialog, there is a "copy" button"
when copy button is pressed
will populate the exising data into a new record from the same dialog
and a new records is save when press 'submit'

Thanks

[-Jinx-]

Re: Copy or Duplicate record with repeating section from Dialog2 ?

Yes, you can do it. I do it in my dialogs, one of which has two repeating sections, but you're going to have to write the XBasic.
What I do in my Xbasic is this:

Query my database based on the current dialogs primary keys.
Loop through that query and make an array out of it
Put the array into the javascript dialog populate method
output a command with the javascript to create a new record and populate it in one shot.

If you need some help I'm sure others on the forum can give you a hand and I can too. In a couple of days I'll be headed to China though so I may not spend a lot of time on here.

[[email protected]]

Re: Copy or Duplicate record with repeating section from Dialog2 ?

I have do it from ondialoginitialize with e.control.<field>_a5instant2 =
but don't know how to use _d[1] ... etc and javascript populate.

Thanks,

p.s. If you go china through HK, may be we can meet from HK to share ... :)

[-Jinx-]

Re: Copy or Duplicate record with repeating section from Dialog2 ?

Hi Fred,
Actually, I was in HK just after the spring festival. I was able to spend a day there on my way back from Taiwan. We stayed in Kowloon, rode the star ferry across to HK. Went up the mid-town escalators and up to Victoria Peak. I found some great Peking Duck at the Star House Peking Garden and even went to the Temple Street Night Market. Oh, and I got my photo Taken on the Star walk with Bruce Lee, Chow Yun Fat, Jet Li, and Jackie Chan's stars. Haha. I generally acted like a tourist.

I'm flying direct to Shanghai this time.

[-Jinx-]

Re: Copy or Duplicate record with repeating section from Dialog2 ?

I have a copy record button in my dialog. In it's onclick event it uses an ajax callback to call a function called copyRecordData.
That function is in my Xbasic Functions in the dialog and looks kind of like this and I stole the initial code from somewhere on this forum:

function copyRecordData as c (e as p)
dim oldid as c
'Get the unique id from the current record in your dialog
oldid = e.dataSubmitted.UNIQUE_ID
dim masterid as n
masterid = oldid
dim vjscmd as c
'Below is the pointer variable where you will store the array of data
dim j as p
dim cn as SQL::Connection
	if cn.open("::Name::MVWKS")	then
		dim sqlCommand as c = "SELECT * FROM machlayoutmaster WHERE unique_id = :masteruid"
		dim args as SQL::Arguments
		args.add("masteruid",masterid)
			if cn.Execute(sqlCommand,args) then
				dim rs as SQL::ResultSet
				rs = cn.ResultSet
					if rs.NextRow() then
						'These are the header controls
						j.MACHNO = rs.Data("machno")
						j.PARTNO = rs.Data("partno")
						j.DWGNO = rs.Data("dwgno")
						j.STATUS = rs.Data("status")
						j.MACHTYPE = rs.Data("machtype")
						j.NUMPARTS = rs.Data("numparts")
						j.OPNO = rs.Data("opno")
						j.LAYOUTREV = rs.Data("layoutrev")
						j.MAINPRGNO = rs.Data("mainprgno")
						j.HASSUBS = rs.Data("hassubs")
						j.NOTES = rs.Data("notes")
						j.PROGRAMCALL = rs.Data("prgcall")
							sqlCommand = "SELECT * FROM machlayoutdetail WHERE layoutmaster_id = :masteruid"
								delete rs
							dim cnt as n = 0
								if cn.Execute(sqlCommand,args) then
									dim rs as SQL::ResultSet
									rs = cn.ResultSet
									while rs.NextRow()
										cnt = cnt + 1
										'These are the repeating section controls for CONTAINER_1
										eval("j.LAYOUTORD_A5INSTANCE" + alltrim(str(cnt))) = rs.Data("layoutord")
										eval("j.POSITION_A5INSTANCE" + alltrim(str(cnt))) = rs.Data("position")
										eval("j.DETAILSEQUENCE_A5INSTANCE" + alltrim(str(cnt))) = rs.Data("sequence")
										eval("j.TOOL_A5INSTANCE" + alltrim(str(cnt))) = rs.Data("tool")
										eval("j.TOOLINFO_A5INSTANCE" + alltrim(str(cnt))) = rs.Data("toolinfo")
										eval("j.DETAILNOTES_A5INSTANCE" + alltrim(str(cnt))) = rs.Data("notes")
									end while
										delete rs
									'JavaScript returned to dialog
									vjscmd = "{dialog.object}._setRepeatingSectionRowCount('CONTAINER_1'," + cnt + ",true,true);"
									'Here we use the populate method and insert and convert our "j" pointer variable to javascript array
									vjscmd = vjscmd + "{dialog.object}.populate(" + varToJSON(j) + ",1,false,true);"
									'this is adding the code to the above to create a new record and then wait 1 second before populating it.
									vjscmd = "{Dialog.Object}.newRecord();setTimeout(function(){" + vjscmd + "},1000);"
								else
									vjscmd = "alert('No details found for this layout');"
								end if	
					else
						vjscmd = "alert('No header record found.');"
					end if
			else
				vjscmd = "alert('Execute Error: Error returned was: " + js_escape(cn.CallResult.text) + "');"
			end if
			cn.Close()
	else
		vjscmd = "alert('Connection Error: Error returned was: " + js_escape(cn.CallResult.text) + "');"
	end if
'debug(1)		
copyRecordData = vjscmd
end function

I chopped this up a bit because you only needed one repeating section. I may have made a mistake or two in the process, but this should get you where you're going.

[-Jinx-]

Re: Copy or Duplicate record with repeating section from Dialog2 ?

Back from China. Yay!

Did you ever get this working Fred?

[[email protected]]

Re: Copy or Duplicate record with repeating section from Dialog2 ?

Back from China. Yay!

Did you ever get this working Fred?

Yes, got working perfectly

[J.R. Noe]

Re: Copy or Duplicate record with repeating section from Dialog2 ?

Thank you -Jinx-. Used this myself and it works great. I do have more than one repeating section and have not been able to figure out where to modify the code to include the other repeating sections.

-JR

[NormanRMouton]

Re: Copy or Duplicate record with repeating section from Dialog2 ?

Jinx

I must also thank you for this code. After the code I opens a new ux Dialog and wants to paste the records into it. How do I do it?
Thanks

[NormanRMouton]

Re: Copy or Duplicate record with repeating section from Dialog2 ?

Jinx

Let me rephrase my question. I have a quotation (dialog). On this dialog I have a button to copy all the data to another dialog (order). With your code a new dialog is opened from the quote. I want to open a new order dialog.

Can you help?

[-Jinx-]

Re: Copy or Duplicate record with repeating section from Dialog2 ?

Hi Norman,
Sorry it took me a while to reply. Been busy.

You're best off doing something like this I think:

Click a button in the parent dialog that opens the child dialog. Upon running the child dialog, have it check for a variable (which would be the primary key from the parent dialog) and if that variable exists, run the query and the code on in the child dialog. So, put the Xbasic code to copy a record into the Xbasic functions of the child dialog. Just transfer the primary key and only the primary key from the parent dialog.

Make sense?

As usual, there's probably an even better way to do it somewhere that I haven't thought of yet. My code is still working in my application so I haven't had any reason to research updating it lately.