Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
What's wrong with this code?
Message
 
 
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Miscellaneous
Thread ID:
01174550
Message ID:
01174554
Views:
6
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.

Seems like its a bug in FPD, ah well.

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

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
Rob
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform