>>So, no 00/00/0000 to correct. I am baffled. Maybe corruption in the Class ?
>
>Try opening the .VCX file as a table (use c:\pharmacy\class libraries\forms\forms_rx.vcx) and look for the object with that code (00/00/0000) in the methods memo field.
>
>Maybe there's more than one record and one of them should be marked deleted() but isn't.
>
I was hoping for that. But there are over 3518 Records in the VCX file, with 23 fields in each record. And many of them are Binary fields.... sigh.....
I tried to do a FIND in the the table, but no such luck.
I Did see that in the FoxPro options, that the GENERAL/ Year 200 Compliance was set to 1. On a lark, I changed it to 0, and the recompile worked without any errors popping up. I wonder if it was set to 0 in VFP8 and then was set to 1 in VFP9 ??
Thanks
>Best regards,
>Rick C. Hodgin
>
>
>
>>>>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