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:
01540075
Views:
24
>I suggest to try to search for 'PriceCode,InsName,Margin)' if the 00/00 does not work.

I found 5 places.....
IF rx.rx340b
	This.cmd340B.Enabled = .T.
Here -----  >>ELSE 
	This.cmd340B.Enabled = .F.
ENDIF 
and
Thisform.pgfScreen.RapidPage.txtSearch.value = ""
and
*!*	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, DATE(), drug.ndc, ALLTRIM(drug.name),This.Parent.DrugPage.pgfDrug.TradePage.txtQtyFilled.value, ;
*!*		This.txtIngredientCost.value, This.txtDiscount.value, This.txtGrossAmountDue.value , 0.00 , drug.awp, ;
*!*		Thisform.p_QtyAWP, drug.acquisition_cost, Thisform.p_QtyAcq, drug.fmac, Thisform.p_QtyFMAC, ;
*!*		Thisform.p_PriceCode,lcInsuranceName,lnMargin )
>

and
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 (.T.,0, 0, DATE(), drug.ndc, ALLTRIM(drug.name),This.Parent.DrugPage.pgfDrug.TradePage.txtQtyFilled.value, ;
	This.txtIngredientCost.value, This.txtDiscount.value, This.txtGrossAmountDue.value , 0.00 , drug.awp, ;
	Thisform.p_QtyAWP, drug.acquisition_cost, Thisform.p_QtyAcq, drug.fmac, Thisform.p_QtyFMAC, ;
	Thisform.p_PriceCode,lcInsuranceName,lnMargin,drug.drug340b,drug.acq340b_cost,Thisform.p_qty340bacq )
and finally
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, it is very weird ......


>>>>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
Tommy Tillman A+ NetWork+ MCP
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform