salu2
Jorge Carazzo escribió:
Si sabes VFP puedes trabajar sin ningun problema con GUINEU. Aunque este en
fase beta funciona perfectamente. Si quieres mas información puedes visitar
el foro, donde podras hacer consultas en español ingles o aleman.
http://guineu.foxpert.com/forum/
Un saludo.
"Jorge Carazzo" <jorgec...@yahoo.com.ar> escribió en el mensaje de
noticias news:%23uL3BpZ...@TK2MSFTNGP02.phx.gbl...
1) Crea un proyecto, con un prg que sea el de inicio, en el puedes poner
algo asi:
DO FORM pantallapda.scx
2) crea el form pantallapda.scx Height 272, width 242,windowtype = 1. A la
pantalla le puedes agregar botones, textboxes, pageframes... Prueba con algo
sencillo para empezar.
3) Antes de compilar el proyecto, desde VFP ejecuta el programa
GUINEUIDE.EXE. Despues de hacerlo veras que en el menu de vfp tienes un
nuevo elemento en el menu, Guineu, miras las opciones, veras que la primera
opcion es: Build y dentro de build, Windows Mobile Application. Despues de
ejecutar esta opcion, tendras el exe preparado para ejecutarlo en la PDA.
4) Para que Guineu funcione en la PDA necesitas los archivos:
- Guineu.compact.exe
- Guineu.compact.dll
- OpenNETCF.dll
En la ayuda en la seccion Instalacion on PDAS, podras encontrar mas
informacion.
Espero haberte ayudado
Un saludo.
"Jorge Carazzo" <jorgec...@yahoo.com.ar> escribió en el mensaje de
noticias news:eAHfjOtK...@TK2MSFTNGP02.phx.gbl...
"Joan Mir" <joan...@infomail.lacaixa.es> escribió en el mensaje
news:D40D5DEA-42C2-4FFC...@microsoft.com...
1) localiza tu archivo.exe. Pulsa sobre él durante (mas de 1 segundo) y
despues copiar.
2) Localiza el directorio Windows\menu inicio\programas Despues pulsa abajo
sobre menu, Editar y selecciona la opcion pegar acceso directo.
Si tu version esta en ingles supongo que los directorios son: "Windows\Start
Menu\Programs"
Un saludo.
"Jorge Carazzo" <jorgec...@yahoo.com.ar> escribió en el mensaje de
noticias news:Oh6lxNxK...@TK2MSFTNGP06.phx.gbl...
Las que tengo en la PDA, las guardo en la carpeta data y las abro asi: USE
Data\PDATICK IN 0
Otras que estan en el servidor:
lcRuta = ALLTRIM(pdaconf.pda_servi)
lcRuta = lcRuta + 'TpvCamDpt'
USE (lcRuta) IN 0
SELECT TpvCamDpt
SET ORDER TO tcd_tvcfk
Un saludo.
"Jorge Carazzo" <jorgec...@yahoo.com.ar> escribió en el mensaje de
noticias news:eh0K2MHL...@TK2MSFTNGP05.phx.gbl...
Un saludo.
"Jorge Carazzo" <jorgec...@yahoo.com.ar> escribió en el mensaje de
noticias news:ep7YtaKL...@TK2MSFTNGP02.phx.gbl...
Un saludo
"Jorge Carazzo" <jorgec...@yahoo.com.ar> escribió en el mensaje de
noticias news:ulp%23mfSLJ...@TK2MSFTNGP02.phx.gbl...
Un saludo.
"Jorge Carazzo" <jorgec...@yahoo.com.ar> escribió en el mensaje de
noticias news:%23J7gteX...@TK2MSFTNGP04.phx.gbl...
Joan:
Sabrías cómo poner un combobox con un campo de una tabla y que se vea
toda la lista al desplegarla en Guineu ?. Tengo el problema de que
despliego el combobox y no me sale nada pese a tener puesto todo
correctamente conforme al foxpro.
Gracias
Alexana
Mira si estos ejemplos de Christof te sirven:
Public Form1
Form1 = CreateObject("Form1")
If Form1.WindowType == 1
Form1.Show(1)
else
Form1.Show()
EndIf
Define Class Form1 as form
Top = 0
Left = 0
Height = 268
Width = 240
ShowWindow = 2
Caption = "FormTest"
ADD OBJECT CommandExit as commandbutton WITH Top = 12, Left = 12, Height =
25, Width = 120, Caption = "Exit"
ADD OBJECT Pageframe1 as pageframe WITH ErasePage = .T., PageCount = 2, Top
= 59, Left = 12, Width = 212, Height = 197, Page1.Caption = "Page1",
Page1.Name = "Page1", Page2.Caption = "Page2", Page2.Name = "Page2"
ADD OBJECT "Pageframe1.Page1.TextListbox" as textbox WITH Height = 25, Left
= 124, Top = 49, Width = 77
ADD OBJECT "Pageframe1.Page1.List1" as listbox WITH Height = 108, Left = 6,
Top = 44, Width = 113
ADD OBJECT "Pageframe1.Page1.CommandFillListbox" as commandbutton WITH Top =
15, Left = 6, Height = 27, Width = 113, Caption = "Fill Listbox"
ADD OBJECT "Pageframe1.Page1.CommandClearListbox" as commandbutton WITH Top
= 16, Left = 123, Height = 27, Width = 81, Caption = "Clear Listbox"
ADD OBJECT "Pageframe1.Page2.Combo1" as combobox WITH Height = 25, Left =
11, Top = 44, Width = 99
ADD OBJECT "Pageframe1.Page2.CommandFillCombobox" as commandbutton WITH Top
= 8, Left = 11, Height = 27, Width = 99, Caption = "Fill Combobox"
ADD OBJECT "Pageframe1.Page2.TextCombobox" as textbox WITH Height = 25, Left
= 119, Top = 44, Width = 80
ADD OBJECT "Pageframe1.Page2.CommandClearCombobox" as commandbutton WITH Top
= 8, Left = 119, Height = 27, Width = 83, Caption = "Clear Combo"
PROCEDURE CommandExit.Click
THISFORM.Release
ENDPROC
PROCEDURE Pageframe1.Page1.List1.Click
THIS.Parent.TextListbox.Value = THIS.Value
ENDPROC
PROCEDURE Pageframe1.Page1.CommandFillListbox.Click
THIS.Parent.List1.AddItem( 'Lurchi' )
THIS.Parent.List1.AddItem( 'Unkerich' )
THIS.Parent.List1.AddItem( 'Mõusepiep' )
THIS.Parent.List1.AddItem( 'Piping' )
THIS.Parent.List1.AddItem( 'Hopps' )
THIS.Parent.List1.AddItem( 'Igelmann' )
ENDPROC
PROCEDURE Pageframe1.Page1.CommandClearListbox.Click
THIS.Parent.List1.Clear
ENDPROC
PROCEDURE Pageframe1.Page2.Combo1.InteractiveChange
THIS.Parent.TextCombobox.Value = THIS.Value
ENDPROC
PROCEDURE Pageframe1.Page2.CommandFillCombobox.Click
THIS.Parent.Combo1.AddItem( 'Lurchi' )
THIS.Parent.Combo1.AddItem( 'Unkerich' )
THIS.Parent.Combo1.AddItem( 'Mõusepiep' )
THIS.Parent.Combo1.AddItem( 'Piping' )
THIS.Parent.Combo1.AddItem( 'Hopps' )
THIS.Parent.Combo1.AddItem( 'Igelmann' )
THIS.Parent.Combo1.Value = "Lurchi"
ENDPROC
PROCEDURE Pageframe1.Page2.CommandClearCombobox.Click
THIS.Parent.Combo1.Clear
THIS.Parent.Combo1.Value = ""
ENDPROC
EndDefine
También puedes usar
THIS.Parent.Combo1.Clear
SCAN
THIS.Parent.Combo1.AddItem( Cursor.campo )
ENDSCAN
<afan...@adsoft.es> escribió en el mensaje de noticias
news:83351b20-5a15-4b76...@m3g2000hsc.googlegroups.com...
Gracias Joan por tu respuesta, pero tengo el problema de que si en el
form le inserto un combobox en diseño no me toma el campo de la tabla
ni se despliega con datos de ese campo.
La manera que me sugieres es muy lenta ya que añade ese campo y tarda
mucho en cargar el ejecutable (la tabla está bastante cargada de
registros).
De todas formas no sé si lo estoy haciendo bien.
Espero tu ayuda. Gracias
<afan...@adsoft.es> escribió en el mensaje de noticias
news:6e8c5df1-6f65-425d...@1g2000prd.googlegroups.com...
<afan...@adsoft.es> escribió en el mensaje de noticias
news:6e8c5df1-6f65-425d...@1g2000prd.googlegroups.com...
Pueden llegar a ser más de 500 registros.
Saludos.
"Jorge Carazzo" <jorgec...@yahoo.com.ar> escribió en el mensaje de
noticias news:eq4uerrL...@TK2MSFTNGP03.phx.gbl...
Un saludo,
Christof Wollenhaupt
La propiedad ControlSource funciona bien para mostrar registros. Hay algunos
problemas con escribir los cambios en la tabla. Para esto puedes usar código
come lo siguiente en el botón:
REPLACE campo WITH Thisform.textbox.Value
Un saludo,
Christof Wollenhaupt
Cristof:
Es una excelente idea dada las limitaciones de los móviles, y tomo
nota.
También, quisiera además saber con un ejemplo, si es posible, cómo
puedo tener actualizados los datos entre aplicación del PC y
aplicación del móvil desarrollada en Guineu. Me explico:
La aplicación del PC tiene diversos ficheros de base de datos
desarrollada en VFP9 y me gustaría desde la proipia aplicación, si es
posible, que tuviera un commandbutton que en su click permitiera
actualizar las tablas con el móvil dentro de la aplicación generada
mediante Guineu. Las tablas de la aplicación instalada en el móvil
tienen menos campos que las de la aplicación del PC.
Espero tu ayuda o la de cualquier miembro del foro que pueda aportar
ideas.
Gracias
Alexana
Añado otra duda que me ha surgido:
Cuando llamo a un formulario desde otro (principal) mediante "do form
xxx" no se me muestra en pantalla.
Qué hago mal ?
Gracias de antemano por la ayuda.
Alexana
Si tienes una conexion wi-fi desde la PDA, puedes acceder a tablas que esten
alojadas en un sevidor. Puedes hacer algo asi: USE
\\NombreEquipo\RecursoCompartido\Tabla
Una vez abierta la tabla del servidor, puedes recorrerla y actualizarla con
datos de las tablas de la PDA o al reves.
Un saludo.
<afan...@adsoft.es> escribió en el mensaje de noticias
news:2240bf45-fde3-4eee...@y79g2000hsa.googlegroups.com...