Foxite.COM Visual FoxPro Forum

Forms: Project with many screens

Fri, 05 Sep 2008 06:58:29 +0100

Version: Visual FoxPro 9 SP2

Hi everyone, I'm looking for some insights. I've got a project which would require many screens that a user could potentially traverse through. It's sort of like filling out a dynamic application with different branches based on answers to questions. In all, I think I've got about 80 screens and each one is fairly simple. My question is how would I best approach the navigation aspect through all those screens? I don't think I should make them all modal and always on top because the path is basically one way and when you get to the end, you don't need to back through all the screens you've completed.

If it were a handful of screens, I would consider using one form and a container with a bunch of tabs, but I think 80 would be too hard to develop and maintain. On the other hand, I don't think I want to create 80 different forms as programming the navigation would be unwieldy. If it makes any difference, I can group together the screens into about half a dozen different logical areas. Also, some reversing of the screens would be allowed, but there are a few points of no return.

Any thoughts would be greatly appreciated.

Thanks,
David

Web Applications: converting 2 reports to the web.

Sat, 06 Sep 2008 19:17:06 +0100

Version: Visual FoxPro 6

Dear Expert,
I have an application running in the client server environment (VFP front end & SQL SERVER backend) .

However I need to convert 2 of the reports with 25 columns to be displayed on the Web;

and Heads of Unit who are geographically dispersed to have access to their Units members only, when they browse
the system via the internet.

The front end is asp.net and the backend is SQL SERVER 2005 .

Please assist with your ideas

Thanks

Install & Config. issues: Installation error

Sat, 06 Sep 2008 21:22:11 +0100

Version: Visual FoxPro 9

I get an error when installing VFP 9.0 which prevents the
app from installing at all. It's a 1305 error that says
the gridbldr.app cannot be found or written to. The
file does not exist where the error suggests that it should
and I assume that the VFP installation process put it
there, but it is 0 bytes. It is not flagged as read only
and I do have full admin rights. See attachment for
screen shot

What to do?

Thanks,

Dan

Off-topic: How to recognize a VFP developer?

Thu, 04 Sep 2008 15:58:00 +0100

Version: Not Applicable

Do you know how to recognize a VFP developer?
No? It's easy... (lol)

Databases, Tables and SQL Server: Problem with tmp files

Fri, 05 Sep 2008 22:27:47 +0100

Version: Visual FoxPro 9

In the following code, one user (out of thousands who are running this program) is getting an error:

File 'C:\temp\00004obd0012.tmp' does not exist

This error occurs on one of the ALTER TABLE lines, but not the same one each time. That is, it can add one or more of the columns in the FOR loop, but invariably crashes with that error before the loop exits. We have tried different temp file locations (by editing the TMPFILES line of CONFIG.FPW). I have had the user create new temp directories so I know he full permissions RWX on the location. I do not have access to that computer, and have been unable to duplicate the problem on my computers. Does anyone know of anything that might cause this to happen?

CREATE CURSOR ALIST ;
(PK N(7,0), ;
AC C(10), ;
EXAC C(10), ;
ADAC C(10), ;
ACQ D, ;
DESC C(50), ;
STAT C(1), ;
COST N(13,2), ;
SO1 C(10), ;
SO2 C(10), ;
SO3 C(10), ;
SO4 C(10), ;
ADESC C(50), ;
UD1 C(35), ;
UD2 C(35), ;
ACNA C(35))

SELECT ALIST

FOR z = 1 to VAL(gcNoMethods)
lcNum = str(z,1)
ALTER TABLE ALIST ADD COLUMN ("METH"+lcNum) C(5)
ALTER TABLE ALIST ADD COLUMN ("LIFE"+lcNum) N(7,4)
ALTER TABLE ALIST ADD COLUMN ("COST"+lcNum) N(13,2)
ALTER TABLE ALIST ADD COLUMN ("S179"+lcNum) N(13,2)
ALTER TABLE ALIST ADD COLUMN ("ACCD"+lcNum) N(13,2)
ALTER TABLE ALIST ADD COLUMN ("CURD"+lcNum) N(13,2)
NEXT

General VFP Topics: Intelligent Bar Code Encoding

Sat, 06 Sep 2008 19:39:23 +0100

Version: Visual FoxPro 9 SP2

Not sure if this is the right category, but nothing else seemed to fit...

Is anyone doing anything with the new USPS barcode system? I have a mailing service client who needs to start using the Intelligent Mail Bar Code; I've downloaded all the stuff from the USPS, but I'm still a little lost. The USPS provides a function that can be called from an Access or Excel macro, and ideally that would be what I'd want to use. The function takes the three strings that make up the 65 characters needed to produce the bar code, and encodes them into the 35 or so characters that will actually make up the bar code.

Any ideas?

Glen

Databases, Tables and SQL Server: generate tabular report

Sat, 06 Sep 2008 16:58:19 +0100

Version: Visual FoxPro 6

Dear Expert,

A datafile with the following fields :

dept
branch
area
amount

I want to generate a tabular report which will count the number of employees in a 'BRANCH' against the 'DEPT'

The listing on the top should be the 'BRANCHES' & the rows should be 'DEPT'.

Other: Server Time

Sat, 06 Sep 2008 07:08:54 +0100

Version: Visual FoxPro 9

I use

run net time \\server /set /y

to set date/time of workstation to match server on a workgroup network.
Is there any alternative to this command? Any win32api call etc.
The problem with this command is sometimes it behaves very strange the workstation date/time differs than that of the server.

Zaheer

Network and Computer Management: Server client findout

Sat, 06 Sep 2008 14:51:20 +0100

Version: Visual FoxPro 9 SP2

Dear experts,

how is find my database shared or used any other user or Which user is connected my database , how is findout? Which client computer is connected or shared my database.

thanking you,
P.Bhoopathy

Forms: get the next 30 days

Sat, 06 Sep 2008 03:25:21 +0100

Version: Visual FoxPro 9

Hi all,
How to get or store the next 30 days after this current date is displayed?

Current date:


#DEFINE LONGDATE_LOC CDOW(DATE())+" "+CMONTH(DATE())+" "+;
ALLTRIM(STR(DAY(DATE())))+", "+ALLTRIM(STR(YEAR(DATE())))

THISform.txttime.Value = LONGDATE_LOC

Thank you.

Regards

Adam N
My Blog

Foxite Downloads: Changing Backcolor of text on in/out

Sat, 06 Sep 2008 11:33:59 +0100

Version: Visual FoxPro 8

hi
As Raju S need the code to change backcolor without changing anything in his existing form. here is raju s thread
for further detail Message ID: 192844
Just Drop that class on form it will change the backcolor of your textbox only when u got focus there and change it
when u lostfocus from it. u can add morethings too in that class as its open source. That will tell you the bindevent
power! and give u the idea how to use it. so u can solve other problems too.
there r 2 properties backcolor and backcolor2 to give the color combination.

http://www.foxite.com/uploads/3b7ad1c3-b37e-4a55-aca8-f32a60e75f0c.zip

I have added the forecolor and forecolor2 too as samir told. and defined the variable too as stefan says :)

Anil
(Fox is the solution for almost everything!!)

Reports and Printers: Convert prn / txt file in pdf

Sat, 06 Sep 2008 14:03:11 +0100

Version: Visual FoxPro 6

Hi,

Is there any way to convert prn / txt file into pdf format?

Balasaheb Malunjkar

Active X Controls & OLE Automation: MSCOMM Problem

Fri, 05 Sep 2008 11:19:12 +0100

Version: Visual FoxPro 9 SP2

Hi,

I have problem on connecting my program WITH mscomm to mobile barcode when I've tried to connect with debug mode I can connect successfully but when I am not using debug mode program not able to send and get data from scanner. See below script for your reference.

Thanks,
Agung

*****
Init Form

Public pdatas

******
OnClick on button

mcomport = 1
mcomset= "38400,n,8,1"

Thisform.l_mscom1.commPort = mcomport
Thisform.l_mscom1.settings = mcomset
Thisform.l_mscom1.portopen = .t.

WAIT windows TIMEOUT 0.5 NOCLEAR <--- IF REMOVE THIS SCRIPT SYSTEM NOT ABLE TO SENDING DATA FROM SCANNER IF USING DEBUG MODE SYSTEM WORKS

iCounterA = 0
iCounterB = 1
iCounterC = 0
lFres = 0
Thisform.l_progbar1.Max = 100
Thisform.l_progbar1.Min = 1
Thisform.l_progbar1.value = iCounterB

pStopProsses = .f.

PDatas = ''
iRepeat = 0
iTotal= 0
DO WHILE .t.
DOEVENTS
If EMPTY(PDatas) And iRepeat= 0
cDtx = "XIDX"
Thisform.l_mscom1.Output = cDtx + CHR(13)

iRepeat = 1
ELSE
If "XNOX" $ PDatas
PDatas = ""
iRepeat = 0
ELSE
IF "IDPDT" $ PDatas
Thisform.l_label1.caption = substr(PDatas, 7, 2)
Exit
ENDIF
ENDIF

iCounterB = iCounterB + 1
If iCounterB > Thisform.l_progbar1.Max
iCounterB = 1
ENDIF
Thisform.l_progbar1.Value = iCounterB

iRepeat = iRepeat + 1
If iRepeat > 10000
iRepeat = 0
EXIT
EndIf
EndIf
If pStopProsses
Exit
ENDIF
ENDDO
WITH Thisform.l_progbar1
.Value = 1
.Min = 1
.Max = 2
ENDWITH

If EMPTY(ALLTRIM(Thisform.l_label1.caption))
=MESSAGEBOX("Scanner not detected" + CHR(13)+CHR(10)+ "Please check the communication!",0+16,"WARNING")
ENDIF
Thisform.l_mscom1.portopen = .f.

*********
OnComm on MSCOMM

nComEvent = Thisform.l_mscom1.commEvent

DO CASE
CASE nComEvent = 2 &&comEvReceive =1
cDta = ' '
DO WHILE .t.
cDta = Thisform.l_mscom1.input <--- SYSTEM NOT ABLE TO GET DATA FROM SCANNER IF USING DEBUG MODE SYSTEM WORKS
If !EMPTY(cDta)
PDatas = PDatas + cDta
ENDIF

PTimeout = .t.
If ALLTRIM(PDatas) <> ' '
If Asc(Right(PDatas, 1)) = 13 And (Len(PDatas) = 72 Or Len(PDatas) = 73)
eXIT
ELSE
If Asc(Right(PDatas, 1)) = 13
EXIT
ENDIF
ENDIF
ENDIF
ENDDO
Thisform.l_mscom1.inputLen = 0
Case nComEvent = 1
PTimeout = .t.
ENDCASE
cDtc = ''

Forms: Form looks active (but is not)

Sat, 06 Sep 2008 03:29:42 +0100

Version: Visual FoxPro 9 SP2

I have a form that has buttons to run other forms (DO FORM xxx). Let us call this form the "Choose something" form.

When a button is clicked, the user works in a new form, and then closes it.
The "Choose something" form remains open, and the user can make a new selection.

Usually this works - the user clicks a button and an option opens. However, sometimes the user must click twice for the button to work.

I can see that the "Choose something" form is on top (because the windows title is blue).
However, I guess its not always active.

Its frustrating for the user - sometimes they click a button and it works, sometimes it doesn't.

Any suggestions on how to ensure that the clicked button always fires the first time?

Cyril

Forms: change property of all textboxes.

Fri, 05 Sep 2008 13:59:27 +0100

Version: Visual FoxPro 8

I want to change backcolor of textbox and combobox when it gets focus in all my forms.
I have not used 'class' so far.
What can be done ?

Thanks everyone.

.NET: Textbox Focus

Sat, 06 Sep 2008 13:28:00 +0100

Version: Not Applicable

Hi all,

I have VB.Net Application which contain 6 textbox's on form.

in VFP, when pressing Enter, the focus is moved to the next control
depending on the Tab Index value.

In VB.Net pressing enter leave the focus on the current control, this was an
issue exist in earlier version VB6, and it seem it continue to VB.Net

Is there a solution to make the Enter Keypress move focus to next control without programming Keypress Event of each textbox?

TIA

Samir R. Ibrahim
Good things Take time, Great things happend all at once. My WebLog My Website: www.cdcity.org

General VFP Topics: Control Box problem

Fri, 05 Sep 2008 11:08:53 +0100

Version: Visual FoxPro 9

hi expert,

i am creating an exe file for my program but i found out that there is no control box on the right side corner of my screen. I want to have a control box in order to shift from my program to other windows program. I have this code below at my main.prg

_screen.windowstate= 2
_screen.controlbox = .T.
_screen.MDIForm = .T.
application.visible = .T.

_screen.AddProperty("IsAdmin",.f.)

do form frmPassword

READ EVENTS

Is my code above enough? please help...

Databases, Tables and SQL Server: How to find matching records in a tables

Sat, 06 Sep 2008 03:44:04 +0100

Version: Visual FoxPro 9

Hi experts!

How to find matching records in a tables based on Shift Schedule?

I have 3 tables in a database:

The first table contains the shift patterns of employees, it shows ShiftCode, ShiftstartDateTime and ShiftEndDateTime. There is one record for each scheduled shift for each employee.

The second table contains records import from our proximity card reader. It shows employeeId, cardNo, datetime, and swipecode. i.e. Employee A arrives at 07:59, and departs at 17:00.

sample text:
cardno datetime swipecode
010002276327 2007121500759 A0 && TimeIN
010002276327 2007121500800 A1 && TimeIN
010002276327 2007121501700 B0 && TimeOUT
010002276327 2007121501700 B1 && TimeOUT

The third table contains the "matched" data i.e. EmployeeID, Date, ShiftTimeIn, ActualTimeIn, ShiftTimeOut, ActualTimeOut.

What I need to do is each time we get a new record in the second table, it needs to find the matching shift information, if any, and create/update the relevant record in the third table.

Forms: multiple combo boxes

Sat, 06 Sep 2008 09:17:52 +0100

Version: Visual FoxPro 8

hey guys,

i created a combo box using the way of Mr. Anil Sharma in his reply:

**************
just create a table with Name,QueryFile bound your combobox with that table. by rowsourcetype =6 and rowsource= "table.name,queryfile" and in the lostfocus event u can just run your selected query file like that

do (table.queryfile)
**************

using this way, i can run my queries or programs smoothly, but, now i need to make multiple combo boxes in my form, and i can't use this way, because i cannot use many table at the same time to get data from them. so my question is:
is there a trick that allows me to take data from many table ? or can i create queries to show different data in the combo boxes but all from the same table ?

hope i didn't confuse u guys :)

your help is highly appreciated

ODBC, ADO and OLEDB: Where clause of Views

Fri, 05 Sep 2008 23:32:37 +0100

Version: Visual FoxPro 9 SP2

Hi Foxers,

I remember to have ssen some years ago a function that copies a certain VIEW, and allows to change the WHERE clause of it, bringing the possibility of a better customization for certain situations.

I know I can use SPT or CursorAdapters for this, but I'd like to try the VIEWS aproach too.

Does someone have this function ?

Thanks in advance !

Regards,

Cesar
My Blog

Classes and Objects: using lightbox class for _screen

Thu, 04 Sep 2008 12:44:26 +0100

Version: Visual FoxPro 9

Hi All,
how to suite lightbox class using for _screen ?
i've tried something but was not succesful
i wantto also use this class whie exiting from my .app

TIA

Soykan OZCELIK
Developer/ Programmer/Analyst

Grids: view date instead of datetime in grid

Fri, 05 Sep 2008 15:24:14 +0100

Version: Visual FoxPro 9

Hi,

In my grid (read only) with multiple records I have a column with datetime values of which I only want to display the date.
Setting the column's controlsource to ttod(datetimefield) and the format do "D" in the grid's properties doesn't help, the time is still displayed.
How do I get rid of the time (only in the display of this grid)?

Regards, Gerrit

Databases, Tables and SQL Server: Server Based Applications

Fri, 05 Sep 2008 06:05:25 +0100

Version: Visual FoxPro 9 SP2

Dear MASTER/Sirs,

I am one of those who are learning VFP, and foxite is my institute and source of knowledge. I seek your guidance and kind attention (once again) for the following:

I never experienced how to make some application to run over SQL server or via ODBC server (I really don't know what is ODBC actually). So far, I am able to make some kind of 'kid' applications to improve my knowledge and experience about VFP.
What should I do to understand how to share databases over a network? There are some sample codes/applications somewhere available to understand me what 'logic' is behind and how to manage my application to work over a network sharing tables among few users?

My first question comes from mind like this;
I open a table in this way, in single user environment:

use "c:\myprojects\tables\table_1"

How to do it using SQL server or ODBC?

Hope you can understand what I actually need to know.

(My questions might feel you a little harder to understand than VFP itself :) )

Thanks in advance,
Best regards,

Irfan.

Reports and Printers: Report Summary Band at bottom of page.

Sat, 06 Sep 2008 04:07:25 +0100

Version: Visual FoxPro 9 SP2

(VFP9 SP2)

On my reports, how can I make the Summary Band flush with the BOTTOM of the the last page of the report? It will mean having an unknown amount of white space from the last detail record. The last page may have only 2 or 3 detail records, or it my fill 75% of the page. Either way, I still want the Summary Band all the way at the bottom of the page. The Summary Band spans about 1" of vertical space on the report.

I have tried putting it in a Page Footer, and setting the "Print When" to make it print only on the last page, but when you do it hat way, the space allocated at the bottom of every page, and I don't like that. (If haven't tried this method since upgrading to VFP9, so maybe that behavior is different now, but I doubt it.)

Win32API programming: Return Focus to active window

Thu, 04 Sep 2008 16:46:55 +0100

Version: Visual FoxPro 9 SP2

I have created a popup screen showing the client info from our backend database when an incoming phone number (CLI) is identified.

Problem is that the popup screen receives the focus and whatever the user was doing is interrupted.

Goal is to create a popup info screen that doesn't take the focus or that returns the focus to the previous active program. That way, the user can finish the text he was typing before answering the phone.

Any idea's?

Thanks!

Jasper de Graaf

Install & Config. issues: Replace icon in Inno Setup

Fri, 05 Sep 2008 23:59:16 +0100

Version: Visual FoxPro 9

Using Inno Setup to do an install:

My client wants the version name from the EXE to show up in the desktop icon. I've figured out how to do that, but the problem now is that when you do a new install, it leaves the old icon on the desktop in addition to the new one. How do I get Inno Setup to remove the old icon when the name isn't exactly the same?

-BP
www.peisch.com

Reports and Printers: Changing Default Printers

Fri, 05 Sep 2008 09:15:13 +0100

Version: Visual FoxPro 9

I have several reports actually hundred reports in my system that was always printing in their default printers, they need to set the default printer first before logging in the system but of course sometimes the user forgot setting it up, i want my system have a utility to change the default printer without closing the system.

i try..

report form myreport to printer prompt noconsole

* its running but it will also need to change all the report [almost hundred huh?]

Thanks and more power!

Forms: help me analyze

Fri, 05 Sep 2008 07:41:41 +0100

Version: Visual FoxPro 6

Hello all,

Can someone help me analyze this. I have to make code for saving and editing person's record.
Persons with same first 2 numbers in their ID, they are in the same group.
ex person's id in same group: 110 and 111

In my form there is an optiongroup button with 2 options ( 'Kina' and 'Ika'), if one of the group chooses 'Kina', it is not allowed to other persons, they are now 'Ika'.

I made a form's property 'KinaIka'

If This.Option1.Value == 1
  Thisform.KinaIka = Kina
Endif

If This.Option2.Value == 1
  Thisform.KinaIka = Ika
Endif

In my save command; where thegroup is the value retrieved from checking if they are in the same group

if thisform.KinaIka == Kina
   SQLPREPARE( gnSQLID, "SELECT * from tblperson p WHERE p.personid = ?thegroup", "SQLRESULT" ) 
   if SQLEXEC( gnSQLID ) <> -1
      if RECCOUNT("SQLRESULT") > 0
         messagebox ("Kina is already selected for that group!")
         return .F.
      endif
   endif
endif

if thisform.AppendRecord
   &&check if person's ID, exit it it exists
   select "tblperson"
   &&append follows
endif

select "tblperson"

if Rlock("tblperson") 
   if ThisForm.EditRecord 
      &&edit follows
   endif

   unlock in "tblperson"
   TableUpdate(.T.)
endif

My problem is when right after saving Kina person, I would like to edit it into Ika, can someone give me a pseudocode?

Thank you and God bless.. :-)

Forms: combox controlsource does not function

Fri, 05 Sep 2008 14:35:07 +0100

Version: Visual FoxPro 6

Hello all,

I have a combobox which controlsource is m.address1

I have a btnSearch in my form

select "cursortblPerson"
scatter memvar

All other data were displayed in the form's textboxes, only the combo does not, will it affect if the combo's rowsource is an array?

Thank you and God bless.. :-)

Classes and Objects: default value in text box

Fri, 05 Sep 2008 03:56:45 +0100

Version: Visual FoxPro 9

Hello.

I'd like to make a default value in a textbox and I want to use that textbox again in a new form. I haven't really tried on classes on objects, maybe you could give me a guide on how to start. Thanks in advance.

Reports and Printers: PDF Problem caused by REPORTBEHAVIOR 90

Fri, 05 Sep 2008 12:02:37 +0100

Version: Visual FoxPro 9

Hi experts,

I have encountered a strange problem: When I changed the REPORTBEHAVIOUR from 80 to 90 to use the new reportlisteners the conversion of the reports to PDF does not work any more. The page preview of the report is working fine, as well as normal printing on our office printer. When I select a PDF printer the PDF is created and objects like lines are visible but no text can be seen. Not saving the printer settings together with the report as already suggested in this forum did not help.

The code I used to preview the report with the new VFP9 reportlisteners is the following:

loListener = NEWOBJECT("_ReportListener","_reportlistener.vcx")
loListener.LISTENERTYPE = 1
loListener.PRINTJOBNAME = "MyJobName"
oPreview = NEWOBJECT("frxpreviewinscreen","frxpreview")
loListener.PreviewContainer = oPreview
REPORT FORM (cMyReportFile) OBJECT loListener TO PRINTER PROMPT PREVIEW

The old code I used before with REPORTBEHAVIOUR 80 was:

DO FORM Seitenansicht NAME oPreview NOSHOW
oPreview.CAPTION="Seitenansicht"
REPORT FORM (cMyReportFile) TO PRINTER PROMPT PREVIEW WINDOW Seitenansicht

Any ideas?

Kind regards,
Raphael

General VFP Topics: Access Data Base

Fri, 05 Sep 2008 09:32:53 +0100

Version: Visual FoxPro 9 SP2

Hi all
I want to use access data base in my all old and new VPF project, I can connect to access data base and I can create views, mostly I m using GO TOP, GO BOTTOM, REPLACE,
APPEND BLANK Commands, but when I m using Access Database in my old projects when fire GO BOTTOM command VFP showing message ?connection error [Microsoft][ODBC Micro soft Access Driver ] syntax error in INSERT INTO statement.?. Please help me and suggest which type of command I can use in my new or old projects

Reports and Printers: Hanging Indention format in report

Fri, 05 Sep 2008 10:50:41 +0100

Version: Visual FoxPro 8

Hello evrybody!

Pls help in with my report using visual foxpro8. I am having trouble with the HANGING INDENTION FORMAT in my report..coz i have this group of words, stored in a certain variable, then i want it to be formatted in A HANGING INDENTION PARAGRAPH FORMAT WHEN IT IS PRINTED ON MY REPORT.PLS HELP ME

Errors & Debugging: C0000005 error while printing a report

Fri, 05 Sep 2008 13:53:24 +0100

Version: Visual FoxPro 9 SP2

Hi,

I change an image in a report and now VFP9 throw C0000005 error when I print it.

May you help me, please ?

Errors & Debugging: OLE 0x80010105 server threw an exception

Fri, 05 Sep 2008 00:11:43 +0100

Version: Visual FoxPro 9

First let me say that I'm not a developer. I'm the VP of services and support and I'm trying to figure out why a number of our clients are getting the following error: "OLE error code 0x80010105: The server threw an exception. frmReport Error: 1426 Method: savefile Line: 7"

In our program (VFP 9 SP1) you can produce reports and mailings, two different screens, but they use essentially the same code (they both use the same class). Our clients can go to the mailing screen and output to Excel with no problem. However, when they go to the report screen and try to output to Excel they get the error above. Below is the code for both the report and mailing screen. Does anyone see anything that would cause this error? The funny thing is that one day our clients are exporting reports to Excel no problem, the next day they can?t. I thought it might be a MS security update or something, but have had no luck figuring out what?s going on. There are about 50 or so clients with the same issue, but there is no common thread other than this error. Some have Office 07, some have Office 03. Some are using Vista, others XP. Most of our 1000 plus clients are fine, it's this small number of 50 or so that are having problems.

Code For Reports:

lparameters lcExcelHeader, lnFcount

LOCAL lcExcelFile, lnReport, lnRow, lnColumns, lnColumnHeadersRow, lnSheet1Row, lnFirstDataRow, lnLastDataRow, lcTitleRows, lcPrintArea

WITH THISFORM
IF !.OpenExcel()
RETURN
ENDIF

lcExcelFile = .oExcel.ccExcelFile
lnReport = 1
lnRow = 1
.oExcel.SetupSheets(lnReport)
.oExcel.ActivateSheet(lnReport)
.oExcel.ccColumnFirst = .oExcel.ConvertColumn(1)
* If on proper table, don't have to pass lnFcount
if vartype(lnFcount) <> 'N'
lnFcount = fcount()
endif

.oExcel.ccColumnLast = .oExcel.ConvertColumn(lnfcount)
.oExcel.AddHeader(lnRow, ;
ALLTRIM(pcOrgname), ;
.T., ;
.T.)
lnRow = lnRow + 1
.oExcel.AddHeader(lnRow, lcExcelHeader, .T., .T.)
lnRow = lnRow + 1
.oExcel.AddHeader(lnRow, pcReportTitle, .T., .T.)
.cReportFileName = sys(5) + curdir() + justfname(.cReportFilename)
oDataTable = .oExcel.coSheet.QueryTables.ADD("TEXT;"+.cReportFileName,.oExcel.coSheet.RANGE("A6"))

* oDataTable.NAME = UPPER(SUBSTR(.cReportFileName,RAT('\',.cReportFileName)+1,LEN(.cReportFileName)-RAT('\',.cReportFileName)-4))
oDataTable.Name = juststem(.cReportFileName)
oDataTable.FieldNames = .T.
oDataTable.RowNumbers = .F.
oDataTable.FillAdjacentFormulas = .F.
oDataTable.PreserveFormatting = .T.
oDataTable.RefreshOnFileOpen = .F.
oDataTable.RefreshStyle = 1
oDataTable.SavePassword = .F.
oDataTable.SaveData = .T.
oDataTable.AdjustColumnWidth = .T.
oDataTable.RefreshPeriod = 0
oDataTable.TextFilePromptOnRefresh = .F.
oDataTable.TextFilePlatform = 2
oDataTable.TextFileStartRow = 1
oDataTable.TextFileParseType = 1
oDataTable.TextFileTextQualifier = 1 &&xlTextQualifierDoubleQuote
oDataTable.TextFileConsecutiveDelimiter = .F.
oDataTable.TextFileTabDelimiter = .T.
oDataTable.TextFileSemicolonDelimiter = .F.
IF !EMPTY(THISFORM.cColumnDataTypes)
oDataTable.TextFileColumnDataTypes = THISFORM.cColumnDataTypes
ENDIF
oDataTable.TextFileCommaDelimiter = .T.
oDataTable.TextFileSpaceDelimiter = .F.

oDataTable.REFRESH(.F.)

.oExcel.ActivateSheet(1)
IF !EMPTY(THISFORM.txtfilename.VALUE)
.oExcel.SaveFile(.F.)
ENDIF
.oExcel.coExcel.Visible = .T.

.oExcel.DESTROY()
.oExcel = .NULL.

ENDWITH

Where openexcel is :

THISFORM.oExcel=CREATEOBJECT('edeExcel',THISFORM)
IF TYPE('THISFORM.oExcel') = 'O'
IF !EMPTY(THISFORM.txtfilename.VALUE)
lcFileName1=ALLTRIM(THISFORM.txtDir.VALUE)+ALLTRIM(THISFORM.txtfilename.VALUE)
IF UPPER(RIGHT(ALLTRIM(lcFileName1),4)) <> ".XLS" AND UPPER(RIGHT(ALLTRIM(lcFileName1),5)) <> '.XLS"'
lcFilename2 = STRTRAN(lcFileName1,'"','') + ".XLS"
lcFileName2 = THISFORM.CheckFile(lcFileName2,.t.)
IF EMPTY(lcFileName2)
RETURN .F.
ENDIF
lcFilename2 = IIF(' '$lcFilename2,'"'+lcFilename2+'"',lcFilename2)
ELSE
lcFileName2 = lcFileName1
ENDIF
lcFileName2 = STRTRAN(lcFileName2,'"','')
ENDIF
IF ISNULL(THISFORM.oExcel.coExcel)
THISFORM.oExcel.CreateExcelObject(.F.)
ENDIF
THISFORM.oExcel.CreateWorkBook()
IF !EMPTY(THISFORM.txtfilename.VALUE)
THISFORM.oExcel.ccExcelFile = lcFileName2
ENDIF
ELSE
=MESSAGEBOX('Could not open Excel',48,"Reports")
RETURN .F.
ENDIF

RETURN .T.

______________________________________________________________________________________________________________
Code For Mailings:

THISFORM.oExcel=CREATEOBJECT('edeExcel',THISFORM)
IF TYPE('THISFORM.oExcel') = 'O'
WITH THISFORM
IF ISNULL(THISFORM.oExcel.coExcel)
.oExcel.CreateExcelObject(.F.)
ENDIF
.oExcel.CreateWorkBook()
IF !EMPTY(.cFinalOutput)
.oExcel.ccExcelFile = .cFinalOutput
ENDIF

lnReport = 1
lnRow = 1
.oExcel.SetupSheets(lnReport)
.oExcel.ActivateSheet(lnReport)

oDataTable = .oExcel.coSheet.QueryTables.ADD("TEXT;"+.cFinalTextFile,.oExcel.coSheet.RANGE("A1"))

oDataTable.NAME = UPPER(SUBSTR(.cFinalTextFile,RAT('\',.cFinalTextFile)+1,LEN(.cFinalTextFile)-RAT('\',.cFinalTextFile)-4))
oDataTable.FieldNames = .T.
oDataTable.RowNumbers = .F.
oDataTable.FillAdjacentFormulas = .F.
oDataTable.PreserveFormatting = .T.
oDataTable.RefreshOnFileOpen = .F.
oDataTable.RefreshStyle = 1
oDataTable.SavePassword = .F.
oDataTable.SaveData = .T.
oDataTable.AdjustColumnWidth = .T.
oDataTable.RefreshPeriod = 0
oDataTable.TextFilePromptOnRefresh = .F.
oDataTable.TextFilePlatform = 2
oDataTable.TextFileStartRow = 1
oDataTable.TextFileParseType = 1
oDataTable.TextFileTextQualifier = 1 &&xlTextQualifierDoubleQuote
oDataTable.TextFileConsecutiveDelimiter = .F.
oDataTable.TextFileTabDelimiter = .T.
oDataTable.TextFileSemicolonDelimiter = .F.
oDataTable.TextFileColumnDataTypes = THISFORM.cColumnDataTypes
oDataTable.TextFileCommaDelimiter = .T.
oDataTable.TextFileSpaceDelimiter = .F.

oDataTable.REFRESH(.F.)

.oExcel.ActivateSheet(1)
IF !.lNoFileName
.oExcel.SaveFile(.F.)
ENDIF
.oExcel.coExcel.VISIBLE = .T.

.oExcel.DESTROY()
.oExcel = .NULL.
ENDWITH
ELSE
=MESSAGEBOX('Could not open Excel')
RETURN .F.
ENDIF

RETURN .T.

Projects and Design: Calculation of Ending Stock

Fri, 05 Sep 2008 11:27:14 +0100

Version: Visual FoxPro 9

FiFo Accouting Method for calculation of Cost of Item

Purchase of item

Qty*Rate=Amt

1)130*65=8450
2)036*60=2160
x)-----------

Total
x)166---=10610

When divide 10610 with 166 then outcome of rate is

Here Rate 63.9156626506

Now if i round it 2 decimals rate 63.92

When Multiply with Qty*Rate=Amt (166*63.92=10610.72)

If there are 3000 items in stock table then diffrence is upto 800 to 1000 Rupees

Suppose no sale transaction occurs only purchase exsist

Our Cost of goods available for sale & Merchandise Inventory Ending figure differ
instead of same and end result of Cost of Goods sold

C.G.A.S = 10610.00
M.I.E-- = 10610.72

C.G.S = 0.72

How can i handle this differnce of calculation of item cost price and ending amt

I have checked on upto 6 decimals rate but diffrence remain but in less amount

Active X Controls & OLE Automation: MSChart20Lib SeriesCollection problem

Thu, 04 Sep 2008 20:12:03 +0100

Version: Visual FoxPro 9

Hello everybody,

I am using mschart20lib into one of my applications. I wanted to access each data series in a bar chart using the following code:

FOR EACH oVar IN ThisForm.oleChart.Plot.SeriesCollection
oVar.DataPoints(-1).Brush.FillColor.Set(210,230,255)
ENDFOR

Everything is working fine, until I have more than 4 bars in the chart. It gives the color to the first 4 and then nothing.

What could be the problem?

Thank you very much.
Lucian I.

Forms: how to create log

Fri, 05 Sep 2008 03:21:53 +0100

Version: Visual FoxPro 7

hi i need help from experts
i want to create user activities log in forms
i have data entry in network
so i can track all user when they clicked "new", "edit" and "delete" the record
all log goes to table
i've already made the table
but how to tracking user activities in a form?

Win32API programming: Win32 API Set Printer Port

Thu, 04 Sep 2008 11:32:25 +0100

Version: Visual FoxPro 9

Anyone knows how to set the printer port programmatically using Win32 API Functions? I am currently using the below function but it is very slow:

PROCEDURE _AssignPortToPrinter(tcPrintername as string,tcPortname as String)
lcPrinterName	= tcPrintername
		loLocator 		= CREATEOBJECT('WBEMScripting.SWBEMLocator')
		loWMI 			= loLocator.ConnectServer()   	&& local machine logged on user
		loWMI.Security_.ImpersonationLevel = 3   		&& Impersonate 
		lcPrinterName 	= STRTRAN(lcPrinterName , "\", "\\")
		loPrinters 		=  loWMI.ExecQuery("Select * from Win32_Printer WHERE Name LIKE '" + lcPrinterName + "%'")
		lReturn 		= .T.
		FOR EACH loPrinter in loPrinters	
			WITH loPrinter
				.PortName = tcPortname
				.Put_ && Save Changes
			ENDWITH
		ENDFOR 
		RETURN lReturn

Thanks.

Databases, Tables and SQL Server: USE command

Thu, 04 Sep 2008 07:41:57 +0100

Version: Visual FoxPro 9 SP2

Dear Sirs,

I want to use this simple command but it gives error. Although I have confirmed syntax from HELP file and tried in several ways. Please guide me how to overcome it.

Command:

USE 'debit_vouchers' IN 'alMytable' AGAIN

Error: Alias ALMYTABLE is not found

Thanks,
Best regards,

Irfan

General VFP Topics: Access Data Base

Fri, 05 Sep 2008 09:33:25 +0100

Databases, Tables and SQL Server: deleting data from table

Fri, 05 Sep 2008 08:24:53 +0100

Version: FoxPro 2.x for Windows

Hi,
I have data in A that has similar key with table B
Table A has about 1000 records while table B has about 3 million records
I would like to delete all records in table B that are in table A

What is the fastest way to do this in foxpro?

Thank you
Shadrack Mwaniki

Classes and Objects: Garbage Collection and dangling obj refs

Thu, 04 Sep 2008 03:47:28 +0100

Version: Visual FoxPro 6

Hi all,

I am trying to get a handle on garbage collection in VFP.

In my scenario, I have a form that has a custom control added to it.

The custom control maintains a number of object references to Container objects that are created, within the control, at runtime, and these object references are stored as Properties of the control.

eg.

THISFORM.custControl.AddObject("Container1", "Container")
THISFORM.custControl.ContainerOne = EVALUATE("THISFORM.custControl.Container1")

Issues arise when I attempt to close the form, as the object references still exist, and as a result
the form doesn't close.

I have read that these are called "dangling object references" and need to be cleaned up before the form can successfully close. So far so good.

I know that I can create a GarbageCollect() method on the control that basically sets the custom Properties containing the obj refs to .NULL. and, provided that I call this method before the form closes, the form will close successfully.

The question that I have is: Is it possible for an object (GUI or otherwise) to detect when it is being destroyed and clean up its own object refs, without having to call a GarbageCollect() type method from the containing object ?

Ultimately, I would like to be able to create a custom control, that includes properties that are object references, that can be dropped onto a form without having to modify code on the form. ie. NOT have to call the GarbageCollect() method of the custom control within the Destroy() event of the form.

I would have thought that this is the perfect functionality for the Destroy() event on the custom control, but due to the outstanding object references, the Destroy() event of the control doesn't fire.

As it stands, it appears that it is the responsibility of Parent Object (in this case the form) to manually tell any contained objects to clean up after themselves, as the child object can't detect when it is being released.

To me this means that it is not possible to create a custom object or control that contains object refs that is fully self contained. ie. able to trigger and manage its own garbage collection.

Can anyone set me straight ?

cheers,
Matt.

Ver: VFP 6+

Grids: Help with a lookup in a grid column.

Thu, 04 Sep 2008 17:31:51 +0100

Version: Visual FoxPro 9 SP2

I'm trying to get a GRID working for this scenario:

Here are the relevant fields I will be asking about below:

JobItem.iPartKey

Parts.PartNo
Part.ipkey

I have a relation in place between JobItem.iPartKey->Parts.ipkey.

As you can see, I have a JobItem table which stores a key (iPartKey) that points to they key of a Parts.ipkey. Now the user will not enter the key value (it is autoinc), rather, they will enter a part number which I need to lookup the corresponding "part key" for that part number in the Parts table and store the part key in JobItem.iPartKey.

So I need to let them enter a part NUMBER in the column textbox, but I need to lookup that string in the Parts.PartNo, and get the Parts.ipkey, and strore that integer value in JobItem.iPartKey.

In that column, I need to display Parts.PartNo, but the underlying value that makes it work is JobItem.iPartKey.

I think I need to use the DynamicCurrentControl property to let the grid display the Parts.PartNo value, but I cannot get all the settings right to let me enter a value in the textbox, validate it (do the look up), set the JobItem.iPartKey, but display the Part.ParNo.

Please help. What all do I need to support this structure.

Here's the textbox.valid() code from my lookup textbox class that I have as one of the controls in the grid colum. After it validates the entered Part Number, I can then read the corresponding key value by referencing this.ipkey.

Dimension laProperties(10)

Local llValidated, lcLookup

laProperties='' && Blank out the entire array (char type)
laProperties[1]=0 && int type for iPartKey
laProperties[4]=0.00 && Numeric type for price
laProperties[7]={ / / } && Date type for date_added

IF !Empty(this.value)

*-- Determine exact size of PartNo fields---
lcPartNo=Padr(Alltrim(this.Value),Fsize('part_no', 'Parts'))

*-- 2008-09-02: Added support for AltPPartNo lookup
Select iPkey, part_no, altpartno, dwg_no, price, cust_num ,vendor, date_added, makebuy;
From parts;
Where part_no==lcPartNo;
Into Array laProperties

If _tally=0
MessageBox('Part No not found.',16,'Notice:')
Else
llValidated=.t.
endif

Endif

this.ipkey=laProperties[1]
this.cPart_no=laProperties[2]
this.cAltPartNo=laProperties[3]
this.cDwg_no=laProperties[4]
this.nPrice=laProperties[5]
this.cCustno=laProperties[6]
this.cVendno=laProperties[7]
this.dDate_added=laProperties[8]
this.cMakeBuy=laProperties[9]

this.found=Iif(llValidated or Empty(this.value), 1, 0)
this.refresh
return (this.found)

Forms: SBT Pro 5.0 Help

Wed, 03 Sep 2008 17:42:52 +0100

Version: Visual FoxPro 5

Hi, I am a noob that is searching the web for help with our ancient software. We are running VFP 5.0 and SBT Pro 5.0i for our accounting/order processing. My first question is: Are there any web sites around that have good information on how to customize forms in this software? I have some reports that we use that I can go in and modify(move thing around, adjust fonts, other basically brainless activities) I have managed to luck out and correctly guess how to add certain fields to reports that were not there, such as phone number and contact name. I am stuck now on one problem in particular. I want to add the phone number from the SHIP TO address listing to a sales order form that we print out. I can get it to add the regular BILL TO phone number, but I can't figure out an expression to make it pull up the SHIP TO phone number. Sorry if this question is below the general discussion of this board, but I am not having much luck finding answers elsewhere and our small, poor, family business can't afford to pay a consultant at this point. Thanks!! Jason

Classes and Objects: Extract comments from PRG & SCX

Wed, 03 Sep 2008 01:33:22 +0100

Version: Visual FoxPro 9 SP2

Hi

Does anyone have any code or such that can be run on a project or directory or series of files, that will extract all comments - Lines beginning with

"*"

?

When I say "extract" I mean find the lines of comments and remove them or move them to another text file.

I have a need for this and could not find anything after much searching here and on Google.

TIA

Bernard

** If you see someone without a smile, give em one of yours :) **
My Blog 8-)

Forms: How Show back after issue thisfor.hide

Wed, 03 Sep 2008 04:54:34 +0100

Version: Visual FoxPro 9 SP2

Hi,
How can i show back the form after have issues the .hide command? Please help Thank you.

General VFP Topics: Rude to post on Foxite and UT?

Thu, 04 Sep 2008 17:37:25 +0100

Version: Visual FoxPro 9 SP2

I have been using Foxite a little more lately (been a heavy UT user for a while, and still am), so I've posting my questions here and on UT also.

I've also started using the VFUG mailing list a little to ask questions.

I know many people probably use all these alos, and I don't want to abuse these forums, but I do want to reach the widest audience possible for help.

So, is it rude to post the same exact message in all these places at the same?

User Groups & Online Communities: Philadelphia VFP User Group:Tues, Sept 9

Thu, 04 Sep 2008 22:58:42 +0100

Version: Not Applicable

The September meeting of the Philadelphia VFP User Group will take place Tuesday, September 9 at 7:00 PM at Valley Forge Pension Management, 715 Twining Road, Suite 202, Dresher, PA 19025. (Note: The Oreland offramp from PA 309 Southbound has been permanently closed. The easiest way to reach the meeting location from the PA Turnpike or 309 Southbound is to come through the Fort Washington Industrial Park.)

As usual, you're welcome to bring some dinner and come as early as 6:30.

Tamar Granor will be rehearsing her Southwest Fox session "We Used to Do it That Way, But ...".

Each new version of Visual FoxPro has brought new ways to do things, but breaking old habits is hard. Now that the VFP language has stabilized, it's time to hone our skills. This session examines some of the changes in the language over the years and demonstrates that learning to use the newer constructs can result in better, more maintainable, faster code.

Tamar E. Granor, Ph.D., is the owner of Tomorrow's Solutions, LLC. She has developed and enhanced numerous Visual FoxPro applications for businesses and other organizations. She currently focuses on working with other developers through consulting and subcontracting. Tamar served as Editor of FoxPro Advisor magazine from 1994 to 2000 and was Technical Editor from 2000 to 2008. She served as co-author of the popular Advisor Answers column from 1993 to 2008. She has also written for FoxTalk, Code, and FoxRockX.

Tamar is author or co-author of nine books including the award winning Hacker's Guide to Visual FoxPro and Microsoft Office Automation with Visual FoxPro. Her most recent books are Taming Visual FoxPro's SQL and What's New in Nine: Visual FoxPro's Latest Hits. Her books are available from Hentzenwerke Publishing (www.hentzenwerke.com). Her next collaboration, Making Sense of Sedna and SP2, will be published in 2008.

Tamar is a Microsoft Certified Professional and a Microsoft Support Most Valuable Professional. Tamar speaks frequently about Visual FoxPro at conferences and user groups in North America and Europe, including every FoxPro DevCon since 1993.

You can reach her at tamar@thegranors.com or through www.tomorrowssolutionsllc.com.

Note that we will have NO meeting in October, due to Southwest Fox.

Forms: Parameters

Thu, 04 Sep 2008 18:28:36 +0100

Version: Visual FoxPro 9

hey guys

problem is that i have to zip up some files but i got these parameters

code is

PARAMETERS lczipfile, lctozip1, lctozip2, lctozip3, lctargetunzip, lctargetunzipdata, lczipunzip, lcpassword

problem is it tells me there unknown command verb in this bit of code any ideas

User Groups & Online Communities: Ken Levy joins EPS Software Corp, VFPCon

Thu, 04 Sep 2008 17:44:03 +0100

Version: Not Applicable

9/3/2008

Houston, Texas, - September 3rd 2008 ? For immediate release:

Ken Levy is joining EPS Software Corp. in the role of an Evangelist for several EPS brands. Ken is the founder of MashupX LLC, and through his new partnership with EPS, Ken will focus on EPS? VFPConversion.com effort as well as CoDe Magazine (the leading independent magazine for .NET developers) and EPS? custom software, mentoring, and consulting efforts around .NET and Microsoft server products. Ken is a renowned industry expert and was formerly at Microsoft driving community growth and evangelism for Visual FoxPro (VFP), Windows Live (developer platform), and Visual Studio Extensibility (VSX).

Ken?s role in VFPConversion.com focuses on educating companies with VFP applications as well as members of the VFP community who have an interest in utilizing other Microsoft products, such as Visual Studio, SQL Server, and/or the .NET Framework. Ken will represent VFPConversion.com at various events and interact with the VFPConversion community directly. Ken will also spearhead the development of the VFPConversion.com site and accelerate content development on that site. Due to his former role as Visual FoxPro Product Manager and Microsoft Community liaison, Ken has a very unique set of skills and knowledge which will now be available to the VFP community again.

For CoDe Magazine, Ken?s role includes the development of content ideas and concepts in particular for CoDe Focus Magazine as well as CoDe Online properties. In the past, Ken has been involved in CoDe Focus content development at Microsoft, as CoDe works very closely with various groups and departments at Microsoft. In his new role, Ken will be instrumental in ensuring a steady stream of high-quality content for .NET developers. His role also involves him in the currently ongoing re-engineering and re-envisioning efforts of CoDe online properties, which will make CoDe an even richer online destination for .Net developers.

Ken is also in charge of setting up a Seattle office for EPS Software Corp., which in addition to the aforementioned efforts will be used as a basis for EPS? custom software, consulting, and mentoring efforts revolving around .NET development, including core Visual Studio/.NET development as well as development with Microsoft Server Products, such as SQL Server and SharePoint.

For more information, contact EPS at info@eps-software.com

About EPS Software Corp.
EPS Software Corp. is a multi-national corporation founded by renowned industry expert Markus Egger. EPS is headquartered in Houston, TX (USA), with offices in North America and Europe. EPS specializes on consulting, mentoring, and custom software development based on the Microsoft developer platform, including Visual Studio (.NET), SQL Server, and other Microsoft server products, such as SharePoint. EPS is well known for its involvement in various community efforts. EPS is involved not just in sponsorship and trade shows, but also in the organization of various special interest groups. Many EPS employees are well known presenters at events of all sizes around the globe. EPS employees have received more Microsoft MVP awards than employees of any other company. EPS is also the owner of brands such as CoDe Magazine, VFPConversion.com, Milos Solution Platform, and Xiine (among others). ? www.eps-software.com

About CoDe Magazine
CoDe Magazine is the leading independent .NET developer print and online publication. CoDe Magazine provides in-depth articles for professional .NET developers. CoDe Magazine has received numerous industry awards. In addition to the main publication (which is printed on a regular schedule), CoDe also publishes CoDe Focus Magazine, which is a series of special issues focusing on specific technologies in each issue. Furthermore, CoDe includes various online properties that can be found on the CoDe Magazine web site. ? www.code-magazine.com

About VFPConversion.com
VFPConversion.com is a community portal and service offering for current or former Visual FoxPro (VFP) developers with an interest in adopting newer Microsoft technologies such as Visual Studio, .NET, and/or Microsoft SQL Server. The VFPConversion.com web site offers a wealth of free information such as articles and blogs. In addition, the VFPConversion.com team can assist developers in assessing their current VFP applications and in converting them to, or enhancing them with the aforementioned new technologies. ? www.VFPConversion.com

General VFP Topics: Ken Levy joins EPS Software Corp, VFPCon

Thu, 04 Sep 2008 17:43:03 +0100

Web Services: Send Mail With VFP. Can Do it ?

Thu, 04 Sep 2008 07:57:46 +0100

Version: Visual FoxPro 9 SP2

Hello Expert

I have a new XLS files that i want to send it as email attachment to anyone. can VFP do it with one click command?

Thanks

Reports and Printers: Reportlistener won't preview in .EXE

Thu, 04 Sep 2008 15:04:14 +0100

Version: Visual FoxPro 9

I am using the reportlistener class to generate multiple reports into one report preview. This works fine under development mode in VFP9. However after I build the project into an executable nothing ever shows up. It does the RunReports and I get an loListener.OutputPageCount of 6 after the reports are run, but nothing ever appears. What do I need to do to have the preview show up in the executable?

Here's the code...

LOCAL loListener,nLastReport,i

SET REPORTBEHAVIOR 90
loListener = NEWOBJECT("_ReportListener","KTB_Reportlistener.vcx")
loListener.ListenerType = 1

LOCAL cLastRepParm
cLastRepParm = 'TO PRINTER PROMPT PREVIEW' && WINDOW PrintPrev'
* Need to know which report is the last report...
FOR nLastReport = 6 TO 1 STEP -1
	IF THISFORM.Additional_reports_run[nLastReport]
		EXIT
	ENDIF
ENDFOR	

* Add generated reports to the listener with related cursor and report file.
IF nLastReport = 0
	loListener.AddReport(HOME_DIR+'SerRep.frx',cLastRepParm ,,"SERREP_DATA")
ELSE
	loListener.AddReport(HOME_DIR+'SeRRep.frx','NOPAGEEJECT',,"SERREP_DATA")
	FOR i = 1 TO 6
		IF THISFORM.Additional_Reports_Run[i]
			IF i = 1 OR i = 3 OR i = 5
				loListener.AddReport(HOME_DIR+'DBLoadEff.Frx',IIF(i = nLastReport,cLastRepParm ,'NOPAGEEJECT'),,"DBLEREP"+ALLTRIM(STR(i+10)))
			ENDIF
			IF i = 2 OR i = 4
				loListener.AddReport(HOME_DIR+'DBOpEff.Frx',IIF(i = nLastReport,cLastRepParm ,'NOPAGEEJECT'),,"DBOEREP"+ALLTRIM(STR(i+10)))
			ENDIF
			IF i = 6
				loListener.AddReport(HOME_DIR+'Inv_Ad.Frx',IIF(i = nLastReport,cLastRepParm ,'NOPAGEEJECT'),,"REP_DATA")
			ENDIF		
		ENDIF
	ENDFOR
ENDIF
* Create the Print Preview window...
*!*	IF VARTYPE(oPrintPrev) != 'O'
*!*		PUBLIC oPrintPrev
*!*		oPrintPrev = NEWOBJECT("Print_Preview","dbrepgraphs.vcx")
*!*		WITH oPrintPrev
*!*			.Name = "PrintPrev"
*!*			.Caption = TTOC(SrHeader.Start_Date)+" Service Report Preview"
*!*		ENDWITH
*!*	ENDIF

SET STEP ON 
* Run the reports, which will convert DBOEREP## AND DBLEREP## Cursors and public Vars via the Setup_Report_Data method...

MSB("RunReports")
loListener.RunReports()
MSB(loListener.OutputPageCount)

KTB

Reports and Printers: Report's textbox's properties' hotkey?

Wed, 03 Sep 2008 19:10:41 +0100

Version: Visual FoxPro 9

Colleagues,

Don't laugh at me for this one, OK? :-$

I, once, when working on a report in Report Designer, happened to bring up a textbox's Field Properties dialog screen with some keypress combination when some textbox was in focus. It was pure coincidence, my fingers just slipped and - Tah-Dah! - Field Properties sprang up on display. Apparently, there should be some shortcut/hotkey for that. It was not one of them Fn keys, it was Alt||Shift||Ctrl + some letter. Hard as I tried, I could not reproduce this keys combination and bring up Field Properties dialog up on screen with hotkey instead of double-clicking on a box. :-(

Does anybody know what this hotkey combination is?

Regards,

Ilya

P.S. 5 min. later: if a box is in focus, and you press that "List With Pointer" key - the one just left of the right Ctrl key on your keyboard - it brings up the popup menu with Properties option on the bottom. It is close, but it is not exactly what I am after.

Databases, Tables and SQL Server: convert to excel sheet

Thu, 04 Sep 2008 11:31:25 +0100

Version: Visual FoxPro 9

Hi all,

i need to convert mytable to excel sheet2 or sheet 3 at excel book at ex.. c:\myfolder\excel book name

this code from (Mr.Cetin) below convert to excel sheet,

 Use mytable
 gcDelimName = ALIAS( ) + '.xls'
gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls')
IF EMPTY(gcDelimFile)  
   CANCEL
ENDIF
COPY TO (gcDelimFile) XLS &&sheet 2 or sheet 3

thanks

Projects and Design: Graph datasheet

Thu, 04 Sep 2008 08:45:16 +0100

Version: Visual FoxPro 7

hi,

how to link VFP Graph Datasheet with Database

Thanks

Forms: dates

Thu, 04 Sep 2008 10:39:11 +0100

Version: Visual FoxPro 9

hi all,
i have 2 date as
stdate =25/03/2008
enddate=25/03/2009

i use it for contract start to end

i need to let myform brow (message ,alarm,or sound) before one month as 25/02/2008

as message box (contract end after one month) evrey day from 25/02 to 28/02/2008

thanks

Errors & Debugging: Fatal Error C0000006

Thu, 04 Sep 2008 10:31:33 +0100

Version: Visual FoxPro 8

hi,recently i am facing fatal error C0000006 on my foxpro program when i using it at terminal service. i am using VFP8 and Terminal service is Windows 2000 Servier SP4.
Any idea?

Web Services: Send Mail With VFP. Can Do it ?

Thu, 04 Sep 2008 07:57:42 +0100

Version: Visual FoxPro 9 SP2

Hello Expert

I have a new XLS files that i want to send it as email attachment to anyone. can VFP do it with one click command?

Thanks

Grids: Graphic? in Grid showing progress

Wed, 03 Sep 2008 00:29:25 +0100

Version: Visual FoxPro 9 SP2

Hi Guys,

I am looking how I can put a 'progress bar' in a grid.

Not a traditional progress bar but a bar indicating how much of a project has been completed.

I had thought of changing the font in the column to Webdings and putting square symbols in the grid but was wondering if something more 'graphical' is available.

Simon Cropper

Linux and VFP: how to disable menus

Thu, 04 Sep 2008 05:32:53 +0100

Version: Visual FoxPro 3

Hi experts,

please help me. I used menu designer in creating my menu then when i create password maintenance and some of the menus should be disable if a certain userid has no accessed to it.

thanks

General VFP Topics: Shorten Path and File names

Wed, 03 Sep 2008 17:23:57 +0100

Version: Not Applicable

Heya All,

For many a year now I have disliked displaying complete file paths to users because sometimes they can get VERY long.

For instance, ask a user to select a table or image or anything and they select it and I have to display...

c:\my folder\my sub folder\my sub sub folder\my sub sub sub folder\<font color="Blue">file.dbf

... the first step I have taken is if I can display it as readonly text I will move the file name to the front and then add the path, sometimes, and if not a tool tip displaying the full path ...

file.dbf in c:\my folder\my sub folder\my sub sub folder\my sub sub sub folder\

...because IMHO I think the most important/relevant part should be first (Don't even get me started on how VFP class designer captions start with.. "Class Designer" - Duh I knew that - "" - Ok, getting closer - "" what I really want to know )

But, I digress. I decided I wanted the option of "shortening" the path+file name something like:

c:\...\my sub sub sub folder\<font color="Blue">file.dbf

Was therefore wondering...

a) is there any function/winapi which can accomplish this for me

2) If I write my own, NBD, is there any type of 'standard' out there and if not, anyone have any personal preferences

Thanks for any and all input

Steve Dingle
http://weblogs.foxite.com/SteveDingle/
www.dsbusinesssolutions.co.uk

Grids: Grid and Textbox

Thu, 04 Sep 2008 03:20:00 +0100

Version: Visual FoxPro 6

Hi VFP Experts,

First of all thank you very much for answering my problems I posted in Foxite I learned a lot from your advice and codes. Thank you very much and More Power!!!

I have a question I have a grid that contains a record I wanted that If I click a certain record from a grid I will automatically display to my textbox so that I can modify the record and return once again in my database file? Any Codes or explanation about my problem is highly appreciated. Thank you very much and God Bless.

Regards,

Jake :-D

User Groups & Online Communities: Chicago FUDG Sept. 9 - Two Feltmans!

Wed, 03 Sep 2008 23:22:20 +0100

Version: Visual FoxPro 9 SP2

September at Chicago FUDG features a pair of Feltmans - both with programming roots in Fox Software, and a marriage made in Toledo.

Toni and Mike are partners at F1 Technologies, a Toledo, Ohio based product development and IT consulting firm, where they create and sell a Visual FoxPro framework called Visual Fox Express. Both have spoken at numerous FoxPro conferences and user groups, and written articles for publication.

Toni Feltman will speak on eTecnologia.NET's .NET Extender for VFP which makes it possible to use any .NET class from within VFP without requiring ActiveX or COM registration.

Mike Feltman will show how Visual FoxPro is an extremely powerful back-end development language for web development. Third party tools such as Web Connection, Active FoxPro Pages, FoxWeb and others allow VFP developers to seamlessly take their skills from the Desktop to the Internet.

Be sure to join us for a great evening at the usual time and place: 5:30pm on September 9th, 2008 at 53 W. Jackson Blvd Suite 826 in Chicago.

Next month: Christof Wollenhaupt on October 14 - save the date!
More info at http://www.ChicagoFUDG.com

Reports and Printers: Control Top Margin in report

Wed, 03 Sep 2008 19:29:28 +0100

Version: Visual FoxPro 9

Dear Experts

How to control top margin in report?
Actually I want to print report on Company's letter head.

I want 3.5" top in every page.

Please help

Linux and VFP: diff with replace and update(sql)

Wed, 03 Sep 2008 06:02:58 +0100

Version: Visual FoxPro 3

hello experts,

what is the difference between REPLACE AND UPDATE SQL
if updating a single record in a table.

EX.
replace table.field with myvalue for myid= anothervariable

update table(field) ;
values (myvalue) for myid = anothervariable

Projects and Design: Graph

Wed, 03 Sep 2008 09:22:46 +0100

Version: Visual FoxPro 7

hi,

how to make a graph in vfp7 pls suggest

thanks

Reports and Printers: Need to save report in pdf with prefix

Wed, 03 Sep 2008 09:14:10 +0100

Version: Visual FoxPro 6

Hi

I need to save report to the pdf file and give it a name of one of the variables.
Maybe someone knows how to open external application and use it to make pdf from report. I mean that it has to be automatical without any cliks :)

Maybe newer version of FoxPro gives possibility to make pdf?

Please help

Regards
Pawel

Classes and Objects: Enhanced VFP Color Picker

Wed, 03 Sep 2008 07:47:03 +0100

Version: Visual FoxPro 9 SP2

I have published an article about the enhanced colorpicker included in the ctl32 classes:

http://www.ctl32.com.ar/ctl32_colorpicker.asp

Download is here: http://www.ctl32.com.ar/downloads.asp

Check the colorpicker folder, open the project and compile the app to use in VFP.

Carlos Alloatti

Forms: Form instead of Menu

Wed, 03 Sep 2008 05:47:42 +0100

Version: Visual FoxPro 5

Hi all,
is it possible to use a main form instaed of menu. i mean, the actions are categorized in a form n this form is displayed all the times. the advantage is to use graphics in the main form.

wots ur idea...?