* this method provides the colored cells for the grdStages >* they match the colors of the pages from the stack ticket > >lparameter pnRecno > >do case > case ( pnRecno = 1 ) && Yard > return rgb( 255, 255, 255 ) > case ( pnRecno = 2 ) && Pre Dryer > return rgb( 255, 255, 0 ) > case ( pnRecno = 3 ) && Kiln > return rgb( 255, 128, 255 ) > case ( pnRecno = 4 ) && Cooling Shed > return rgb( 255, 128, 0 ) > case ( pnRecno = 5 ) && Plant > return rgb( 255, 255, 164 ) > otherwise > return rgb( 192, 192, 192 ) >endcase>
thisform.StageColor(recno("stackstages"))>