WITH ThisForm.grdBusqueda &&establecemos las propiedades del grid
.columncount = 4 &&indica el numero de columnas
.readonly =.T. &&solo lectura
.allowheadersizing =.T.
.allowrowsizing =.T.
.recordsource = "_Busqueda"
.Left = 5 && Ajustar posicion de la Grid
.Forecolor = RGB(0,0,0) && Texto en Negro
.GridLineColor = RGB(176,230,255) && Color de las lineas que separan las celdas
.Highlight = .T. && La celda aparece selecionada
.HighlightBackColor = RGB(182,202,234) && Color de la Fila Selecionada
.HighlightStyle = 2 && Si la fila esta resaltada, permanece resaltada cuando el usuario cambia el enfoque a otro control del formulario
.RecordSourceType = 1
.column1.ControlSource = "numero_cpc"
.column2.ControlSource = "fecha_cpc"
.column3.ControlSource = "Proveedor"
.column4.ControlSource = "Factura"
.column1.header1.caption = "No. Documento"
.column2.header1.caption = "Fecha"
.column3.header1.caption = "Proveedor"
.column3.header1.caption = "Factura"
FOR grdNegrit=1 TO 4
ncol = "column"+ALLTRIM(STR(grdNegrit))+"."
.&ncol.header1.FontBold =.T.
.&ncol.header1.Alignment = 2 &&Alinea Centrado
ENDFOR
.column1.Width = 111
.column2.Width = 95
.column3.Width = 440
.column4.Width = 159
.allowcellselection=.f.
.setfocus
.Refresh
ENDWITH