FoxPro/Visual FoxPro - GRID!!!MALDITO GRID!!!!

   
Vista:

GRID!!!MALDITO GRID!!!!

Publicado por chofitllo (2 intervenciones) el 07/09/2007 16:37:07
SOY NUEVO USANDO FOX Y ME HE ROTO LA CABEZA TRATANDO DE METER DATOS EN UNE TABLA CON UN GRID EN BLANCO ESO SE PUEDE ´???SI NO POR FAVOR DARME LA SOLUCION!! SE LES AGRADECERIA MUCHISIMO!!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:GRID!!!MALDITO GRID!!!!

Publicado por juan fernando (533 intervenciones) el 07/09/2007 16:47:30
Usa código ..este ejemplo corresponde al evento valid de la text1
de la pagina 1 ..el grid que se actualiza está en la página 2 .
indistinto de esto me puedes escribir ..veremos ahi en que te
podemos colaborar .

Publ fac
fac=Thisform.Pageframe1.Page1.Text1.Value
*Set Filter to Factura=fac
Locate For Factura=fac
If Found()
Messagebox(' Factura Encontrada **GRABADA **',0+48+0,' ADVERTENCIA ')
Else
Set Filter to Factura=fac
Append Blank
Repla Factura With fac

With Thisform.Pageframe1.Page2.Grid1
.AllowAddNew=.t.
.ColumnCount=6
.RecordSource="tabla1"

.Column1.Header1.Caption="ITEM"
.Column1.ControlSource="tabla1.item"
.Column1.Header1.FontBold=.t.
.Column1.Format="99"
.Column1.InputMask="99"


*-----------------------------------------------------------
.Column2.Header1.Caption="CANT."
.Column2.ControlSource="tabla1.cantidad"
.Column2.Header1.FontBold=.t.
.Column2.Format="99999.99"
.Column2.InputMask="99999.99"
*------------------------------------------------------------
.Column3.Header1.Caption="UNID."

.Column3.ControlSource="tabla1.Unidad"
.Column3.Header1.FontBold=.t.
.Column3.Format="!"
*.Column3.InputMask="99999"
*_____________________________________________________________

.Column4.Header1.Caption="DESCRIPCION DE LAS MERCANCIAS"
.Column4.ControlSource="tabla1.Descripcio"
.Column4.Header1.FontBold=.t.
.Column4.Format="!"
* .Column4.InputMask="!"
*-------------------------------------------------------------
.Column5.Header1.Caption="VALOR VTA"
.Column5.ControlSource="tabla1.Preciovent"
.Column5.Header1.FontBold=.t.
.Column5.Format="99,999,999"
.Column5.InputMask="99,999,999"
*-----------------------------------------------------------
.Column6.Header1.Caption="VALOR TOTAL"
.Column6.ControlSource="tabla1.Neto"
.Column6.Header1.FontBold=.t.
.Column6.Format="99,999,999"
.Column6.InputMask="99,999,999"


EndWith
Endif
Thisform.Pageframe1.Page2.Grid1.Refresh
Thisform.Pageframe1.Page1.Text1.Refresh
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar