Clase Touch Screen 100% VFP

Clase Touch Screen 100% VFP

Clase Touch Screen 75% VFP

Solo Clase Touch Screen 75.00 USD Clase Touch Screen Como en el Vídeo $75.00 USD Clase Touch Screen como el vídeo con fuente $150.00 USD

Es una clase desarrollada 100% en VFP, nos permite utilizar para las pantallas touch por ejemplo si queremos utilizarlo en un tablet o pantallas de computadora touch, la manera mas elegante de presentar tu sistema de VFP en dispositivos móviles.

La forma de usarlo es muy sencillo todo se realiza por medio de propiedades a la grid, ejemplo de uso:

*---------METODO INIT

Thisform.gridlistaimg1.RecordSource = ""

Thisform.sqlconector1.Execute("Select CodMesa,DesMesa,SillaCant,lEstado From TbMesa Where Ubi=1","TmpMesa1")

Thisform.gridlistaimg1.RecordSource = ""

Thisform.gridlistaimg1.ColumnCount = 5

Thisform.gridlistaimg1.nomcursorcrear = "TmpAsignarMesa1"

Thisform.gridlistaimg1.cursoraconvertir = "TmpMesa1"

Thisform.gridlistaimg1.campocodigo  = "TmpMesa1.CodMesa"

Thisform.gridlistaimg1.campoimg = ""

Thisform.gridlistaimg1.campodes   = "TmpMesa1.DesMesa"

Thisform.gridlistaimg1.campodess = "TmpMesa1.SillaCant"

Thisform.gridlistaimg1.campoestado        = "TmpMesa1.lEstado"

Thisform.gridlistaimg1.configlistaimg("detallemesa")

Thisform.gridlistaimg1.Refresh()

De esa manera estaríamos configurando para el primer Grid, copiar y pegar para los otros dos grid mas.

Ejemplo cuando queremos usarlo con categoría:
*-----------METODO INIT

Thisform.gridlistaimg1.RecordSource = ""

Thisform.sqlconector1.Execute("Select CodCat,DesCat,FotoCat, CAST(0 as bit) lEstado From TbCatCarne where lfood = 1","TmpCatFood")

Thisform.gridlistaimg1.RecordSource = ""

Thisform.gridlistaimg1.ColumnCount  = 7

Thisform.gridlistaimg1.nomcursorcrear = "TmpCategoriaC"

Thisform.gridlistaimg1.cursoraconvertir = "TmpCatFood"

Thisform.gridlistaimg1.campocodigo  = "TmpCatFood.CodCat"

Thisform.gridlistaimg1.campoimg = "TmpCatFood.FotoCat"

Thisform.gridlistaimg1.campodes   = "TmpCatFood.DesCat"

Thisform.gridlistaimg1.campodess = ""

Thisform.gridlistaimg1.campoestado  = ""

Thisform.gridlistaimg1.configlistaimg("detalleproducto")

Thisform.gridlistaimg1.Refresh()

Ahora vamos a mostrar los productos de las categoría:

*-------METODO DETALLEGRIDIMG

PARAMETERS cCodigo

Thisform.sqlconector1.Execute("SELECT CodProd, DesProd, FotoProd, DesCat, lNota FROM TbProducto p INNER JOIN TbCatCarne c ON P.CodCat=c.CodCat WHERE p.CodCat=?cCodigo AND p.lFood=1 ","TmpProductoCat")

SELECT TmpProductoCat

GO TOP

Thisform.cmdagregarNota.Enabled = lNota

Thisform.cntNota.txt2.Value = cCodigo

Thisform.gridlistaimg2.RecordSource = ""

Thisform.gridlistaimg2.ColumnCount  = 5

Thisform.gridlistaimg2.nomcursorcrear = "TmpProductoCatImg"

Thisform.gridlistaimg2.cursoraconvertir = "TmpProductoCat"

Thisform.gridlistaimg2.campocodigo  = "TmpProductoCat.CodProd"

Thisform.gridlistaimg2.campoimg = "TmpProductoCat.FotoProd"

Thisform.gridlistaimg2.campodes   = "TmpProductoCat.DesProd"

Thisform.gridlistaimg2.configlistaimg("detalleproducto")

Thisform.gridlistaimg2.Refresh()

Thisform.Refresh()

 En el vídeo se muestra otra manera de usar la Clase Touch Screen