Antonio Linares wrote:De esa manera, intentan separar el "interface" del "código". Aun así, la sincronización "recurso" y "código" es fundamental, ó un simple cambio de nombre de variable (DATA) en el código, puede romper la aplicación.
<FORM>
</NAME:TIPOIVA>
</NTOP:6>
</NLEFT:18>
</NHEIGHT:212>
</NWIDTH:140>
</STYLE: WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE >
</CAPTION: "Tipos de IVA" >
<CONTROLS>
<STATIC>
</NAME: oSayCodigo >
</TEXT:"Código">
</STYLE: WS_GROUP>
</NTOP:10>
</NLEFT:12>
</NHEIGHT:8>
</NWIDTH:44>
</STATIC>
<STATIC>
</NAME: oSayDescrip >
</TEXT:"Descripción">
</STYLE: WS_GROUP>
</NTOP:25>
</NLEFT:12>
</NHEIGHT:8>
</NWIDTH:44>
</STATIC>
<TGET>
</NAME:oGetTipo>
</VAR:TIPO>
</INIT: 0 >
</PICTURE:"99">
</STYLE: ES_RIGHT|WS_BORDER|WS_TABSTOP>
</NTOP:8>
</NLEFT:68>
</NHEIGHT:12>
</NWIDTH:36>
</VALID:ValidaTipo>
</TGET>
<TGET>
</NAME:oGetDescrip>
</VAR:DESCRIP>
</INIT: " " >
</STYLE: WS_BORDER|WS_TABSTOP>
</NTOP:23>
</NLEFT:68>
</NHEIGHT:12>
</NWIDTH:132>
</VALID:ValidaDescrip>
</TGET>
<TBUTTON>
</NAME:oBtnAceptar>
</TEXT:"&Aceptar">
</NTOP:117>
</NLEFT:101>
</NHEIGHT:15>
</NWIDTH:45>
</ACTION:Aceptar>
</TBUTTON>
<TBUTTON>
</NAME:oBtnCancel>
</TEXT:"&Cancelar">
</NTOP:154>
</NLEFT:101>
</NHEIGHT:15>
</NWIDTH:45>
</ACTION:Cancel>
</TBUTTON>
</CONTROLS>
</FORM>
CLASS _TIPOIVA // FROM ¿TFORM?
DATA Form
DATA oSayCodigo
DATA oSayDescrip
DATA oGetCodigo
DATA TIPO
DATA oGetDescrip
DATA DESCRIP
DATA oBtnAceptar
DATA oBtnCancel
METHOD New()
METHOD ValidaTipo() VIRTUAL // Valida un control
METHOD ValidaDescrip() VIRTUAL // Valida otro control
METHOD Aceptar() VIRTUAL // Accion asociada a un boton
METHOD Cancel() VIRTUAL // idem
END CLASS
METHOD New() CLASS _TIPOIVA
/*
</NTOP:6>
</NLEFT:18>
</NHEIGHT:212>
</NWIDTH:140>
</STYLE: WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE >
</CAPTION: "Tipos de IVA" >
*/
@ 6, 18 DIALOG ::Form SIZE 140, 212 CAPTION "Tipos de IVA" STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
/*
<STATIC>
</NAME: oSayCodigo >
</TEXT:"Código">
</STYLE: WS_GROUP>
</NTOP:10>
</NLEFT:12>
</NHEIGHT:8>
</NWIDTH:44>
</STATIC>
*/
@ 10, 12 SAY ::oSayCodigo PROMPT "Código" ...
.... más controles
/*
<TGET>
</NAME:oGetTipo>
</VAR:TIPO>
</INIT: 0 >
</PICTURE:"99">
</STYLE: ES_RIGHT|WS_BORDER|WS_TABSTOP>
</NTOP:8>
</NLEFT:68>
</NHEIGHT:12>
</NWIDTH:36>
</VALID:ValidaTipo>
</TGET>
*/
@ 8, 68 GET ::oGetTipo VAR ::TIPO PICTURE "99" STYLE ES_RIGHT|WS_BORDER|WS_TABSTOP VALID ::ValidaTipo()
... mas controles
/*
<TBUTTON>
</NAME:oBtnAceptar>
</TEXT:"&Aceptar">
</NTOP:117>
</NLEFT:101>
</NHEIGHT:15>
</NWIDTH:45>
</ACTION:Aceptar>
</TBUTTON>
*/
@ 117, 101 BUTTON ::oBtnAceptar SIZE 45, 15 ACTION ::Aceptar()
RETURN Self
CLASS TIPOIVA FROM _TIPOIVA
METHOD ValidaTipo()
METHOD ValidaDescrip()
METHOD Aceptar()
METHOD Cancel()
ENDCLASS
METHOD ValidaTipo() CLASS TIPOIVA
RETURN .T.
METHOD ValidaDescrip() CLASS TIPOIVA
RETURN .T.
METHOD Aceptar() CLASS TIPOIVA
RETURN NIL
METHOD Cancel() CLASS TIPOIVA
RETURN NIL
mmercado wrote:Como mencionaba en alguna pregunta en el foro inglés, yo uso actualmente Visual FiveWin de manera intensiva en el diseño primario de mis formularios y ya me resulta de una gran utiliidad por el gran ahorro de tiempo en el diseño y en una buena parte del tecleo de mis prgs.
Hola Carles:Carles wrote:No puedo bajar el codigo fuente desde http://www.box.net/shared/x6ysuaxc8c . Hay algun problema ?
Carles wrote:Hola Antonio -> Seria bueno q coordinases junto a Manuel las bases y arrancar esta propuesta...
Muchos de nosotros somos el enamorado infiel del fivewin, ya que sin dejar de lado al fivewin siempre hemos tenido el ojo en esos programas que parece que te lo hacen todo, pero no nos acaban de convencer y siempre volvemos al fivewin puesto que nos sentimos comodos con ese entorno aunque reudimentario pero eficiente y que hemos visto crecer por nuestras exigencias y recomendaciones.
Hola Andrés:Andrés González wrote:Sr. Mercado, despues de un mes un poquito complicado con mis examenes de la universidad por fin tengo un rato para meterme en el foro y ver una de esas maravillas que estoy acostumbrado a ver en sus publicaciones. Hoy lo he instalado y veo que no me deja pasar del inicio puesto que me sale el mensaje "Sorry, can create Debug file", que problema tengo, que es lo que tengo que hacer para poderlo solucionar?
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 53 guests