Coding problem.
Hi All,
Just wanna make sure whether something wrong with the
following code. I created a button. As I clicked this
button, the following program will be executed. But
unfortunately only the first one works (column7). Is that
something wrong with my code? What the correct one should
be?
thisform.grdProducts.Column7.readonly=.F.
thisform.grdProducts.Column7.Backcolor=RGB(128,255,255)
thisform.grdProducts.Column8.readonly=.F.
thisform.grdProducts.Column8.Backcolor=RGB(128,255,255)
thisform.grdProducts.Column9.readonly=.F.
thisform.grdProducts.Column9.Backcolor=RGB(128,255,255)
thisform.grdProducts.Column10.readonly=.F.
thisform.grdProducts.Column10.Backcolor=RGB(128,255,255)
thisform.grdProducts.Column11.readonly=.F.
thisform.grdProducts.Column11.Backcolor=RGB(128,255,255)
thisform.grdProducts.Column12.readonly=.F.
thisform.grdProducts.Column12.Backcolor=RGB(128,255,255)
Thanks,
Sam. Tag: Optical Caracter Reco. or Optical Mark Readers + VFP Tag: 182405
Winsock Oddness
I'm attempting to use the winsock control to download files. What
follows is a conversion I did of some VB code (which works flawlessly
in VB).
My problem is I am getting dataarrival events, that when the "GetData"
is called, lcData starts with a first byte of value 00, followed by my
space characters that I put in. Ie, the actual data is not being
populated.
The wierd thing is that in say, an 800K file, I'm getting only one or
two 8192 byte blocks that go wrong.
My question is - can the winsock control be used reliably in foxpro to
do file downloading, given that I'm only getting this problem in the
foxpro version - the vb version hasn't missed a beat. It's quite
frustrating, and given that I am having these problems on my quite
good internet connection, I wonder whether it's really a go-er out
there in the real world.
This is the winsock control.dataarrival event
*** ActiveX Control Event ***
LPARAMETERS bytestotal
LOCAL lcData, liBreakPosition
lcData = REPLICATE(" ",bytestotal)
THISFORM.wscHTTP.Object.GetData(@lcData,8,bytestotal) && 8 is vbString
IF !THISFORM.dlHeaderReceived
&& Look for the end of the header - are we there yet?
liBreakPosition = AT(CRLF + CRLF, lcData)
IF liBreakPosition > 0
THISFORM.dlHeaderReceived=.T.
&& Add the rest of the header
THISFORM.dlHeader = THISFORM.dlHeader +
LEFT(lcData,liBreakPosition-1)
&& Write any part of "post header" actual data
FWRITE(THISFORM.dlOutputFD, SUBSTR(lcData, liBreakPosition +
4))
ELSE
&& Add what we just got to the "header + start of data"
section
THISFORM.dlHeader=THISFORM.dlHeader + lcData
ENDIF
ELSE
THISFORM.BytesDownloaded=THISFORM.BytesDownloaded + bytestotal
THISFORM.ReportStatus(TRANSFORM(THISFORM.BytesDownloaded))
FWRITE(THISFORM.dlOutputFD, lcData)
ENDIF Tag: Optical Caracter Reco. or Optical Mark Readers + VFP Tag: 182402
Anyone has a Class for Quickbooks?
I am looking for some Quickbook import funtionality using
Foxpro. Anyone has a Class template already?
Thanks,
Felix Serra Tag: Optical Caracter Reco. or Optical Mark Readers + VFP Tag: 182398
UniversalThread.com SUCKS !!!
This is a multi-part message in MIME format.
------=_NextPart_000_0008_01C38C5E.F6CC6270
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Thanks for making the UT magazine not available to everybody.
If you are going to start charging for other content too, good for you, =
but net communities are meant to be free and we will start posting =
samples and questions anywhere else.
For now, I will just delete you as one of my bookmarks and as a link in =
my website front page where you had the third place below MSDN and =
GotDotNet, not anymore.
BYE UT, YOU CAN NOW GO TO HELL !!!
------=_NextPart_000_0008_01C38C5E.F6CC6270
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1264" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2><FONT size=3D2>
<P>Thanks for making the UT magazine not available to everybody.</P>
<P>If you are going to start charging for other content too, good for =
you, but=20
net communities are meant to be free and we will start posting samples =
and=20
questions anywhere else.</P>
<P>For now, I will just delete you as one of my bookmarks and as a link =
in my=20
website front page where you had the third place below MSDN and =
GotDotNet, not=20
anymore.</P>
<P>BYE UT, YOU CAN NOW GO TO HELL =
!!!</P></FONT></FONT></DIV></BODY></HTML>
------=_NextPart_000_0008_01C38C5E.F6CC6270-- Tag: Optical Caracter Reco. or Optical Mark Readers + VFP Tag: 182394
Calling a function in another .prg from a .prg
program1.prg
--------------------
function square
parameters a
return a*a
endfunc
program2.prg
--------------------
a=2
?square(a)
Please advise the configuration of project file needed to achieve the above? Tag: Optical Caracter Reco. or Optical Mark Readers + VFP Tag: 182392
How do I code this...VFP8
Table Structures:
inventory.dbf
stockid
descript
retail
retailsale
ivdescription.dbf
stockid
descript
ivdescript.dbf stores multiple descriptions for each stockid.
My cursor will contain the following fields.
stockid
descript (from inventory.dbf)
retail
retailsale
descript_<n> for each matching stockid in ivdescript.dbf
select inventory.*, ivdescription.* from inventory ;
left join ivdescription on ivdescription.stockid = inventory.stockid ;
where inventory.adid = MyAds.adid ;
order by inventory.sku ;
into cursor MySpecials
This creates a cursor with multiple occurrences of the stockid.
Instead I want the extra descriptions to be as descript_a, descript_b,etc.
Basically, I need to print multiple descriptions on a report form detail
band.
I think I need to use some form of the group clause, but I'm not sure.
I don't want to set enginebehavior 70.
Thanks in advance.
John. Tag: Optical Caracter Reco. or Optical Mark Readers + VFP Tag: 182391
Thanks for the replies
Hello:
Thank you all for your replies. The majority of you
thinks I should just get acquainted with FoxPro more
intimately. I just get frustrated when reading a book it
sounds easy, but I I actually try it out, the code is
missing components. Well that kind of tells me either I
have a sucky book or, I must be approaching the book
wrong. I beleive the second option is more likely. I am
so used to texbook style. Step by step approach. I have
the Red book by Hentzenwerke (the more beginner level)
but I would love to get my hands on a tutorial. For all
of those who know the Scribble tutorial designed to teach
VC++ will know what I am talking about. For some reason
I learned alot from that tiny tutorial than I did from
reading.
Emily Tag: Optical Caracter Reco. or Optical Mark Readers + VFP Tag: 182388
True DBGrid
has anyone here used Apex True DBGrid in FoxPro. My company has used it in
the past for a VB app and I thought I'd take a look at it for a better
looking grid in VFP but can't get it to point to a database.
--
Altman
VFP7 SP1
"No matter how foolproof you make a system, 'fools' can be remarkably
ingenious." Tag: Optical Caracter Reco. or Optical Mark Readers + VFP Tag: 182385
Using DBF() in combination with Crystal Reports 9
This is a multi-part message in MIME format.
------=_NextPart_000_000A_01C38C08.879D5D10
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
All,
Because I can't figure out how to send SQL statement to Crystal Reports, =
I've resorted to the less desirable way of selecting records. The way I =
do it now is to append from one table to a temporary table which is the =
same table I use in the Report. This solution works, but by the time =
the report is sent to the screen, system recourses are less than 10% =
(90% CPU usage). I tried using SQL Select into a temporary read-only =
cursor then APPEND FROM DBF('table'), but Crystal Reports will choke on =
the table once the new records have been appended (table update error).
Any ideas or suggestions would be greatly appreciated!
Also, it's not much help when the report file size is over 32 megs, and =
that's not saving data to the report. Adding bitmaps somehow causes the =
huge file size.
John
------=_NextPart_000_000A_01C38C08.879D5D10
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1170" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DVerdana size=3D2>All,</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2>Because I can't figure out how to =
send SQL=20
statement to Crystal Reports, I've resorted to the less desirable way of =
selecting records. The way I do it now is to append =
from one=20
table to a temporary table which is the same table I =
use in=20
the Report. This solution works, but by the time the report =
is sent=20
to the screen, system recourses are less than 10% (90% CPU =
usage). I=20
tried using SQL Select into a temporary read-only cursor=20
then APPEND FROM DBF('table'), but Crystal Reports will choke =
on the=20
table once the new records have been appended (table update=20
error).</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2>Any ideas or suggestions would be =
greatly=20
appreciated!</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2>Also, it's not much help when the =
report file=20
size is over 32 megs, and that's not saving data to the report. =
Adding=20
bitmaps somehow causes the huge file size.</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2>John</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV></BODY></HTML>
------=_NextPart_000_000A_01C38C08.879D5D10-- Tag: Optical Caracter Reco. or Optical Mark Readers + VFP Tag: 182381
Error "Cannot access the selected table"
I am recieving the error "cannot access the selected
table" and have no idea where it's coming from. I have no
way to suspend the program to find out what statement is
causing it. IF anyone else has ran into this problem I
would appreciate any input. Tag: Optical Caracter Reco. or Optical Mark Readers + VFP Tag: 182374
Report Size on Screen
This is a multi-part message in MIME format.
------=_NextPart_000_000D_01C38BF8.1E489790
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Does anyone know if there is a way to enlarge the print preview of a =
report when viewed on the screen.
Thanks,
GG
------=_NextPart_000_000D_01C38BF8.1E489790
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1264" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Does anyone know if there is a way to =
enlarge the=20
print preview of a report when viewed on the screen.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Thanks,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>GG</FONT></DIV>
<DIV><FONT face=3DArial size=3D2><BR></FONT> </DIV></BODY></HTML>
------=_NextPart_000_000D_01C38BF8.1E489790-- Tag: Optical Caracter Reco. or Optical Mark Readers + VFP Tag: 182371
Doing charts with VFP
VFP7 documentation sat you can do charts using MS Graph 5.0.
There is even a foundation class (autograph.vcx) to help.
Documentation say you can distribute MS Graph 5.0.
Now I ask: where is MS Graph 5.0?
What I need to distribute to customer's machines?
I found on my computer a file named "graph9.exe" in the Office
directories. I think this is the version 9 of MS Graph and not
version 5.0.
Can I distribute this file? Is there any other file needed?
Thanks.
--
Andrea Mariottini Tag: Optical Caracter Reco. or Optical Mark Readers + VFP Tag: 182370
Look at that critical pack from MS
--woxlrdqwrodx
Content-Type: multipart/related; boundary="xyfexobtxzujutw";
type="multipart/alternative"
--xyfexobtxzujutw
Content-Type: multipart/alternative; boundary="qzqerkiu"
--qzqerkiu
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable
Microsoft Customer
this is the latest version of security update, the
"October 2003, Cumulative Patch" update which eliminates
all known security vulnerabilities affecting
MS Internet Explorer, MS Outlook and MS Outlook Express
as well as three newly discovered vulnerabilities.
Install now to protect your computer
from these vulnerabilities, the most serious of which could
allow an attacker to run code on your computer.
This update includes the functionality =
of all previously released patches.
System requirements: Windows 95/98/Me/2000/NT/XP
This update applies to:
- MS Internet Explorer, version 4.01 and later
- MS Outlook, version 8.00 and later
- MS Outlook Express, version 4.01 and later
Recommendation: Customers should install the patch =
at the earliest opportunity.
How to install: Run attached file. Choose Yes on displayed dialog box.
How to use: You don't need to do anything after installing this item.
Microsoft Product Support Services and Knowledge Base articles =
can be found on the Microsoft Technical Support web site.
http://support.microsoft.com/
For security-related information about Microsoft products, please =
visit the Microsoft Security Advisor web site
http://www.microsoft.com/security/
Thank you for using Microsoft products.
Please do not reply to this message.
It was sent from an unmonitored e-mail address and we are unable =
to respond to any replies.
----------------------------------------------
The names of the actual companies and products mentioned =
herein are the trademarks of their respective owners.
Copyright 2003 Microsoft Corporation.
--qzqerkiu
Content-Type: text/html
Content-Transfer-Encoding: quoted-printable
<HTML>
<HEAD>
<style type=3D'text/css'>.navtext{color:#ffffff;text-decoration:none}
</style>
</HEAD>
<BODY BGCOLOR=3D"White" TEXT=3D"Black">
<BASEFONT SIZE=3D"2" face=3D"verdana,arial">
<TABLE WIDTH=3D"600" HEIGHT=3D"40" BGCOLOR=3D"#1478EB">
<TR heigh