Alguien puede ayudarme

[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.

[Antonio Linares]

Manuel,

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

[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.

[Antonio Linares]

Manuel,

Envíame todo en un ZIP por email.

[mjcc]

Dime el email a donde te lo envio.

[Antonio Linares]

alinares@fivetechsoft.com

[mjcc]

Lo tienes en tu correo.

[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:

[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.

[Antonio Linares]

Hace falta "inicio.rh"

[mjcc]

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

[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
}

[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 
}

[mjcc]

Muchas gracias.