Xdialog How To Make Static Text Dynamic?

[MoGrace]

I have this function working pretty much as I want, except I am trying to change the text that displays below the file selection boxes and can't figure it out. I included the default text file used in the script and another for testing. They should be put on the root (C:) drive. If you have a different text editor you can select it. You can import the function into the control panel.

Also I would like the checkboxes to always be disabled but can live with it the way it is...

Get_TxtFile2.txt <-New and improved version
NSI_INVREP.TXT
NSI_INV1.TXT

All examples appreciated!

[Stan Mathews]

Re: Xdialog How To Make Static Text Dynamic?

Don't have the tln() function necessary for

Tln("Flag",flag)

Also what does

I am trying to change the text that displays below the file selection boxes

mean?

[MoGrace]

Re: Xdialog How To Make Static Text Dynamic?

I set the default text shown in the attached image to appear disabled, and when the user tabs out of the field or uses enter the checkbox to the right should show if the file is found and the text should confirm in Blue or Red if it was or wasn't. Tln() is just my wrapper for the trace.writeln function - you can comment it out or import it.

Tln1.txt

get_txtfile.jpg

It may be because I made this a modeless dlg - I remember Allen saying there was a difference in how the scripts get processed. I thought using a placeholder was all it needed - but of course I am wrong!

[MoGrace]

Re: Xdialog How To Make Static Text Dynamic?

I fixed the function and replaced it in Post #1. Now all I need to add is the button that will transform the selected file into one ready to import...

[Al Buchholz]

Re: Xdialog How To Make Static Text Dynamic?

Robin do good.

Xdialog fun!

[MoGrace]

Re: Xdialog How To Make Static Text Dynamic?

Can somebody tell me what I ought to do with the section in blue? It only writes the first line n number of times. This is going to be the other button script that converts the file. (not finished)

dim in_file as c = "c:\nsi_inv1.txt"
dim out_file as c = "c:\a5v11\nsi\nsi_rep\nsi_invrep.txt"
dim out_ptr as p
dim tmp_filename as c = "c:\tmpfile.txt"
dim tmp_ptr as p
dim in_str as c
dim in_cnt as n
dim out_str as c
dim out_cnt as n
dim pg_cnt as n
dim pg_Lns as n = 61
dim ovr_flag as L = .f.
dim f_mask as c = space(7)+";"+space(25)+";"+space(12)+";"+space(13)+";"+space(10)
dim hdr_Ln as c = "INVNO;BILLTO1;QUANTITY;DATEIN;TERMS;AMOUNT"
dim in_Ln as c
dim out_Ln as c

if in_file = "" then
	in_file = ui_get_file("Open Text File","Text (*.txt)","c:\a5v11\nsi\nsi_rep\\","X")
	if in_file = "" then
		'user cancelled
		end
	end if
end if

in_str = get_from_file(in_file)
in_cnt = line_count(in_str)
pg_cnt = ceiling(abs(in_cnt / pg_Lns))
out_str = *line_remove(in_str,in_cnt-5,6) 'removes the report footer first

if pg_cnt > 1 then	'2 or more pages in report
	'remove last header first
	i = pg_cnt+1
	for i = i to 2 STEP -1
		n = pg_Lns * (pg_cnt-1)	'Ex: 3 pages, 2nd hdr begins on line 61; 3rd hdr on line 122
		out_str = *line_remove(out_str,n,12)
		pg_cnt = pg_cnt-1
	next
	if pg_cnt = 1 .or. i = 2 then
		out_str = *line_remove(out_str,1,12)
	end if 
else
	'report is only 1 page so remove the header
	out_str = *line_remove(out_str,1,12)
end if

msgbox("Output Text",out_str)
response = msgbox("Confirm Output Text","Ready to convert to new file for importing?",33)
if response = 2 then
	'user cancelled
	end 
else
	save_to_file(out_str,tmp_filename)
end if

'tmp_ptr = file.open(tmp_filename,FILE_RW_EXCLUSIVE)
'continue to use out_str as source
if file.exists(out_file) then
	file.remove(out_file)
end if

on error goto ENDIT
out_ptr = file.create(out_file,FILE_RW_EXCLUSIVE)
out_ptr.write_line(hdr_Ln)

[COLOR="#0000FF"]for each foo in out_str
	'in_Ln = strtran(tmp_ptr.read_line(),chr(12),"")
	in_Ln = strtran(out_str,chr(12),"")	'check each line for a FF character
	if left(in_Ln,1) = "" then		'good text may have leading blank space
		if left(in_Ln,2) <> "" then	'should skip a blank line
			out_Ln = substr(mask(in_Ln,f_mask),2)
			out_ptr.write_line(out_Ln)
		end if		
	end if
next[/COLOR]
out_ptr.flush()	'writes the cache to the variable
ENDIT:
out_ptr.close()
sys_open(out_file)

[Tim Kiebert]

Re: Xdialog How To Make Static Text Dynamic?

I think this line

in_Ln = strtran([COLOR="#FF0000"]out_str[/COLOR],chr(12),"")	'check each line for a FF character

should be

in_Ln = strtran([COLOR="#FF0000"]foo[/COLOR],chr(12),"")	'check each line for a FF character

[MoGrace]

Re: Xdialog How To Make Static Text Dynamic?

Thanks Tim,
it took me a while to see it. Now my only problem is getting the import operation to work with this file. The commas in the numeric fields were the first problem - removing them messed with the fixed width. I was hoping to skip opening in Excel - not that it helped much. I am about to give this XD business up and go back to a form...

[Tim Kiebert]

Re: Xdialog How To Make Static Text Dynamic?

Instead of just removing the commas can you not replace them with something else like a space.

[MoGrace]

Re: Xdialog How To Make Static Text Dynamic?

When I removed the commas in the numeric fields in a text editor the spacing was no longer fixed. If I put a space there, I would still have to remove it or put the space in front of the numbers . So my script would have to jump thru even more hoops!

In my sample report file, because the date is 1/30/2015, there are 2 leading spaces. This field should be '01/30/15' for importing, although '1/30/15' also works. What doesn't work is '1/30/2015'. The date field will take 8 or less chars but not more.

Stan's suggestion of using mask() is good but I am having some trouble with the number of spaces between the fields as well as field alignment and fixing the 'date' field so Alpha will import it correctly. I was hoping to accomplish it all with a script and not have to open an editor or Excel... And when the file is done, hopefully it will match the table fields exactly.

So my TABLE fields are a total of 69 chars, whereas my report char count is 79.

INVNO C,6
BILLTOLINE1 C,25
QUANTITY N,10,2
SHIPDATE D,8
TERMS C,10
AMOUNT N,10,2

so should my mask be:

space(6)+";"+space(25)+";"+ etc. - like my table?

or

space(7)+";"space(26)+";"+ etc. to accommodate for the space between the report fields?

per wiki:
Description

MASK() inserts characters from Unformatted_String into Template_String to replace all of the spaces in Template_String and returns the newly formatted string. Non blank characters in Template_String are included in the output Formatted_String. To include a space in the Formatted_String, use the pipe character ( | ) in the Template_String.

[MoGrace]

Re: Xdialog How To Make Static Text Dynamic?

This is my first conversion - which at least now has field markers in it:

INVNO;BILLTOLINE1;QUANTITY;SHIPDATE;TERMS;AMOUNT
31763 ;Actex Trading, LLC       ;  3,741.00;  1/30/2015 ;NET 30        ; 1,421.58 
31764 ;Bentex Cotton Ind.       ;  5,587.00;  1/30/2015 ;NET 30        ; 2,667.00 
31765 ;Fairway Trading, Inc.    ; 22,415.90;  1/30/2015 ;NET 30        ; 8,408.16 
31766 ;Gil Land                 ;  1,149.00;  1/30/2015 ;NET 30        ;   618.10 
31767 ;I Q Textile Ind., Inc.   ;  9,806.00;  1/30/2015 ;NET 30        ; 4,665.00 
31768 ;Laguna Fabrics           ;    724.00;  1/30/2015 ;NET 30        ;   398.20 
31769 ;Isigalo Llc              ;    315.40;  1/30/2015 ;NET 30        ;   110.39 
31770 ;Millknits                ;  3,794.00;  1/30/2015 ;NET 30        ; 1,990.70 
31771 ;Pacific Sourcing Group   ;  9,950.00;  1/30/2015 ;NET 30        ; 2,301.85 
31772 ;Sun Dragon Import, Inc.  ;  8,408.80;  1/30/2015 ;NET 45        ; 3,012.68 
31773 ;The Destiny Group, Inc.  ;  6,479.00;  1/30/2015 ;NET 30        ; 3,406.69

[Allen Klimeck]

Re: Xdialog How To Make Static Text Dynamic?

Robin you could easily write to the table as you build your converted file. In your conversion code add:

[COLOR="#FF0000"][/COLOR][COLOR="#FF0000"]tbl = table.open("your import table")
vncount = 1[/COLOR]
for each foo in out_str
	'in_Ln = strtran(tmp_ptr.read_line(),chr(12),"")
	in_Ln = strtran(foo,chr(12),"")	'check each line for a FF character
	if left(in_Ln,1) = "" then		'good text may have leading blank space
		if left(in_Ln,2) <> "" then	'should skip a blank line
			out_Ln = substr(mask(in_Ln,f_mask),2)
			[COLOR="#FF0000"]if vncount >=2 'need to skip field names
				tbl.enter_begin()
				tbl.invno.value = word(out_ln,1,";")
				tbl.billtoline1.value = word(out_ln,2,";:)
				tbl.quantity.value = word(val(strtran(out_ln,",","")),3,";")
				tbl.shipdate.value = word(ctod(out_ln),4,";")
				tbl.terms.value = word(out_ln,5,";")
				tbl.amount.value = word(val(strtran(out_ln,",","")),6,";")
				tbl.enter_end(.t.)
			end if[/COLOR]
			out_ptr.write_line(out_Ln)
		end if
	[COLOR="#FF0000"]vncount = vncount +1[/COLOR]
	end if
next
tbl.close()

[MoGrace]

Re: Xdialog How To Make Static Text Dynamic?

Allen,
Where were you 3 days ago? lemme try it...

Well that certainly ends my struggle today with leading and trailing spaces in the 'date' field!

Thank you so much!

[Allen Klimeck]

Re: Xdialog How To Make Static Text Dynamic?

Glad it helped!

[MoGrace]

Re: Xdialog How To Make Static Text Dynamic?

I changed your syntax a bit - but even so you got me on the right track for how to do this simply:

for each foo in out_str
	out_Ln = foo.value
	on error goto ERRMSG
	tbl.enter_begin()
		on error goto 0		
		tbl.invno = word(out_ln,1,";")		
		tbl.billtoline1 = word(out_ln,2,";")
		tbl.quantity = val(word(strtran(out_ln,",",""),3,";"))						
		tbl.shipdate = ctod(alltrim(word(out_Ln,4,";")))
		tbl.terms = word(out_ln,5,";")
		tbl.amount = val(word(strtran(out_ln,",",""),6,";"))		
	tbl.enter_end(commit_flag)	
	cnt = cnt+1									
next

Now all I need to do is make it into a function and add it to the Xdialog...