Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Compile Error problem
Message
General information
Forum:
Visual FoxPro
Category:
Installation, Setup and Configuration
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01540061
Message ID:
01540072
Views:
27
>>>>>Hi Gang!
>>>>>
>>>>>Question...
>>>>>
>>>>>In testing our app in VFP 9.0 SP2, I find a compile error when I build the EXE.
>>>>>
>>>
>>>
>>>>
>>>>Well, you know that the error is in the Activate method here
>>>>frmrx.pgfScreen.RapidPage.pgfData.PricingPage.Activate
>>>>
>>>>So, just open that form (frmRx) and go to the PrcingPage Activate method and change your datetime constant to {} assuming you wanted an empty date.
>>>
>>>Here is line 270 that is suppose to be the error....
>>>
>>>
>>>INSERT INTO csrHistory (Current,Rx_no, Refill_no, DateFilled, NDC, Name, QtyFilled, Price, Discount, Cash, ;
>>>ThirdParty, AWP, QtyAWP, Acq, QtyAcq, FMAC, QtyFMAC, PriceCode, InsName, Margin, ISThree40B, Three40B, Qty340B);
>>>VALUES (.F.,refill.rx_no, refill.refill_no, refill.filled_date, generic.ndc, ALLTRIM(generic.name), refill.quantity_filled, ;
>>>lyPrice, refill.discount, lyRetail , lyThirdParty , lyAWP, ;
>>>refill.qty_awp, lyAcq, refill.qty_acq, lyFMAC, refill.qty_fmac, ;
>>>refill.price_code_used,lcInsuranceName,lnMargin, refill.Rx340B, ly340B, refill.qty_340Bacq)
>>>
>>>
>>>Which is not what the compiler said it was.... and no 00/00/00 anywhere in the code for this class.....
>>>
>>>So.... any idea what else to look at???
>>>
>>>Thanks
>>
>>Are you saying that there is no 00/00 in the INSERT command? Is there a define constant? Also, does the top portion of the insert look like the error?
>
>That is correct.... there is no other 00/00 in any code in the class. No define constant.
>
>>
>>This is how the insert is supposed to be:
>>
>>INSERT INTO csrHistory (Current,Rx_no, Refill_no, DateFilled, NDC, Name, QtyFilled, Price,
>> Discount, Cash,  ThirdParty, AWP, QtyAWP, Acq, QtyAcq, FMAC, QtyFMAC,PriceCode,InsName,Margin) 
>>VALUES (.T.,0, 0, {00/00/0000}, drug.ndc, ALLTRIM(drug.name),This.Parent.DrugPage.pgfDrug.TradePage...
>>
>
>
>But the compile will barf on the {00/00/0000}...... when I encounted these types of dates, I replaced them with CTOD('00/00/0000') (or a {} .
>
>>So, look for another INSERT command in that method.

I know, I meant that this is the insert command you're supposed to be searching for. You need to change the constant to be {}.
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform