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