FiveTech Software tech support forums

by **mjcc** » Sat Apr 15, 2006 7: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.

by **Antonio Linares** » Sat Apr 15, 2006 7:23 pm

Manuel,

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

by **mjcc** » Sat Apr 15, 2006 7: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.

by **Antonio Linares** » Sat Apr 15, 2006 7:27 pm

Manuel,

Envíame todo en un ZIP por email.

by **mjcc** » Sat Apr 15, 2006 7:29 pm

Dime el email a donde te lo envio.

by **Antonio Linares** » Sat Apr 15, 2006 7:30 pm

alinares@fivetechsoft.com

by **mjcc** » Sat Apr 15, 2006 7:35 pm

Lo tienes en tu correo.

by **Antonio Linares** » Sat Apr 15, 2006 11:37 pm

Manuel,

Funciona correctamente. Solo tienes que cambiar el fichero RC de esta forma:

Code: Select all Expand view: #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:

by **mjcc** » Sun Apr 16, 2006 5: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.

by **Antonio Linares** » Sun Apr 16, 2006 6:08 pm

Hace falta "inicio.rh"

by **mjcc** » Sun Apr 16, 2006 6:10 pm

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

by **mjcc** » Sun Apr 16, 2006 7: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
}

by **Antonio Linares** » Mon Apr 17, 2006 12:53 pm

Manuel,

Code: Select all Expand view: 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 Expand view: #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 }

by **mjcc** » Mon Apr 17, 2006 12:56 pm

Muchas gracias.

FiveTech Software tech support forums

Alguien puede ayudarme

Alguien puede ayudarme

ok

OK. Dime el email a donde te lo envio.

Lo tienes en tu correo.

OK. Todo perfecto, muchas gracias

No esta totalmente vacio, no tiene nada

Ayudame con el siguiente codigo del fichero RC

Ok

Who is online