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:
01540071
Views:
24
>>>>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.
Tommy Tillman A+ NetWork+ MCP
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform