I'm sorry .. but I don't understand what you are saying or asking here.



>Cathy:
>
>As I stated before I have place the report in a screen. I noticed the tempcursor is created and the gen field is created by the fillpict() is not excuated from the report that I have created.
>
>the following code is placed in the run report button on the screen:
>
>IF m.answer = 1 &&& PRINT Inventory Card
>CREATE CURSOR tmpCursor (MyPicture G)
>APPEND BLANK
>
>
>**: Begin Default Report Setup Code
>**: This Code Was Inserted By FoxExpress
>PRIVATE ;
> lcPrintIt, ;
> llPreview
>lcPrintIt=""
>llPreview=.F.
>**: End Default Report Setup Code
>**: Begin Report Setup Code
>**: This Code Was Inserted By FoxExpress
>**: End Report Setup Code
>DO ddRQBE.spr WITH ;
>"INV_CARD.FRX", ;
>"INVENTOR,MAKEBREA",;
>"INVENTOR.ITEMNUM,INVENTOR.PICOBJECT,INVENTOR.CAT_NUM,INVENTOR.STATUS,INVENTOR.STYLE,INVENTOR.INVOICE,INVENTOR.DATEBUY,INVENTOR.VEN_CODE,INVENTOR.ABR,INVENTOR.STOCKNO,INVENTOR.ASKHIGH,INVENTOR.COST,INVENTOR.CODE_COST,INVENTOR.DESCRIPT,INVENTOR.DESC2,"+ ;
>"INVENTOR.GOLDTYPE,INVENTOR.GOLD,INVENTOR.GOLDCOST,INVENTOR.GOLDWGHT,INVENTOR.LIFO,INVENTOR.OTHER,INVENTOR.DATE_ENTER,INVENTOR.IMGPATH,MAKEBREA.VENDOR,MAKEBREA.COST,MAKEBREA.MCODE_COST,MAKEBREA.DESCRIPT,MAKEBREA.MEMO_STOCK,MAKEBREA.ITEMNUM",;
>"INVENTOR.ABR~INVENTOR.STOCKNO~INVENTOR.COST~INVENTOR.ASKHIGH~INVENTOR.DATESOLD~INVENTOR.ITEMNUM~INVENTOR.DATEBUY~INVENTOR.VEN_CODE~INVENTOR.DATE_ENTER~INVENTOR.STATUS~",;
>"INVENTOR.ITEMNUM = MAKEBREA.ITEMNUM ",;
>"User Selects",;
>"",;
>"",;
>.F.
>
>**: Begin Default Report Cleanup Code
>**: This Code Was Inserted By FoxExpress
>IF m.llPreview
>* m.llPreview will be set to .T. if the user selects Preview and then Done.
>
>ENDIF
>
>IF UPPER(m.lcPrintIt)="PRINT"
>* This is for when the user selects Print from the dialog.
>
>ENDIF
>* If you want code to execute regardless of whether the user selected, Print, Preview or Done, you can put it here.
>
>* These lines should not be removed. They close the cursor that holds the output of the query.
>IF USED("Query")
> USE IN QUERY
>ENDIF
>**: End Default Report Cleanup Code
>
>ENDIF && M.ANSWER =1
>RETURN
>IF M.ANSWER =2
>RETURN
>ENDIF
>
>Sorry I am including the code that the report writer created but I found that if I place in screen I can have a little more flexablilty.
>
>Thanks Again
>
>Ken