Foxite.COM Visual FoxPro Forum

Other: Virtual Network Drive

Sun, 21 Mar 2010 10:52:53 +0100

Version: Visual FoxPro 9 SP2

Dear Sirs,

I am making a project on a nework environment and data storage drive is:
\\fileserver\APMS

Is it possible to create a virtual drive of same letter on a PC not connected to LAN? because I need this environment to test my work sometime at home.

Thanking you,
IRFAN

Reports and Printers: print with @ say

Fri, 19 Mar 2010 12:07:32 +0100

Version: Visual FoxPro 6

hi kulwant

tried using your way, it worked, but i cannot select the font like i am using shivaji01 font for few lines and then courier new for few lines,
the fonts are not getting printed and the whole printout comes on 132 hence it is not accepting the cpi setting also

i guess it is because of the initial ??? ' ' issued after set printer to

please help

regards

kemir

> > Hello,
> >
> > I guess you guys have not understood my problem
> >
> > Here is a sample program
> >
> > store 0 to row, col
> > set devi to prin
> >
> > @ row,col say "ABCD"
> > row=row+1
> > @ row,col say "ABCD"
> > row=row+1
> > @ row,col say "ABCD"
> > row=row+1
> > @ row,col say "ABCD"
> > row=row+1
> > @ row,col say "ABCD"
> > row=row+1
> >
> > ***** Now here after the output has printed the said text of say 5 lines or 3 lines
> > ***** in my dos program i used to issue an eject command, that would enable a full formfeed to the printer
> > ***** and make the printer enable to print the next copy on exactly the top row set, need not have to re-set the ***** page for top row, so like if we issue eject command , it ejects the full page but where as in the above said
> > ***** text if i had to issue eject command with consideration of page length of 4" instead of 11 / 12" then i used
> > ***** to issue the following text
> >
> > if prow()#0
> > set devi to prin
> > @ row,col say chr(27)+ chr(67)+ chr(4) &&&& This would set the page length to 4" so that it skips only
> > that much page and again the printer is ready to print the
> > next page without having the reset the top row and margin manually
> >
> > set devi to scree
> > row=0
> > endif
> >
> >
> > but in foxpro for windows when i issue the chr commands it prints garbage or graphic signs and doesnot accept or understand the chr commands and issues a full page formfeed of 11 / 12" when the eject command is given
> >
> > My printer is lets say epson lx 300+ / Epson 1050+ / Fx 1050 / Tvse printers ---- these are common printer and have also checked their manauls , but doesnot understand the chr command as it does in dos module
> >
> > if the same above program is run using foxpro for dos it works absolutely fine
> >
> >
> > regards
> >
> > kemir
>
> Hi Kemir,
>
> If i have understood your question correctly, you want to print 3,4 or 5 (or more)lines and want the printer to stop right there ...without any formfeed.
>
> if Yes ..
>
> Please try this and see if it is helpful. (I don't have FPW anymore but this is what I used to do with FPW and this still works with VFP9)
>
> If you have line 'SET PRINTER ON' anywhere before the printing starts ...REMOVE IT.
>
>
Set Device To Print
> ??? '' && three question marks , single quotes START and single quotes END
> Printjob
> @ Prow(),1 Say 'abc'
> @ Prow(),40 Say 'def'
> @ Prow()+1,1 Say '------------------------------------------------------------------'
> @ Prow()+1,1 Say ' ITEM Qty Rate Nontax Taxable '
> @ Prow()+1,1 Say '------------------------------------------------------------------'
>
> for i = 1 to 10 && to move the printer roller forward 10 lines
> @ prow() + 1, 1 say ' '
> endfor
>
> Endprintjob
> Set Device To Screen
> Set Print To

>
> You will not get any unwanted page eject.
>

Databases, Tables and SQL Server: creating multi-company of an application

Sun, 21 Mar 2010 10:47:45 +0100

Version: Visual FoxPro 6

Dear Expert,

A multi user application is to be made multi company

The challenges are as follows:

a. For each company, the processes are unique.

REQUEST.

If a new company is added to the application. The system should be able to

1. Create its reports from the default, and put in a folder or sub-folder.

2. It should be possible to run the end-of-month processes independently for each company.

3. It should be possible to create a set of reports for each company very different from another.

How is the above request achievable?

Any ideas?

Thanks

Classes and Objects: Wait State

Sat, 20 Mar 2010 18:36:29 +0100

Version: Visual FoxPro 9 SP2

Hi All,

In one of my applications I need to import/append millions of records into DBF tables. I would like to have something happening on my screen while this process is active (which may take up to 5 minutes!!). A wait window screen is not really on option as nothing happens and the user may think the application is frozen. I've tried animated GIFs, like the Thobber posted on Foxite, but they don't move either during such disk intensive jobs. Is there no other solution? A class perhaps that reserves some memory to keep the animated GIF moving?

Thanks

Harry Lode

Forms: To select table from diff. data session

Sun, 21 Mar 2010 08:43:09 +0100

Version: Visual FoxPro 9 SP2

Dear sirs,

If a table opened in a default data session with alias 'postings'. How it can be select through a Form using 'private data session'. Please guide

Thanking you,
IRFAN

Databases, Tables and SQL Server: Copy Table From One Location to another

Sat, 20 Mar 2010 19:14:58 +0100

Version: Visual FoxPro 9 SP2

Dear Sirs,

Please guide me what is the best way to copy a table from one location to another filtering the specific records without opening the shared tables. For example:

select * from MYTABLE where uzerid>100 into table 'abc'

I think its the best way. But is there some better option than this command which prevent opening the table first.

Thanking you,
IRFAN

Forms: Form method and do program approach

Sat, 20 Mar 2010 07:24:05 +0100

Version: Visual FoxPro 9 SP2

Hi all

I wrote a print routine in two ways

1.. add metod in form
then call it like thisform.printit(para1, para2)

2. create prg file
call it
=printit(para1, para2)

what is the difference between two? Which one is better.

I have one benefit in prg, call this prg from every from easily.

Nadeem Iqbal

General VFP Topics: Add Additional TextBox in Excel Column

Thu, 18 Mar 2010 01:52:52 +0100

Version: Visual FoxPro 6

Hi All,

1. Is it possible to add extra textbox to excel column
2. One would hold Numeric Data & Other would hold character data
3. By Using SetAll.DynamicCurrentControl I would be able to show Character for row marked Type='Character'
& Numeric data for rows marked as Type="Numeric" in same column
4. I dont want to store numeric data as character
This is required because in some rows I have to Put 'Yes' or 'No' based on conditions

Is it possible or can be done by some other means

Thanks in advance

Regards
Rajesh

Win32API programming: Windows Messages / Events

Fri, 19 Mar 2010 15:59:52 +0100

Version: Visual FoxPro 9 SP2

Hi, I'm trying to know if the user clicked on the "Print" button in the "Printer Prompt" dialog.
For this task, I decided to use BINDEVENT() to get control of the Windows Messages.

I managed to get the main Dialog and the Print button's hWND, but I'm still having problems in firing an event when that button is pressed. In fact, I want to set a property with TRUE if the button was pressed.

Below is the code I'm working on, based on samples from Herman Tan http://hermantan.blogspot.com/2008/07/centering-vfp-messagebox-in-any-form.html and Anatoliy Mogylevets http://www.news2news.com/vfp/?example=274&function=159. Can someone run that sample and give me a hint ?

This is to be used by Foxypreviewer.

#DEFINE WM_LBUTTONDOWN 		0x0201
#DEFINE WM_KEYDOWN 		0x0100
#DEFINE WM_NCLBUTTONDOWN 	0x00A1
#DEFINE WM_PARENTNOTIFY 	0x0210
#DEFINE WM_COMMAND 		0x0111
#DEFINE WM_RBUTTONDOWN 		0x204
#DEFINE GWL_WNDPROC 		-4
#DEFINE WM_PAINT 		0x006

LOCAL loDialog
UNBINDEVENTS(0) && Clear all remaining events

loDialog = CREATEOBJECT("pr_PrinterDialog")
loDialog.RunDialog()
MESSAGEBOX(loDialog.lPrinted)
loDialog = NULL

RETURN
**********************

DEFINE CLASS pr_PrinterDialog AS CUSTOM
	pOrgProc = 0
	lPrinted = .F.

	PROCEDURE INIT
		DECLARE LONG GetWindowLong IN User32 ;
			LONG nhWnd, INTEGER nIndex

		DECLARE LONG CallWindowProc IN User32 ;
			LONG lpPrevWndFunc, LONG nhWnd, ;
			LONG uMsg, LONG wParam, LONG LPARAM

		DECLARE LONG FindWindowEx IN User32 ;
			LONG hWndParent, LONG hWndChildAfter, ;
			STRING lpszClass, STRING lpszWindow

		THIS.pOrgProc = GetWindowLong( _VFP.HWND, -4 )
	ENDPROC

	PROCEDURE RunDialog( tc_Msg, tn_Type, tc_Title )
		BINDEVENT( 0, WM_PAINT, THIS, 'WndProc' )

		REPORT FORM (ADDBS(_Samples) + "SOLUTION\REPORTS\COLORS.FRX") NOCONSOLE TO PRINTER PROMPT
		UNBINDEVENTS( 0, WM_PAINT )
	ENDPROC

	PROCEDURE WndProc( th_Wnd, tn_Msg, t_wParam, t_lParam )
		IF (tn_Msg == WM_PAINT) AND (t_wParam == 0)

			LOCAL lh_WndChild && This is the "Print" button hWND
			lh_WndChild = FindWindowEx( t_lParam, lh_WndChild, 'Button', 0 )

			IF (lh_WndChild <> 0)
				hWindow = t_lParam
				* link WM_PARENTNOTIFY window message to a method
				=BINDEVENT(hWindow , WM_PARENTNOTIFY, THIS, "WindowProc")
				=BINDEVENT(hWindow , WM_COMMAND, THIS, "WindowProc")

				* BINDEVENT( hWindow , WM_LBUTTONDOWN, THIS, 'WndPrint' )
				* BINDEVENT( hWindow , WM_NCLBUTTONDOWN, THIS, 'WndPrint' )
			ENDIF

		ENDIF

		Return CallWindowProc( This.pOrgProc, th_Wnd, tn_Msg, t_wParam, t_lParam )
	ENDPROC


	PROCEDURE WindowProc(hWindow as Integer,;
			nMsgID as Integer, wParam as Integer, lParam as Integer)

		LOCAL nReturn
		nReturn=0

		DO CASE
		CASE nMsgID=WM_COMMAND
			ACTIVATE SCREEN
			? "WM_COMMAND: wParam=" + LTRIM(STR(wParam)) +;
				", lParam=" + LTRIM(STR(lParam))

		CASE nMsgID=WM_PARENTNOTIFY
			ACTIVATE SCREEN
			? "WM_PARENTNOTIFY: wParam=" + LTRIM(STR(wParam)) +;
				", lParam=" + LTRIM(STR(lParam))

			This.lPrinted = .T.

			DO CASE
			CASE wParam = WM_LBUTTONDOWN
				? " -- Left Button pressed"
			CASE wParam = WM_RBUTTONDOWN
				? " -- Right Button pressed"
			ENDCASE

		OTHERWISE
		* pass control to the original window procedure
		*        nReturn = CallWindowProc(THIS.hOrigProc, THIS.hWindow,;
			m.nMsgID, m.wParam, m.lParam)
		ENDCASE

		RETURN nReturn
	ENDPROC

	PROCEDURE DESTROY
		UNBINDEVENTS(0)
		CLEAR DLLS
	ENDPROC
ENDDEFINE

Thanks in advance for any insight regarding this.

Regards,

Cesar
My Blog

Active X Controls & OLE Automation: Select another soundcard

Sun, 21 Mar 2010 05:17:00 +0100

Version: Visual FoxPro 9 SP2

Hi all
Can anyone tell how I can select another soundcard for play mp3 in vfp9 using mciSendCommand ?

Regards

Yaten

Databases, Tables and SQL Server: SQL Select

Fri, 19 Mar 2010 09:36:33 +0100

Version: Visual FoxPro 6

Dear Experts

The followong code appears incorrect, as the result is not the way I expect. Please help me.

create cursor maindata (trtyp c(1), dtyp c(1),qty n(8,2))
insert into maindata(trtyp,dtyp,qty) values("S","1",250)
insert into maindata(trtyp,dtyp,qty) values("S","2",350)
insert into maindata(trtyp,dtyp,qty) values("P","1",450)
insert into maindata(trtyp,dtyp,qty) values("P","2",550)

sele trtyp,dtyp,iif(trtyp="P" and dtyp = "1",qty,0) as pur_cash,;
iif(trtyp="P" and dtyp = "2",qty,0) as pur_credit,;
iif(trtyp="S" and dtyp = "1",qty,0) as Sale_cash,;
iif(trtyp="S" and dtyp = "2",qty,0) as sale_credit ;
from maindata

Thanks and regards
Baby Thomas

Active X Controls & OLE Automation: MSComCtl2.DTPicker.2 Problem

Sat, 20 Mar 2010 16:39:06 +0100

Version: Visual FoxPro 9 SP2

Good day.

I used an object with Oleclass MSComCtl2.DTPicker.2 (Date Picker). I named the Object DatePicker1.

As a security procedure, based on user profile, I need to Enable or Disable the object. I tried using the Enabled property of the object. Though Enabled property is set to .F., the user can still click the down arrow (Drop-Down) and select his desired date.

Please help.

Thanks.

General VFP Topics: MESSAGE(1) command

Sat, 20 Mar 2010 17:04:52 +0100

Version: Visual FoxPro 6

Hello Experts!

I saw this in VFP9 help.

MESSAGE(1)

is not available in the runtime.

If the program source code is not available,

MESSAGE(1)

returns one of the following:
The entire program line if the line is macro-substituted.

A command if the line contains a command without any additional clauses.
A command followed by three dots (...) if the line contains a command and additional clauses.

I have an application built in VFP6 and have error handler module where I capture the error line of code using

MESSAGE(1)

. I've a situation where, the additional clause should be displayed during error handling.

Is there any way we can list the additional clause?

Thank you in advance for the help!

Regards,
Jyotish

Foxite Downloads: Arg Txlib for Textcontrol

Sat, 20 Mar 2010 17:44:36 +0100

Version: Visual FoxPro 9

Arg Txlib for Textcontrol 15.1 (Ribbon Textcontrol for Visual Foxpro)

Alex Grigorjev has brought us his marvelous Command Bars Library. Now he is going to bring us something even more powerful: the complete integration of the industry leading activex Textcontrol, adapted to VFP. Implementation of a powerful ribbon based (word-like) Textcontrol into your app has neven been easier before! Design new apps with integrated Textcontrol with the look and feel of Office 2010. This is a demo of the upcoming product features. The demo (just 1 exe file) is completely virtualized and works on Windows 2000, XP, Vista and 7 in 32 Bit and 64 Bit Version in admin and guest mode. All activex libs, foxpro runtimes are within the "exe", there is no need to install anything on your machine. Watch the new fading possibility of command bars lib 8.08 in action with this demo.

http://www.swissholter.com/argtxcontroldemo/arglibdemo0951Beta.exe

Installation:
Copy the exe file to a folder of your choice and start it from there. Klick on the "Textcontrol Ribbon Interface" tab to see the functional demo of ribbon-style activex txcontrol. Click on options on the right side of the menu to try out the fully implemented themes.

Changes and corrections in this release:
Alex made many corrections and changes. He moved all code to vcx-files in order to simplify the development work for you. The product is much more stable and even faster now.
Print preview is still not implemented but will be implemented with the next release.
Remeber, this is a virtualized version. Therefore the performance is a bit lower than in a normal environment!

Grids: Checkbox in grid programmatically

Sat, 20 Mar 2010 16:53:23 +0100

Version: Visual FoxPro 9

hi,
how to add checkbox programmatically in grid. at run time.

please support.

Pandurang S.chavan

Forms: print html from vfp

Thu, 18 Mar 2010 21:31:48 +0100

Version: Visual FoxPro 9

heya

plz can i no how to print html document from vfp?

Active X Controls & OLE Automation: Print Richtext on Report

Sat, 20 Mar 2010 15:12:51 +0100

Version: Visual FoxPro 7

Hi to all

I store richtext in a general field. And print it on report with other data its working is well if the richtext box consist on single page.When it increase more than two pages or more. It only print or preview the only one page.

what i do for remove this error. Please help me.

Thanks

Rashid Mehmood

ODBC, ADO and OLEDB: MySQL Speed issue

Fri, 19 Mar 2010 17:26:07 +0100

Version: Visual FoxPro 9 SP2

Hi All,

I am using MySql version 5.1 as a backend database and VFP9 SP2 as a front end. They are connected through MySql Connector/ODBC. However I have one table with about 600,000 records which I have to bring over to the work station in a couple of screens. Using the MySql administrator, getting all this data can take only about 30 seconds, however getting this data from the workstation can take betweeen 4 and 5 minutes, which I am sure you appreciate is way too slow. Can anybody out there help me please to speed this up. I am at my wits end.

Thanks in advance,

Garrett.

General VFP Topics: Download archives for offline viewing

Thu, 18 Mar 2010 01:58:22 +0100

Version: Visual FoxPro 6

Hi All,

How can I download all archives in one go for offline viewing

Regards
Rajesh

Projects and Design: no over write msg appear

Sat, 20 Mar 2010 10:55:26 +0100

Version: Visual FoxPro 5

hi experts,
is there any way that no msg appear when we over write on a table
Regards,
madiha saleem

Errors & Debugging: BOUT EMPTY FIELDS

Fri, 19 Mar 2010 09:50:44 +0100

Version: Visual FoxPro 9

i have an empty field but it wont return .T. when i try to use empty() and isblank().
i also tried to alltrim() but still no luck
When i try to use len() it would return an equal number to its fields width.

is this a corrupted data? how can i fix this?

thanks in advance

Grids: how to delete a selected row in a grid

Fri, 19 Mar 2010 04:03:46 +0100

Version: Visual FoxPro 9

'nyone can help me?
i did browse/search for some related problems am facin' now. its about deleting a record/row in a grid.
i use grid for displaying records from table,and rigth now what i want is if the user select the row displayed in the grid and click on the delete command button it will delete the row/record from the grid and also in the table.

i have used the insert-sql command to add record from my table, so that every time that the user input the itemcode to my textbox and click the add command button it will be added in my table and display in my grid.

and now i've added a delete command button in my form just to delete a row/record.what ever row the user click/select from my grid and click on the delete button will be deleted.

my problem is that the last item that the user added in my table is the one that been deleted and not the one being selected.

i appreciate any help...
thanks.

heres my code
*adding record to table by clicking the add button

INSERT INTO pultable2 ( co_dr, pr_code, pr_desc, ;
pr_qty, pr_price, pr_amt, class, s_class, v_date) ;
VALUES ( pulslip,;
thisform.Text3.value, ;
thisform.Text4.Value, ;
thisform.Text5.Value, ;
thisform.Text6.Value, ;
thisform.Text9.Value, ;
thisform.Text7.Value, ;
thisform.Text8.Value, ;
thisform.Text2.value)

thisform.grid1.RecordSource = [c:\browser1\pultable2]
thisform.grid1.RecordSourceType = 0
thisform.grid1.AutoFit
thisform.grid1.ReadOnly = .t.
thisform.grid1.Refresh
thisform.Command3.SetFocus

SELECT pr_qty, pr_amt ;
FROM c:\browser1\pultable2 ;
INTO CURSOR pCursor1 READWRITE

SUM pCursor1.pr_qty TO totQty
SUM pCursor1.pr_amt TO totAmt

thisform.Text10.value = ALLTRIM(TRANSFORM(totQty,'999,999'))
thisform.Text11.value = ALLTRIM(TRANSFORM(totAmt,'999,999,999.99'))

**----------------

*delete button

SELECT pultable2
DELETE
thisform.grid1.Refresh

Projects and Design: sql query help

Sat, 20 Mar 2010 06:17:11 +0100

Version: Visual FoxPro 5

hi experts,
i need ur help in sql query
i have three tables in which i have same columns but different number of rows and i want all of them in a single table with all records of all three tables like:
table1
id_1 emp_no
1 234
2 235
3 236
4 237

table2
id_2 emp_no
1 300
2 301
3 302

table3
id_3 emp_no
1 236
2 237
3 238
4 239
5 240
6 241
7 245

Regards,
madiha saleem

Databases, Tables and SQL Server: SQL Table Unique No. for PK

Sat, 20 Mar 2010 06:32:45 +0100

Version: Visual FoxPro 9 SP2

Dear Expert

I need to create a uniq code for a master file which should be max of 12 chrs
must be digitial.The reason behind: Say if the master file is of A Paitent,then
paitent may refer is ID for any information to Hospital.

Points to be consider:
1. Back End SQL-2005 Exp
2. There r 16 Local Users
3. Theer may be about 10 remote users who may create masters.

I had gone through Global Uniq no system but lenght does not fit for my requirement.

Please!
TIA

*Exchange of $1 Create only $1, But Exchage of one Ideas Makes different two Ideas*

Projects and Design: Display resolution

Sat, 20 Mar 2010 06:09:51 +0100

Version: Visual FoxPro 9 SP2

Dear Sirs,

How to check before a form is loaded that what Display resolution is set on a PC where that specific form is being loaded? (i.e. 1024 x 768 OR 1280 x 1024)

Thanks,
IRFAN

Forms: Single Instance of a loaded Form

Sat, 20 Mar 2010 05:55:56 +0100

Version: Visual FoxPro 9 SP2

Dear Sirs,

How to check that if a form or forms (suppose named "fm_survey", "fm_uzers") are already opened and how can block to be opened more than once in a session. Please guide.

Thanking you,
IRFAN

Classes and Objects: Configuring Imgcanvas

Sat, 20 Mar 2010 02:09:49 +0100

Version: Visual FoxPro 9 SP2

I've placed an Imgcanvas control on a form. Set the property RenderMode = 1 since I apparently gives better performance for my graphics, but initially is shown in black. How can I make the initial color is white?

Thanks in advance!

Alfonso

Projects and Design: age in months

Fri, 19 Mar 2010 11:31:14 +0100

Version: Visual FoxPro 5

hi experts,
can any one help me how can i calculate age of a person in months

Regards,
madiha saleem

General VFP Topics: DLL conversion form VB

Thu, 18 Mar 2010 09:54:14 +0100

Version: Visual FoxPro 6

The following is a sample code to read from a card reader in VB.

Private Sub BeginTransaction_Click()
Dim strFilename As String
Dim strResult As String
Dim strIDNum As String
Dim strLicenseKey As String
strLicenseKey =
"L+tV6/GOd1qLZHiww/9SdSu35vQw0Y2+Ezj
mYINKClw="
Dim oMykad As New mykadpro.mykad
Screen.MousePointer = vbHourglass
strResult =
oMykad.BeginTransaction(txtReadername.Tex
t, strLicenseKey)
If strResult = "0" Then
lstData.Clear
lstData.AddItem ("YOUR MYKAD
INFORMATIONS (READ ONLY)")
strIDNum = oMykad.getIDNum
lstData.AddItem ("getIDNum: " & strIDNum)
lstData.AddItem ("getKPTName: " &
oMykad.getKPTName)
lstData.AddItem ("getGMPCName: " &
oMykad.getGMPCName)
lstData.AddItem ("getAddress1: " &
oMykad.getAddress1)
lstData.AddItem ("getAddress2: " &
oMykad.getAddress2)
lstData.AddItem ("getAddress3: " &
oMykad.getAddress3)
lstData.AddItem ("getPostcode: " &
oMykad.getPostcode)
lstData.AddItem ("getCity: " &
oMykad.getCity)
lstData.AddItem ("getState: " &
oMykad.getState)
lstData.AddItem ("getGender: " &
oMykad.getGender)
lstData.AddItem ("getRace: " &
oMykad.getRace)
lstData.AddItem ("getOldIDNum: " &
oMykad.getOldIDNum)
lstData.AddItem ("getBirthPlace: " &
oMykad.getBirthPlace)
lstData.AddItem ("getBirthDate: " &
oMykad.getBirthDate)
lstData.AddItem ("getCitizenship: " &
oMykad.getCitizenship)
lstData.AddItem ("getReligion: " &
oMykad.getReligion)
lstData.AddItem ("getCardVer: " &
oMykad.getCardVer)
lstData.AddItem ("getDateIssued: " &
oMykad.getDateIssued)
lstData.AddItem ("getGreenCardExpiry: " &
oMykad.getGreenCardExpiry)
lstData.AddItem ("getGreenCardNationality: "
&
oMykad.getGreenCardNationality)
'thumb print
strFilename = "out/" & strIDNum &
"_thumbright.txt"
strResult =
oMykad.getThumbRight(strFilename)
lstData.AddItem ("ThumbPrintRight: " &
strFilename)
Paste this command on the ReadMYKAD
button click.
Sample VB6 source code

I have try to write the following to read the DLL file

DECLARE mycardpro.mykad in mycardpro.dll string txtreader, string strLic

but i get the message " Cannot load 32-bit DLL"

thanks.

Reports and Printers: Reset laser printer row, column

Fri, 19 Mar 2010 19:01:01 +0100

Version: FoxPro 2.x for MSDOS

I am trying to get a laser printer to reset the row and column programatically. I believe I have the correct printer codes ( Esc&a#R for row and Esc&a#C for column), but the printer does not seem to accept them.

Here is the overall problem: I am printing a document to a laser printer line by line using @x,y say blah to fill in a pre-printed form. The program is set to break the document when it reaches line 55, print a footer on the current page starting on line 58, then go to the next page. Seems simple.

When the page has fewer than 55 lines the footer prints starting on the correct line. When the page has more than 55 lines, the footer text prints one line lower than expected. All of the footer prints in both cases, so I don't think it is a margin issue.

The code is way simple:
line = 58
@ line, 1 say "Footer line one"

My thought was that when the page is long internally the laser printer has moved past line 58 so it cannot "back up" to print the footer, but I am not sure if that is really the problem.

Any ideas? TIA for your help!
Margaret

General VFP Topics: creating windows service using VFP

Fri, 19 Mar 2010 18:59:55 +0100

Version: Visual FoxPro 9 SP2

Hi All

Can anyone explain about creating windows service.
The DLL is created for reading a file that will be present at folder in the server.
But i am facing problem in registering the dll as window serivice and setting the time intervel to execute the dll.

Please help me regarding this.

Thanks and Regards
Renjith

General VFP Topics: WHERE clause is invalid

Fri, 19 Mar 2010 20:19:51 +0100

Version: Visual FoxPro 9 SP2

Hi,

I have query in form

tcWhere ="(EMPTY(I.DateVoided) OR I.DateVoided > CRep.AsOfDate) AND I.Amount <> I.PaidPosted and I.IsPosted and NOT I.EarlyInvoice and crep.currencycode"

SELECT &lcFieldList. ;
		from Company!ARInvoice I ;
			inner join Company!CV C on C.CVCode = I.CVCode ;
			LEFT JOIN company!st S ON I.stid = S.stid ;
			LEFT JOIN company!contact K ON C.cvcode = K.cvcode AND K.Source = "CV" AND K.ismainbillto ;
			INNER JOIN company!terms T ON I.termsid=T.termsid;
		WHERE &tcWhere.;

I get the error where clause is invalid. Please guide me to track down the where part error. I just added the last part newly "and crep.currecycode" and the error started

Thank you

Operating Systems: VFP .dbc residing on 64-bit file server

Fri, 19 Mar 2010 18:23:52 +0100

Version: Visual FoxPro 9 SP2

Recently we moved the .dbc holding all the tables for our application from a Windows 2003 server to a windows 2008/64 bit server.
Shortly afterward we began to experience data related issues such as corrupted indexes and "access denied - file is in use by another".
After trouble shooting this over a period of a few months, we decided to move the .dbc back to it's original location and these errors have all but disappeared. I hesitate to assume that the problem is strictly because the .dbc/tables were served from a windows 2008/64 bit server.

Has anyone else had such issues or does anyone have any insight to offer on this?

Any responses would be greatly appreciated!

Forms: Select Issue

Thu, 18 Mar 2010 11:00:29 +0100

Version: Visual FoxPro 9

Hi,

I am having problems with the select below;

select * from temp_abacus where "01 " $ keycode ;

I want to select data from a file where "01" is contained in the column "keycode"

the file type i am using is a CSV.

I am getting the error "function argument value, type, or count is invalid"

General VFP Topics: Service Pack Installed?

Thu, 18 Mar 2010 08:14:14 +0100

Version: Visual FoxPro 6

Hello Experts!

I've tried to find in archive for my answer but in vain. Regret for my impatience! This is very urgent. How would I know the VFP installed on my machine is having service pack and what version?

My current VFP version is 06.00.8167.00 (VFP 6), but I do not know if this have any service pack installed. My project requires an answer to get a service pack installed soon if doesn't have.

Also, please tell me what is the latest SP available for VFP6.0 and where I can get it (free or share).

Please help me!

Regards,
Jyotish

Databases, Tables and SQL Server: New VFP - MYSQL Blog entry

Fri, 19 Mar 2010 13:57:42 +0100

Version: Visual FoxPro 9 SP2

This one is on different aproaches used to optimize and transfer a query of medium complexity from VFP to MYSQL

Visit my blog at http://mysqlblog.pirringers.com/

Menus: Menu in Form

Fri, 19 Mar 2010 06:26:19 +0100

Version: Visual FoxPro 9 SP2

Dear Sirs,

How to create / design menu bar in a form? please guide.

Thanking you,
IRFAN

Win32API programming: Set Drive Letter for pen drive

Fri, 19 Mar 2010 07:58:43 +0100

Version: Visual FoxPro 9 SP2

Whenever we insert our pen drive, the computer assigns one drive letter to a pen drive, say G: drive,
which can change & assign any letter of our choice (from computer management).

Is it possible to assign/save drive letter for a pen drive from vfp program, say I want to assign drive letter O: for my pen drive. How to do this?

Thanks in advance.

Windows 7 and VFP: Options not saving

Fri, 19 Mar 2010 04:34:28 +0100

Version: Visual FoxPro 9 SP2

When I set the options for my IDE in VFP 9 sp2 they remain set until I exit then re-enter the IDE. After renetering the project the options are reset.

When I click OK I get told that the options are being saved and no errors are displayed. If I look at the options after saving them they are set to the value that I set them to.

I am using Windows 7 Professional and my project folder is located as a top level folder on the drive.

thanks,

pete

Win32API programming: Caption exe file

Fri, 19 Mar 2010 04:54:07 +0100

Version: Visual FoxPro 9

hello foxer mania
I have a little problem with the use of the API.
I want to get a "caption" of the exe program that I run?

example.
VFP command.

Run setup.exe

, when the file is run, I want to get it what caption

thanks
haris

Errors & Debugging: Breakpoints not breaking

Fri, 19 Mar 2010 04:40:27 +0100

Version: Visual FoxPro 9 SP2

I have a some breakpoints set in my application on two different forms but in each case they are in the click event of a command button. In one case the breakpoint will break yet in the other it will not. Both breakpoint appear in the list of breakpoints.

Is there some setting that I have missed?

thanks,

pete

Projects and Design: Copy Folder to another location

Thu, 18 Mar 2010 11:36:36 +0100

Version: Visual FoxPro 9 SP2

Dear Sirs,

How to copy a complete folder from one location to another within a program? If that would be a DOS command, kindly it should not display command prompt anyway.

Thanking you,
IRFAN

Projects and Design: Making an EXE File that works

Thu, 18 Mar 2010 01:23:16 +0100

Version: Visual FoxPro 9 SP2

I have a problem: I created a project in visual foxpro 9 and as far as i am concerned the application works just fine, but when i try to create an exe file out of the project the exe file would not run. I encountered this problem before and so far was able to solve it by making the form into a modal type of form, but this time it does not work. how do i solve this problem? this is really bothersome for i cannot deploy my application without compiling into an executable program.

Databases, Tables and SQL Server: Date range 6 mths earlier from DATE90

Fri, 19 Mar 2010 04:18:17 +0100

Version: Visual FoxPro 6

A select statement to give a date range 6 months earlier from the current date.

For instance the current date is 19/03/2010 (i.e. 19/MAR/2010) hence the range

should start 6 months earlier hence the begin date of the range should be 01/10/2009 (i.e. 01/OCT/2009).

Pls provide a select statement to help get the range.

Thanks

Forms: Define Popup

Thu, 18 Mar 2010 14:20:56 +0100

Version: Visual FoxPro 9 SP2

Can Anyone tell me tht
Can i Use "Define Popup" in form nt want to using Combobox

General VFP Topics: Excel Sheet WordWrap

Thu, 18 Mar 2010 08:32:14 +0100

Version: Visual FoxPro 9

How to WordWrap a Cell in ExcelSheet
i am Exporting Data To Excel Sheet, For one Cell i want to Word Wrap.

Shiva

General VFP Topics: RTL / LTR

Thu, 18 Mar 2010 23:41:51 +0100

Version: Visual FoxPro 9 SP2

Hi,

I am the following code for RTL (Arabic system alignment I/F), I looking for a code to switch the I/F LTR what i mean to Latin orientation the code as follows.

*-- Define extended Windows styles
#DEFINE GWL_EXSTYLE -20
#DEFINE WS_EX_LAYOUTRTL 0x400000
#DEFINE WS_EX_NOINHERITLAYOUT 0x100000
*-- Define the Get window long API
DECLARE INTEGER GetWindowLong IN user32;
INTEGER hWnd, INTEGER nIndex
*-- Define the Set window long API
DECLARE INTEGER SetWindowLong IN user32;
INTEGER hWnd, INTEGER nIndex, INTEGER dwNewLong
*-- Get this form's current style.
OldLong = GetWindowLong(ThisForm.HWnd, GWL_EXSTYLE)
*-- Set the window extended style RTL non-inheritable.
SetWindowLong(ThisForm.HWnd,GWL_EXSTYLE,;
BITOR(OldLong,WS_EX_LAYOUTRTL,WS_EX_NOINHERITLAYOUT))

any help.

Thanks

Microsoft Office Automation: Reading Excel when file is read-only

Thu, 18 Mar 2010 22:01:28 +0100

Version: Visual FoxPro 9 SP2

I have a program that will open an excel file and retrieve the data from a particular cell from a particular sheet. My problem is that these files can be unpredictable. For example, a huge number of the files will pop up with a message saying "'filename.xls' is reserved by someuser. Enter password for write access, or open read only.".

I have oExcel.DisplayAlerts = .F. which I was hoping would clear this up, but it doesn't. Is there any way to have every file open in read only mode and suppressing this message? Changing permissions of directories and the files themselves is out of the question because they're active files and users may be using them when the program tries to read from them.

Reports and Printers: Make letters in Bold in a report

Thu, 18 Mar 2010 07:32:03 +0100

Version: Visual FoxPro 9 SP2

Hi,

I have a sentence to be printed on a report which will change dynamically. So i am using a single textbox conrol for it. How i can make only some of the words like email id/ telephone nos in bold letters among many words in a single sentence. Somebody pls help me if possible.

Reports and Printers: Input Data in Arabic

Thu, 18 Mar 2010 07:20:39 +0100

Version: Visual FoxPro 9 SP2

hai,

I am using VFP 9.0. My default input language is English. Now i need to put some captions in Arabic in my reports. So i installed arabic language in my pc.
But still i can not input data in arabic within my labels and text boxes. Somebody please help me to solve this problem. I can type in arabic in words and all.....pls help me

Projects and Design: With Endwith and SetFocus

Thu, 18 Mar 2010 08:20:07 +0100

Version: Visual FoxPro 9

Example :

oPFP1 = Thisform.Pgf1.Page1

WITH oPFP1

	STORE 'Edit' TO Thisform.pp_action

	Thisform.mm_enbl_dsbl_new 

	IF Vhbk.Soldthrgh == 'DLR '		
		STORE 1 TO .Opg1.Value 
	ELSE 
		STORE 2 TO .Opg1.Value 
	ENDIF 

	STORE Vhbk.Key_PK TO Edtd_PK

	Thisform.Refresh()
	Thisform.Grid1.Refresh()

	.CmbDlrName.SetFocus()

ENDWITH

OR

Thisform.Pgf1.Page1.CmbDlrName.SetFocus()

What is the better way of Focusing to any control within With Endwith or outside With Endwith