Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Compile Error problem
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Installation et configuration
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01540061
Message ID:
01540063
Vues:
44
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform