FoxPro/Visual FoxPro - Ayuda con Grid

SELECT Fecha, No_factura, Movimiento, Documento, Codigo, Descripcio, Sa_inicial, Entradas,Salidas, Saldos ;

  FROM ;

    "Deta_producto";

      WHERE codigo = thisform.txtcodigo.Value AND Fecha >= thisform.txtFec.Value AND Fecha <= thisform.txtdes.Value;

      ORDER BY Fecha ASC INTO CURSOR cTemp READWRITE

WITH thisform.Grid1&&establecemos las propiedades del grid

	.columncount=8&&indica el numero de columnas

	.height=286&&alto de la grilla

	.width=682&&ancho

	.readonly=.T.&&solo lectura

	.allowcellselection=.f.

	.allowheadersizing=.f.

	.allowrowsizing=.f.

	.recordsource="cTemp"

	.Left = 0  && Ajustar posicion de la Grid

	.Visible = .T.  && Grid control visible

	.FontSize = 9  && Tamaño de la Fuente para el texto

	.FontBold = .T.

	.Forecolor = RGB(0,0,0) && Texto en Negro

	.BackColor = RGB(216,176,255)

	.GridLineColor = RGB(128,0,64)&& Color de las lineas que separan las celdas

	.GridLines = 3 && Especifica si el control grid se muestra en lineas horizontales y verticales

	.Highlight = .T. && La celda aparece selecionada

	.HighlightBackColor = RGB(0,0,255)  && Color de la Fila Selecionada

	.HighlightForeColor = RGB (255,255,255)

	.HighlightRowLineWidth = 1 && El ancho del resaltado de la fila selecionada

	.HighlightStyle = 0 && Si la fila esta resaltada, permanece resaltada cuando el usuario cambia el enfoque a otro control del formulario

	.Name = 'Grid1'

	.Panel = 1

	.RecordSourceType = 1

	.RowHeight = 18 && El alto de las filas de la grid

	.Tabindex = 27 && Orden de la tabulacion

	.Top = 110 && Borde superior

	.View = 0 && Tipo de Vista

	.ScrollBars = 2

	FOR grdnegrita = 1 TO .ColumnCount

    numcol="column"+ALLTRIM(STR(grdnegrita))+"."

   .&numcol.header1.FontBold = .T. && Para la Negrita

   .&numcol.header1.Alignment = 2  && Posicion del titulo Medio Centro

	ENDFOR

	*.SETALL("DynamicBackColor", "IIF(Producto.Existencia < 5 , RGB(255,0,0), RGB(255,255,255))","Column")

	.column1.header1.Caption = "Fecha "

	.column2.header1.Caption = "No Factura "

	.column3.header1.Caption = "Movimiento "

	.column4.header1.Caption = "Documentos "

	.column5.header1.Caption = "Saldo Inicial "

	.column6.header1.Caption = "Entradas  "

	.column7.header1.Caption = "Salidas   "

	.column8.header1.Caption = "Saldos Disp.   "

	*.Recordsource = "cTemp"

	.Column1.Controlsource = "cTemp.Fecha"

	.Column2.Controlsource = "cTemp.No_factura"

	.Column3.Controlsource = "cTemp.Movimiento"

	.Column4.Controlsource = "cTemp.Documento"

	.Column5.Controlsource = "cTemp.Sa_inicial"

	.Column6.Controlsource = "cTemp.Entradas"

	.Column7.Controlsource = "cTemp.Salidas"

	.Column8.Controlsource = "cTemp.Saldos"

	.column1.Width = 75

	.column2.Width = 75

	.column3.Width = 100

	.column4.Width = 80

	.column5.Width = 80

	.column6.Width = 75

	.column7.Width = 75

	.column8.Width = 75

	.Setfocus

	.AllowCellSelection = .f.

	.Refresh

ENDWITH