FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Pocket PC Alguien puede ayudarme
mjcc
Posts: 139
Joined: Fri Apr 07, 2006 09:16 PM
Alguien puede ayudarme
Posted: Sat Apr 15, 2006 07:21 PM

Estoy usando el Symantec Resources Studio, he dise帽ado una caja de dialogo, ahora estoy intentado arrancarla desde el PRV y me de un mensaje de error, no se puede arrancar la caja de dialogo, alguien de este foro tiene alguna idea de porque puede estar pasando esto.

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Alguien puede ayudarme
Posted: Sat Apr 15, 2006 07:23 PM

Manuel,

Es el mismo fichero RC que has publicado en otro mensaje ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
mjcc
Posts: 139
Joined: Fri Apr 07, 2006 09:16 PM
ok
Posted: Sat Apr 15, 2006 07:25 PM

Si quieres te envio de nuevo todo el codigo fuente para que lo veas.
Estoy desesperado, ya que no puedo seguir probando las cosas y necesito decirle a mi cliente si las cosas que el me pide se pueden realizar o no se pueden realizar.

Gracias.

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Alguien puede ayudarme
Posted: Sat Apr 15, 2006 07:27 PM

Manuel,

Env铆ame todo en un ZIP por email.

regards, saludos

Antonio Linares
www.fivetechsoft.com
mjcc
Posts: 139
Joined: Fri Apr 07, 2006 09:16 PM
OK. Dime el email a donde te lo envio.
Posted: Sat Apr 15, 2006 07:29 PM

Dime el email a donde te lo envio.

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Alguien puede ayudarme
Posted: Sat Apr 15, 2006 07:30 PM

alinares@fivetechsoft.com

regards, saludos

Antonio Linares
www.fivetechsoft.com
mjcc
Posts: 139
Joined: Fri Apr 07, 2006 09:16 PM
Lo tienes en tu correo.
Posted: Sat Apr 15, 2006 07:35 PM

Lo tienes en tu correo.

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Alguien puede ayudarme
Posted: Sat Apr 15, 2006 11:37 PM
Manuel,

Funciona correctamente. Solo tienes que cambiar el fichero RC de esta forma:
Code: Select all Collapse
#include "winapi.ch"

mcliente DIALOG MOVEABLE LOADONCALL DISCARDABLE	10, 10, 186, 70
STYLE DS_MODALFRAME | WS_CAPTION | WS_SYSMENU | WS_VISIBLE | WS_POPUP
CAPTION "Clientes"
FONT 8, "MS Sans Serif"
BEGIN
END

Y modifica buildce.bat en esta l铆nea:
IF EXIST %1.rc %vcdir%\bin\rc -r -d_CE -ic:\fwce\include %1

Aqui lo ves funcionando:
regards, saludos

Antonio Linares
www.fivetechsoft.com
mjcc
Posts: 139
Joined: Fri Apr 07, 2006 09:16 PM
OK. Todo perfecto, muchas gracias
Posted: Sun Apr 16, 2006 05:27 PM

Otra pregunta mas por favor, tendo la ventana dise帽ada, pero ahora necesito asignarle a cada uno de los campos y botones las acciones y valores que mi interesan, como hago este proceso, te envio el fichero RC para que me hagas un ejemplo con un boton y un campo, como cargarle valores y como actualizar un dbf despues con los valores de este campo
Gracias.

include "..\include\winapi.ch"

include "inicio.rh"

MCLIENTE DIALOG 7, 3, 146, 142
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME
CAPTION "A帽adir modificar clientes"
FONT 8, "MS Sans Serif"
{
CTEXT "C贸digo", -1, -1, 1, 33, 8
CTEXT "Fecha Alta", -1, 34, 1, 54, 8
CTEXT "CIF/NIF", -1, 87, 1, 54, 8
EDITTEXT IDC_EDIT1, 2, 10, 28, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
EDITTEXT IDC_EDIT2, 39, 10, 48, 12, WS_BORDER | WS_TABSTOP
EDITTEXT IDC_EDIT3, 91, 10, 52, 12, WS_BORDER | WS_TABSTOP
LTEXT "Nombre, Calle, CP, Poblaci贸n, Provincia", -1, 2, 23, 135, 8
EDITTEXT IDC_EDIT4, 3, 32, 140, 12, WS_BORDER | WS_TABSTOP
EDITTEXT IDC_EDIT5, 3, 43, 140, 12, WS_BORDER | WS_TABSTOP
EDITTEXT IDC_EDIT6, 3, 54, 28, 12, WS_BORDER | WS_TABSTOP
EDITTEXT IDC_EDIT7, 30, 54, 113, 12, WS_BORDER | WS_TABSTOP
EDITTEXT IDC_EDIT8, 3, 65, 140, 12, WS_BORDER | WS_TABSTOP
CTEXT "Tel茅fono", -1, 2, 78, 41, 8
EDITTEXT IDC_EDIT9, 3, 86, 43, 12, WS_BORDER | WS_TABSTOP
CTEXT "Fax", -1, 48, 78, 41, 8
EDITTEXT IDC_EDIT10, 50, 86, 43, 12, WS_BORDER | WS_TABSTOP
CTEXT "Movil", -1, 98, 78, 41, 8
EDITTEXT IDC_EDIT11, 99, 86, 43, 12, WS_BORDER | WS_TABSTOP
CTEXT "Otros comentarios y notas 70(x)", -1, 3, 100, 135, 8
EDITTEXT IDC_EDIT12, 4, 108, 137, 12, WS_BORDER | WS_TABSTOP
DEFPUSHBUTTON "Grabar", IDC_PUSHBUTTON1, 4, 127, 50, 14
DEFPUSHBUTTON "Salir", IDC_PUSHBUTTON2, 91, 127, 50, 14
}
gracias
Eres un fenomeno en este lenguaje, muchas gracias.

Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Alguien puede ayudarme
Posted: Sun Apr 16, 2006 06:08 PM

Hace falta "inicio.rh"

regards, saludos

Antonio Linares
www.fivetechsoft.com
mjcc
Posts: 139
Joined: Fri Apr 07, 2006 09:16 PM
No esta totalmente vacio, no tiene nada
Posted: Sun Apr 16, 2006 06:10 PM

Lo que pasa es que el editor de pantalla, lo incluye y lo he dejado.

mjcc
Posts: 139
Joined: Fri Apr 07, 2006 09:16 PM
Ayudame con el siguiente codigo del fichero RC
Posted: Sun Apr 16, 2006 07:20 PM
Dime como puedo declarar el REDEFINE dentro del PRG para que una de estas variables contenga el valor de un fichero, y despues como puedeo actualizarla

#include "..\include\winapi.ch"
MCLIENTE DIALOG 7, 3, 146, 142
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME
CAPTION "A帽adir modificar clientes"
FONT 8, "MS Sans Serif"
{
CTEXT "C贸digo", -1, -1, 1, 33, 8
CTEXT "Fecha Alta", -1, 34, 1, 54, 8
CTEXT "CIF/NIF", -1, 87, 1, 54, 8
EDITTEXT IDC_EDIT1, 2, 10, 28, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER
EDITTEXT IDC_EDIT2, 39, 10, 48, 12, WS_BORDER | WS_TABSTOP
EDITTEXT IDC_EDIT3, 91, 10, 52, 12, WS_BORDER | WS_TABSTOP
LTEXT "Nombre, Calle, CP, Poblaci贸n, Provincia", -1, 2, 23, 135, 8
EDITTEXT IDC_EDIT4, 3, 32, 140, 12, WS_BORDER | WS_TABSTOP
EDITTEXT IDC_EDIT5, 3, 43, 140, 12, WS_BORDER | WS_TABSTOP
EDITTEXT IDC_EDIT6, 3, 54, 28, 12, WS_BORDER | WS_TABSTOP
EDITTEXT IDC_EDIT7, 30, 54, 113, 12, WS_BORDER | WS_TABSTOP
EDITTEXT IDC_EDIT8, 3, 65, 140, 12, WS_BORDER | WS_TABSTOP
CTEXT "Tel茅fono", -1, 2, 78, 41, 8
EDITTEXT IDC_EDIT9, 3, 86, 43, 12, WS_BORDER | WS_TABSTOP
CTEXT "Fax", -1, 48, 78, 41, 8
EDITTEXT IDC_EDIT10, 50, 86, 43, 12, WS_BORDER | WS_TABSTOP
CTEXT "Movil", -1, 98, 78, 41, 8
EDITTEXT IDC_EDIT11, 99, 86, 43, 12, WS_BORDER | WS_TABSTOP
CTEXT "Otros comentarios y notas 70(x)", -1, 3, 100, 135, 8
EDITTEXT IDC_EDIT12, 4, 108, 137, 12, WS_BORDER | WS_TABSTOP
DEFPUSHBUTTON "Grabar", IDC_PUSHBUTTON1, 4, 127, 50, 14
DEFPUSHBUTTON "Salir", IDC_PUSHBUTTON2, 91, 127, 50, 14
}
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Alguien puede ayudarme
Posted: Mon Apr 17, 2006 12:53 PM
Manuel,
Code: Select all Collapse
FUNCTION ocliente(oWnd,sel_dbf,registro)
* Estado 1 (Borrado) 2 (Cambiado) 3 (Nuevo)

local oDbf

SELECT (sel_dbf)
DATABASE oDbf

DEFINE DIALOG maecli RESOURCE "mcliente"

REDEFINE GET oDbf:Codigo    ID  10 OF maecli
REDEFINE GET oDbf:CifNif    ID  30 OF maecli
REDEFINE GET oDbf:NombreC   ID  40 OF maecli
REDEFINE GET oDbf:Direccion ID  50 OF maecli
REDEFINE GET oDbf:CP        ID  60 OF maecli
REDEFINE GET oDbf:Poblacion ID  70 OF maecli
REDEFINE GET oDbf:Provincia ID  80 OF maecli
REDEFINE GET oDbf:Telefono  ID  90 OF maecli
REDEFINE GET oDbf:Fax       ID 100 OF maecli
REDEFINE GET oDbf:Movil     ID 110 OF maecli
REDEFINE GET oDbf:Notas     ID 120 OF maecli

REDEFINE BUTTON ID 130 OF maecli ACTION oDbf:Save(), maecli:End()
REDEFINE BUTTON ID 140 OF maecli ACTION maecli:End()

ACTIVATE DIALOG maecli
RETURN 0

As铆 se ve:

Y el RC se ha modificado asi para identificar cada control por su ID:
Code: Select all Collapse
#include "winapi.ch"

MCLIENTE DIALOG 7, 3, 146, 142 
STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME 
CAPTION "A帽adir modificar clientes" 
FONT 8, "MS Sans Serif" 
{ 
CTEXT "C贸digo", -1, -1, 1, 33, 8 
CTEXT "Fecha Alta", -1, 34, 1, 54, 8 
CTEXT "CIF/NIF", -1, 87, 1, 54, 8 
EDITTEXT 10, 2, 10, 28, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER 
EDITTEXT 20, 39, 10, 48, 12, WS_BORDER | WS_TABSTOP 
EDITTEXT 30, 91, 10, 52, 12, WS_BORDER | WS_TABSTOP 
LTEXT "Nombre, Calle, CP, Poblaci贸n, Provincia", -1, 2, 23, 135, 8 
EDITTEXT 40, 3, 32, 140, 12, WS_BORDER | WS_TABSTOP 
EDITTEXT 50, 3, 43, 140, 12, WS_BORDER | WS_TABSTOP 
EDITTEXT 60, 3, 54, 28, 12, WS_BORDER | WS_TABSTOP 
EDITTEXT 70, 30, 54, 113, 12, WS_BORDER | WS_TABSTOP 
EDITTEXT 80, 3, 65, 140, 12, WS_BORDER | WS_TABSTOP 
CTEXT "Tel茅fono", -1, 2, 78, 41, 8 
EDITTEXT 90, 3, 86, 43, 12, WS_BORDER | WS_TABSTOP 
CTEXT "Fax", -1, 48, 78, 41, 8 
EDITTEXT 100, 50, 86, 43, 12, WS_BORDER | WS_TABSTOP 
CTEXT "Movil", -1, 98, 78, 41, 8 
EDITTEXT 110, 99, 86, 43, 12, WS_BORDER | WS_TABSTOP 
CTEXT "Otros comentarios y notas 70(x)", -1, 3, 100, 135, 8 
EDITTEXT 120, 4, 108, 137, 12, WS_BORDER | WS_TABSTOP 
DEFPUSHBUTTON "Grabar", 130, 4, 127, 50, 14 
DEFPUSHBUTTON "Salir", 140, 91, 127, 50, 14 
}
regards, saludos

Antonio Linares
www.fivetechsoft.com
mjcc
Posts: 139
Joined: Fri Apr 07, 2006 09:16 PM
Ok
Posted: Mon Apr 17, 2006 12:56 PM

Muchas gracias.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions