Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Submitting comma delimited data
Message
From
12/05/2011 10:52:05
 
 
To
11/05/2011 17:26:02
James Blackburn
Qualty Design Systems, Inc.
Kuna, Idaho, United States
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9
Miscellaneous
Thread ID:
01510319
Message ID:
01510459
Views:
55
Thanks for the suggestions, but I didn't have any error pop up and putting the CloseTable function inside my FOR loop didn't help either. Maybe I'll see if I can get Rick from WestWind to comment on this issue.

>Just a WAG. I was wondering if you are hitting an error. The first thing I would do is but a try catch around your opentable function like this.
>
>try 
>	OpenTable(goWCServer.oConfig.oTask.cBTSPath+[key\A]+m.bn,[AppExp])
>catch to loError
>    messagebox(loError.message)
>endtry 
>
>
>I am wondering if you are trying to open another table without closing the first one. The following will fail because the alias atable is still being used. You also might try putting the closetable function inside the for loop.
>
>
>use a1 alias atable
>select into new cursor 
>use a2 alias atable. 
>
>
>>>>I'll just post the whole function, I didn't include some parts because I didn't think they played a part in what I was trying to do, but obviously I don't know what I'm doing so maybe this was the problem all along.
>>>>
>>>>
FUNCTION ApprovalPrintout
>>>>	SET STEP ON 
>>>>	m.bnin = ""
>>>>	m.bn = ""
>>>>	m.ty = ""
>>>>	*Set variables to input from HTML page
>>>>	m.bnin = ALLTRIM(TRANSFORM(Request.Form("bn")))
>>>>	m.ty = ALLTRIM(Request.Form("btntype"))
>>>>	m.msg = ""
>>>>	
>>>>
>>>>		IF EMPTY(m.bnin)
>>>>			IF EMPTY(m.ty)
>>>>			m.msg="You Need To Enter A Batch Number"
>>>>		ELSE
>>>>			m.msg="Shouldnt Get this"		
>>>>		ENDIF
>>>>		
>>>>		
>>>>	ELSE
>>>>
>>>>		
>>>>			NumberRecords = GETWORDCOUNT(m.bnin)
>>>>				FOR i = 1 TO NumberRecords
>>>>					m.bn = PADL(GetWordNum(m.bnin, i, ","),7,"0")				
>>>>   			
>>>>			*Opens the DBF file in the "key" folder, appends "A" and adds the user input as batch number
>>>>			OpenTable(goWCServer.oConfig.oTask.cBTSPath+[key\A]+m.bn,[AppExp])
>>>>			
>>>>			*Select columns from table above, name them for Excel headers
>>>>			SELECT 	bn as [BatchNum],;
>>>>					pk as [RecNo],;
>>>>					"" as [Approved],;
>>>>					shdt as [ShipDate],;
>>>>					canm as [Carrier],;
>>>>					prno as [Pro],;
>>>>					blno as [BOL],;
>>>>					shnm as [Shipper],;
>>>>					ozp as [OZip],;
>>>>					conm as [Consignee],;
>>>>					dzp as [DZip],;
>>>>					wtttl as [Weight],;
>>>>					"" as [ReWeigh],;
>>>>					"" as [Notes],;
>>>>					accd1 as [Acc1],;
>>>>					acamt1 as [Amt1],;
>>>>					accd2 as [Acc2],;
>>>>					acamt2 as [Amt2],;
>>>>					accd3 as [Acc3],;
>>>>					acamt3 as [Amt3];
>>>>			FROM AppExp; 
>>>>			into cursor ApprovalA
>>>>			
>>>>			SELECT ApprovalA
>>>>
>>>>*Copy data from cursor to Excel file
>>>>COPY TO ("C:\test\"+[bn]+m.bn+[T2.xls]) 
>>>>
>>>>m.msg=[File Exported to C:\test\bn]+m.bn+[T2.xls] + TRANSFORM(NumberRecords)
>>>>ENDFOR
>>>>			CloseTable("AppExp")
>>>>
>>>>
>>>>
>>>>	ENDIF
>>>>	
>>>>	Response.ExpandTemplate(goWCServer.oConfig.oTask.cBTSHTMPath+"ApprovalPrintout.htm")				
>>>>		
>>>>	
>>>>ENDFUNC
>>>>
>>>>I stuck the cursor back in temporarily while I was testing some things, and I tried putting the ENDFOR right after the COPYTO, after the CLOSETABLE, and where it currently is in the code above.
>>>
>>>
>>>Just wondering, how are you telling that it has only gone through the loop once? If it is based on your m.msg variable, then that will always report the last one exported, you should change that line to this:
>>>
>>>m.msg= m.msg + CHR(13) + CHR(10) + [File Exported to C:\test\bn]+m.bn+[T2.xls] + TRANSFORM(NumberRecords)
>>>
>>>I'm shutting down for the day. I hope you work it out, if not I'll be back tomorrow morning for a little while.
>>
>>
>>Nope, I was watching it in the debugger, that's when I saw it only hit the FOR loop once. Thanks for the tip, and I'll try the messagebox idea tomorrow, I'm heading out myself.
Previous
Reply
Map
View

Click here to load this message in the networking platform