Autor Tema: ayuda en foxpro  (Leído 2501 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado fre_saga

  • Trade Count: (0)
  • Sv Member
  • ***
  • Thank You
  • -Given: 0
  • -Receive: 17
  • Mensajes: 275
ayuda en foxpro
« : enero 05, 2013, 03:10:53 pm »
buenas tardes vengo a pedirles de su ayuda en foxpro

megustaria que me orienten de como realizar una consulta por rango de fechas y mostrarla en un grid

y al seleccionar una fila pasar esos datos a unos texbox en otro formulario


Desconectado fre_saga

  • Trade Count: (0)
  • Sv Member
  • ***
  • Thank You
  • -Given: 0
  • -Receive: 17
  • Mensajes: 275
Re:ayuda en foxpro
« Respuesta #1 : enero 06, 2013, 11:38:41 am »
ya tengo solucionado  lo de la consulta y el llenado del grid  solo me falta  pasar los datos de la fila  seleccionada a los texbox en otro formulario
a ca les pongo el codigo
para llenar el grid
Código: [Seleccionar]
CLOSE TABLES
IF EMPTY(ALLTRIM(thisform.fechade.Value) )
RETURN
ENDIF
fechade=ALLTRIM(thisform.fechade.Value)
*use Z:\zafra\Zafrap\CostoEq\eq\Dbf\costosEQ share
use c:\CostoEq\eq\Dbf\costosEQ share
SELECT informe,fecha,placa,codser,horometro,diesel,nuto68,w85,w15relleno,w15cambio FROM costosEQ WHERE BETWEEN (fecha,CTOD(thisform.fechade.value),CTOD(thisform.fechahasta.Value ))  INTO CURSOR busquedafecha

****Nota:  La busqueda se realiza en una tabla que se llama "Cliente" y en un campo llamado "Nombre";
Crea un cursor temporal en el que guarda los datos encontrados
IF !EMPTY(fechade) THEN
WITH thisform.buscaradora&& Crea el grid
**********************
.SelectedItemBackColor=RGB(255,255,255)&&Color del fondo de las letras
.SelectedItemForeColor=RGB(0,0,0)&&Color de las letras
**********************
.columncount=10&&indica el numero de columnas
.readonly=.T.&&solo lectura
.allowheadersizing=.f.
.allowrowsizing=.f.
.recordsource="busquedafecha"
.column1.ControlSource="busquedafecha.informe"
.column2.ControlSource="busquedafecha.fecha"
.column3.ControlSource="busquedafecha.placa"
.column4.ControlSource="busquedafecha.codser"
.column5.ControlSource="busquedafecha.horometro"
.column6.ControlSource="busquedafecha.diesel"
.column7.ControlSource="busquedafecha.nuto68"
.column8.ControlSource="busquedafecha.w85"
.column9.ControlSource="busquedafecha.w15relleno"
.column10.ControlSource="busquedafecha.w15cambio"
.Left = 5 && Ajustar posicion de la Grid
.Visible = .T. && Grid control visible
.FontSize = 8 && Tamaño de la Fuente para el texto
.Forecolor = RGB(0,0,0) && Texto en Negro
.GridLineColor = RGB(0,0,0) && 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
.HighlightRowLineWidth = 2 && El ancho del resaltado de la fila selecionada
.HighlightStyle = 2 && Si la fila esta resaltada, permanece resaltada cuando el usuario cambia el enfoque a otro control del formulario
.Panel = 1
.RecordSourceType = 1
.RowHeight = 18 && El alto de las filas de la grid
.Tabindex = 1 && Orden de la tabulacion
.View = 0 && Tipo de Vista
.column1.ControlSource="busquedafecha.informe"
.column2.ControlSource="busquedafecha.fecha"
.column3.ControlSource="busquedafecha.placa"
.column4.ControlSource="busquedafecha.codser"
.column5.ControlSource="busquedafecha.horometro"
.column6.ControlSource="busquedafecha.diesel"
.column7.ControlSource="busquedafecha.nuto68"
.column8.ControlSource="busquedafecha.w85"
.column9.ControlSource="busquedafecha.w15relleno"
.column10.ControlSource="busquedafecha.w15cambio"
***cambiar el header **********************
.column1.header1.caption="N Informe"
.column2.header1.caption="Fecha"
.column3.header1.caption="Taller"
.column4.header1.caption="Cargadora"
.column5.header1.caption="Horometro"
.column6.header1.caption="Diesel"
.column7.header1.caption="Nuto68"
.column8.header1.caption="85w-140"
.column9.header1.caption="15w-40 Relleno"
.column10.header1.caption="15w-40 Cambio"
***** color
.column1.fontbold=.t.
.column2.fontbold=.t.
.column3.fontbold=.t.
.column4.fontbold=.t.
.column5.fontbold=.t.
.column6.fontbold=.t.
.column7.fontbold=.t.
.column8.fontbold=.t.
.column9.fontbold=.t.
.column10.fontbold=.t.
FOR grdNegrit=1 TO 10
ncol="column"+ALLTRIM(STR(grdNegrit))+"."
.&ncol.header1.FontBold=.T.
.&ncol.header1.Alignment=0
ENDFOR
.allowcellselection=.f.
.setfocus
*.Refresh
ENDWITH
ELSE
IF LASTKEY()<>127 .and. EMPTY(ALLTRIM(This.Value))
Messagebox("Ingrese fecha a Buscar",0+64,"Buscar")
ENDIF
thisform.fechade.SetFocus
ENDIF
IF RECCOUNT()=0 .and. thisform.BSeleccionar.enabled=.T.
thisform.BSeleccionar.enabled=.F.
ELSE
thisform.BSeleccionar.enabled=.T.
ENDIF

Desconectado MOISES

  • Trade Count: (2)
  • Sv Full Member
  • *
  • Thank You
  • -Given: 46
  • -Receive: 4
  • Mensajes: 530
Re:ayuda en foxpro
« Respuesta #2 : enero 28, 2013, 11:48:14 am »
Y solventase el problema ?