Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
What's wrong with this code?
Message
From
04/12/2006 07:37:32
 
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Miscellaneous
Thread ID:
01174550
Message ID:
01174558
Views:
8
>Hi Terry,
>
>>@ $,$+2 get m.pyear picture '99
>
>$ means at current cursor position in FP DOS
>
>The spelling mistake is actually an abreviation to 12 characters since the fields is only 12 characters max.

'Posting Catgory:' is not abbrev to 12 chars, nor is 'catgory' alone. Besides, the prompt doesn't have to be abbrev, just cos the field is. I was just pointing this out to spare your blushes, should the user notice your typo.

>
>Seems like its a bug in FPD, ah well.

You didn't state whether either of the other 2 suggestions were efficacious.

>
>This software is being replaced by a COBOL system in 6 months anyway. (Much to my utter dismay!)

You guys invented a time machine or something!?

>
>Thanks for your help.
>
>Robin
>
>
>
>
>>Robin
>>
>>I've just run the code in VFP7 and there's no problem, and none I can see.
>>
>>OTOMH:
>>
>>- Try padding each equation out to width of widest list item of array, i.e.
>>
>>ITEMS( 1) = "CONF "
>>...
>>ITEMS(15) = "FIXED ASSETS"
>>
>>- Be more specific in the declaration:
>>
>>DECLARE ITEMS( 16, 1)
>>
>>- What's this? Forgive my ignorance but I've never seen this @ before:
>>
>>@ $,$+2 get m.pyear picture '99
>>
>>BTW FYI it's 'Posting Category:' not 'Posting Catgory:'
>>
>>HTH
>>
>>Terry
>>
>>
>>>When the list of items comes up, the first 8 items are blank, then all sixteen are in the list after that.
>>>
>>>Whats wrong with this code?
>>>
>>>
>>>M.PMONTH=""
>>>M.IAMOUNT=0
>>>M.VAT=0
>>>M.CAT=""
>>>
>>>RELEASE ITEMS
>>>DECLARE ITEMS(16)
>>>ITEMS(1)='CONF'
>>>ITEMS(2)='CIGS'
>>>ITEMS(3)='TEMP LABOUR'
>>>ITEMS(4)='MOTOR'
>>>ITEMS(5)='CARRIAGE'
>>>ITEMS(6)='LIGHT'
>>>ITEMS(7)='PH_FX'
>>>ITEMS(8)='PPSA'
>>>ITEMS(9)='REPRS'
>>>ITEMS(10)='SUNDR'
>>>ITEMS(11)='BANK CHARGES'
>>>ITEMS(12)="LEASE/RENTAL"
>>>ITEMS(13)="SEC SERVICE"
>>>ITEMS(14)="H&S SERVICES"
>>>ITEMS(15)="FIXED ASSETS"
>>>ITEMS(16)="PROF&AC FEES"
>>>
>>>@ 3,1 SAY '                ' GET m.cat PICTURE '@^' FROM ITEMS DEFAULT ITEMS(1)
>>>m.pyear = right(str(year(date())),2)
>>>@ $,$+2 get m.pyear picture '99'
>>>@ 4,1 SAY 'Posting Catgory:'
>>>@ 7,1 say 'Posting Month  :'
>>>READ
>>>
>>>
>>>Any help apreciated
- Whoever said that women are the weaker sex never tried to wrest the bedclothes off one in the middle of the night
- Worry is the interest you pay, in advance, for a loan that you may never need to take out.
Previous
Reply
Map
View

Click here to load this message in the networking platform