***** Prepare general field in Items table for printing

frmTemp = createobject("Form")
with frmTemp
	.AddObject("OO","OLEBoundControl")
	.OO.ControlSource = "Items.CodeGen" && bind it to general field so we will be able to edit properties of the control inside of the general field
	.OO.Width = 217
	.OO.Height = 73

	&& prepare bar code for each record
	scan all
	  && create a barcode in general field
	  APPEND GENERAL Items.CodeGen CLASS ("IDAuto.BarCode")
	  && update the control by the current general field content
	  .OO.Refresh
	  && update the control by the data and adjust its properties if needed.
	  && here we just demo how to set few of them, though you can change
	  && other properties this way too
	  .OO.Object.DataToEncode = Items.Code
	  .OO.Object.BACKCOLOR = RGB(200,200,200)
	  .OO.Object.FORECOLOR = RGB(0,0,255)
	  .OO.Refresh
	endscan
	go top in Items
    .OO.Refresh
endwith

release frmTemp