Page 1 of 1
Alguien puede ayudarme
Posted: Sat Apr 15, 2006 7:21 pm
by mjcc
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.
Posted: Sat Apr 15, 2006 7:23 pm
by Antonio Linares
Manuel,
Es el mismo fichero RC que has publicado en otro mensaje ?
ok
Posted: Sat Apr 15, 2006 7:25 pm
by mjcc
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.
Posted: Sat Apr 15, 2006 7:27 pm
by Antonio Linares
Manuel,
Envíame todo en un ZIP por email.
OK. Dime el email a donde te lo envio.
Posted: Sat Apr 15, 2006 7:29 pm
by mjcc
Dime el email a donde te lo envio.
Posted: Sat Apr 15, 2006 7:30 pm
by Antonio Linares
Lo tienes en tu correo.
Posted: Sat Apr 15, 2006 7:35 pm
by mjcc
Lo tienes en tu correo.
Posted: Sat Apr 15, 2006 11:37 pm
by Antonio Linares
Manuel,
Funciona correctamente. Solo tienes que cambiar el fichero RC de esta forma:
Code: Select all
#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:
OK. Todo perfecto, muchas gracias
Posted: Sun Apr 16, 2006 5:27 pm
by mjcc
Otra pregunta mas por favor, tendo la ventana diseñada, pero ahora necesito asignarle a cada uno de _ 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.
Posted: Sun Apr 16, 2006 6:08 pm
by Antonio Linares
Hace falta "inicio.rh"
No esta totalmente vacio, no tiene nada
Posted: Sun Apr 16, 2006 6:10 pm
by mjcc
Lo que pasa es que el editor de pantalla, lo incluye y lo he dejado.
Ayudame con el siguiente codigo del fichero RC
Posted: Sun Apr 16, 2006 7:20 pm
by mjcc
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
}
Posted: Mon Apr 17, 2006 12:53 pm
by Antonio Linares
Manuel,
Code: Select all
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
#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
}
Ok
Posted: Mon Apr 17, 2006 12:56 pm
by mjcc
Muchas gracias.