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:
01540063
Views:
43
>Hi Gang!
>
>Question...
>
>In testing our app in VFP 9.0 SP2, I find a compile error when I build the EXE.
>
>Here is the compile error....
>
>
>Compiling c:\pharmacy\class libraries\forms\forms_rx.vcx
>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.txtQtyFilled.value,  This.txtGrossBilled.value, This.txtDiscount.value, This.txtNetBilled.value , 0.00 , drug.awp,  This.txtQtyAWP.value, drug.acquisition_cost, This.txtQtyAcq.value, drug.fmac, This.txtQtyFMAC.value,  Thisform.p_PriceCode,lcInsuranceName,lnMargin )
>Error in line 270 of frmrx.pgfScreen.RapidPage.pgfData.PricingPage.Activate (record 4): Date/datetime evaluated to an invalid value.
>
>
>So I copy part of the error above ( e.g. VALUES (.T.,0, 0, {00/00/0000}, ) and place that in the search of the Tools / Code References and search for the error.
>
>No good.... it finds where it thinks it should be.... here is what it found.....
>
>
>**TMT 08/28/07 Toggle the cmd340B Enable status 
>TMT 09/14/07 Modified to handle CASH Rx (No 3rd-party)
>*IF Thisform.p_UseThirdparty > 0		&& This is a 3rd-party
>	DO CASE 
>		*Plan based 340B Pharmacy
>		CASE pharmacy_config.inv_340B = "P"			
>			IF third_party_plans.tpp340b AND drug.drug340B 						&& Only Plan and Drug needed here
>				This.cmd340B.Enabled = .T.
>			ELSE
>				IF rx.rx340b
>					This.cmd340B.Enabled = .T.
>				ELSE 
>Here is the line it found ---->>>>			This.cmd340B.Enabled = .F.
>				ENDIF 
>			ENDIF 
>
>
>The line it found was the This.cmd340B.Enabled = .F.
>
>Strange eh??? Anything I can do to stop this insanity ????
>
>Thanks!

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.
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform