xdialog with fillable/changeable field

[Ray in Capetown]

Re: xdialog with fillab;e/changeable field

In the initial formative period of learning A5, so may remarks were against using standalone browse - I followed and just built them inside forms.
I lost out on some possibilites it seems.

It's easier to merge multiple browses on a single xdialog without having a set that ties it together... - ie dashboard..

Wow. Now THAT is very intriguing - from one, switch to another.. sort of? by calling another UDF or goto within one code file?

Functions carry forward from the browse into the code for the xdialog. Change functionality in the browse and then move the code to the xdialog. It's not a build an xdialog and point to a browse. But you can see that from the code that is built.

Good insights. Thanks for a very informative reply ( so far)

[Al Buchholz]

Re: xdialog with fillab;e/changeable field

Wow. Now THAT is very intriguing - from one, switch to another.. sort of? by calling another UDF or goto within one code file?

With a little manual combining of the code generated, multiple browses can be on the same xdialog without the overall set combing the 2 browses..

[gkeramidas]

Re: xdialog with fillab;e/changeable field

yes ray, i'm writing all of the logic now. i need to allow for double blind entry of the lot number, write the code that checks and validates the entry. based on the entry, i may have to display another xdialog to get managerial approval to continue. once the entry is validated, i show another xdialog that allows the user to print the number of barcoded labels needed and then write the data to a table. from there, a sql routine imports the data into the sap accounting system. all of this checking /verifying has to do with haacp.

i've changed some of what i had in the example i posted, because it was left over from a method i was using while developing the xdialog and all of the variables.
i tried to put enough comments in it so what i was doing could hopefully be deciphered.

[gkeramidas]

Re: xdialog with fillable/changeable field

since this application is about to go live, I figured i'd post a simple pdf help type file of what I've done. if anyone has any questions / comment, please feel free. (if I can get the pdf uploaded)
can't upload it for some reason, so i'll try a link to skydrive
http://tinyurl.com/k7flhtr

[Ray in Capetown]

Re: xdialog with fillable/changeable field

Note to Al , I am referring to post 15
I want to thank you for that particular post. It had a major influence - a game changer.

I now can, (just one example) pop up a modal browse XDlg -with specific fields editable if necessary- that reference records relevant to the current form browse item elsewhere in the table. Works like a drill-up as opposed to drill down. ie. What else like this item is doing what elsewhere AND edit if outdated?

I haven't yet tried to combine code from multiple browses.

[Al Buchholz]

Re: xdialog with fillable/changeable field

Note to Al , I am referring to post 15
I want to thank you for that particular post. It had a major influence - a game changer.

Ray

You're welcome.

I don't remember how I found it. I know I was looking for a way to build more dashboard like forms.

Probably 'hunt and click' to see what options are available....

When combining browses, the area in red (per image attached) allows you to generate code with unique names and attributes.

The xbasic code for browse events is included so the browse works just like a stand alone....

So Browse1 and Browse2 can be completely diverse data but still be on the same form (although it is an xdialog form).

Or with a xbasic watch, you can have a variable control the fetching of records. When one browse changes to another customer, you can have the second browse show that customer's details. So you have a set without the definition of the set. That allows a linkage that is more controllable than a set.


CLICK HERE FOR IMAGE.. Upload to msgboard didn't work....

[johnkoh]

Re: xdialog with fillable/changeable field

Gary,

How did you write the SAVE event on your last code( "po_test")?

[gkeramidas]

Re: xdialog with fillable/changeable field

well, it changed quite a bit since that post. that was to show how I used variable number of line items to create the xdialog.
I basically save the data entered when the item number button is clicked. right now it goes to a temporary table, but i'm rewriting it to store it all in an array, and then just post the data when the user clicks on Post PO. (not on the potest form).

if tat's not what you mean, just post back.

[johnkoh]

Re: xdialog with fillable/changeable field

Gary,

I basically save the data entered when the item number button is clicked.

Thank you and - so I have to click 20 times for saving the records on the buttons If I have 20 lines.

question

How can I read and get the variable fields the lines which inside of the DLG_Box ?

I mean, read and converting to line listing value. I have the sample values at dlg_box() as

and want to convert as like this

result_list =<<%result%
vItm1 ="a" ,vgp11 ="1a", vgp12 ="2a" , vgp13 ="3a"
vItm2 ="b", vgp21 ="b1" , vgp22 ="b2" , vgp23 ="b3"
vItm3 ="c" ,vgp31 ="1c" , vgp32 ="2c" , vgp33 ="3c"
%Result%
See Sample code

'
DIM  vItm1 as C
DIM  vgp1 as C
DIM  vgp2 as C
DIM  vgp3 as C

'Set the temp value
vItm1 ="a"
vItm2 ="b"
vItm3 ="c"
vgp11 ="1a"
vgp12 ="2a"
vgp13 ="3a"
vgp21 ="b1"
vgp22 ="b2"
vgp23 ="b3"
vgp31 ="1c"
vgp32 ="2c"
vgp33 ="3c"
 
ok_button_label = "&OK"
cancel_button_label = "&Cancel"

DIM  varC_result as C
'varC_result = ui_dlg_box("group line",<<%dlg%
ui_Modeless_dlg_box("group line",<<%dlg%
{region}
Item:|  Field1:| Field 2:| Field 3:| ;
[.40vItm1]|[.10vgp11]|[.10vgp12]|[.10vgp13];
[.40vItm2]|[.10vgp21]|[.10vgp22]|[.10vgp23];
[.40vItm3]|[.10vgp31]|[.10vgp32]|[.10vgp33];

{comment and more fields are here}

{endregion};
{line=1,0};
{region}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%
If a_dlg_button ="ok" then
    a_dlg_button =""
    'How do I know the current Line?
    'How to convert to list (get all records) on this dlg variable fields?
    nCount = *count("group Line")
    msgbox(str(ncount)) 'result - none    
    showvar("group Line","test") 'result - none 
    
    'if ui_dlg_eval_valid("group line","vitm1") then
		'If it does exist, use UI_DLG_EVAL()to read it and display it in a message box.
		ui_msg_box("Show the Value","" + ui_dlg_eval("group line","vItm1 +\";\"+ vGp11"))
    'else
   '     ui_msg_box("Error","Dialog 'Test' is not open.")
    'end if 
end if
if a_dlg_button = "cancel" then
    ui_modeless_dlg_close("group line")
end if

%code%)

Any Idea?

[gkeramidas]

Re: xdialog with fillable/changeable field

well, the reason I have a button for each line is each item that's received has to be individually verified and a variable number of labels printed, it's not always a value in the form.
I dim the number variables based on a line_count() of the values, so I know how many there are of each one.
right now, i'm using the size of an array to get the variables I need dimmed:

for x = 0 to PO_itmArr.size() -1 ' create variables to be dimmed
	cmd = cmd + "dim Line_Item" + alltrim(str(x)) + " as c" + crlf() ' Item Number
	cmd = cmd + "dim Line_Item" + alltrim(str(x)) +  "DE as c" + crlf() ' A Description
	cmd = cmd + "dim Line_Item" + alltrim(str(x)) + "QO as n" + crlf() ' B Qty Order
	cmd = cmd + "dim Line_Item" + alltrim(str(x)) + "OQO as n" + crlf() ' B Original Qty Order
	cmd = cmd + "dim Line_Item" + alltrim(str(x)) +  "QR as n" + crlf() ' C Qty Rec
	cmd = cmd + "dim Line_Item" + alltrim(str(x)) +  "QF as n" + crlf() ' d Qty Ref
	cmd = cmd + "dim Line_Item" + alltrim(str(x))  + "LN as c" + crlf()' E lot #
	cmd = cmd + "dim Line_Item" + alltrim(str(x))  + "Ver as c" + crlf()' F Inspected
	cmd = cmd + "dim Line_Item" + alltrim(str(x))  + "Rea as c" + crlf()'  Reason
	cmd = cmd + "dim Line_Item" + alltrim(str(x))  + "Note as c" + crlf()'  Notes
	cmd = cmd + "dim en_dis" +alltrim(str(x)) + " as l" + crlf() ' enable / disable button
next

by the size of the array, i would know the name of all of the variables and would be able to loop through them all to save a record.

this is what the variables would be if I had 2 items to process:

dim Line_Item0 as c
dim Line_Item0DE as c
dim Line_Item0QO as n
dim Line_Item0OQO as n
dim Line_Item0QR as n
dim Line_Item0QF as n
dim Line_Item0LN as c
dim Line_Item0Ver as c
dim Line_Item0Rea as c
dim Line_Item0Note as c
dim en_dis0 as l
dim Line_Item1 as c
dim Line_Item1DE as c
dim Line_Item1QO as n
dim Line_Item1OQO as n
dim Line_Item1QR as n
dim Line_Item1QF as n
dim Line_Item1LN as c
dim Line_Item1Ver as c
dim Line_Item1Rea as c
dim Line_Item1Note as c
dim en_dis1 as l

knowing this, I know what the value of any give variable would be.
if this doesn't help, try to give me something I can run and see what you're trying to accomplish.

[johnkoh]

Re: xdialog with fillable/changeable field

Gary,

I can read and get the value from Inside of the dlg_box() with this code but I could not figure out crlf() list yet.
Do you have any idea How to make the List

Line one + crlf() 
Line two + crlf() 
Line three + crlf()

'Replaced the Event from the previous sample code
If a_dlg_button ="ok" then
    a_dlg_button =""
    dim i as n
    dim k as n
    dim vline as c
    for i = 1 to 3
    	if eval("vitm"+i)<>"" then
    	    ui_msg_box("found","for "+"vItm"+i+" value as "+[COLOR="#0000FF"][SIZE=3]ui_dlg_eval("group line","vItm" +i) [/SIZE][/COLOR])
    	   [B][COLOR="#FF0000"][SIZE=3] vline = eval("vitm"+i) +";"[/SIZE][/COLOR][/B]
    	    for k = 1 to 3
    	    	if eval("vgp"+i+k)<>"" then
    	    		 ui_msg_box("found line","for "+"vGp"+i+k+" value as "+ui_dlg_eval("group line","vgp"+i+k) )
    	    		[B][COLOR="#FF0000"] [SIZE=3]vline = vline+	eval("vgp"+i+k)+";" [/SIZE][/COLOR][/B]
'** I tried this, moved up and down and added  " crlf() " and deleted ,  
    	    	end if		
    	    next	
    	end if
    next	
    showvar(vline)
end if

[gkeramidas]

Re: xdialog with fillable/changeable field

sorry, I'm not sure what you're truing to do. maybe you can post a before and after to give us an idea.