Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Compiling and Code References Weirdness
Message
 
À
29/04/2013 11:31:20
Dragan Nedeljkovich (En ligne)
Now officially retired
Zrenjanin, Serbia
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP3
Network:
Windows 2003 Server
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01572167
Message ID:
01572171
Vues:
58
>>Morning, Gang.
>>
>>I have a problem here that just cropped up
>>
>>In compiling our EXE, we get this 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 do a hunt for this error in the Code References tool (searching for 00/00/0000) and I get a hit
>>
>>File name - c:\pharmacy\class libraries\forms\forms_rx.vcx
>>Class.Method, Line - frmrx.pgfScreen.RapidPage.pgfData.PricingPage.Activate, 60
>>Code - VALUES (.T.,0, 0, {00/00/0000}, drug.ndc, ALLTRIM(drug.name),This.Parent.DrugPage.pgfDrug.TradePage.txtQtyFilled.value, ;
>>
>>But when I dbl-click on the offending line to go edit it, I get code that DOES NOT have this error in it!!! Nowhere in the class is this 00/00/0000 in it !!!
>>
>>So, what do I do? I can't create the EXE and I can't remove the error.
>
>What's the actual insert statement? If you have anything like the date value with zeros, supply a proper one, like {}. A date with zeros is a no-no in Fox, however empty date compiles fine.

Here is the code starting at line 270, where the Compiler said the error was located...
* End STB add
	lyAWP = QtyAWP / QtyFilled * generic.size
	lyAcq = QtyAcq / QtyFilled * generic.size
	lyFMAC = QtyFMAC / QtyFilled * generic.size
*TMT 08/20/07 340B Rx
	ly340B = Qty340B / QtyFilled * generic.size
ENDIF
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)
So, no 00/00/0000 to correct. I am baffled. Maybe corruption in the Class ?
Tommy Tillman A+ NetWork+ MCP
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform