sino, esc enter en alert harbour text

29/03/2010

Se estructuro todos los mensajes que hacian la pregunta si/no en una
sola clausula para que el tratamiento grafico a futuro sea mas facil
de igual forma se planea hacer con dos tipos de mensajes que cumplen
con esta estructura los ENTER y los ESCAPE o sea aquellos mensaje que
emplian contestaciones del usuario y acciones que pueden ser predefinidas
tambien se tiene planeado encapsular el "indexando" e "imprimiendo"
que estan dispersos por muchas partes del programa[*]

ejemplo del procedimiento sino.prg
******************************************************************
procedure sino
parameters textTmp,CaptionTmp,SN

if len(CaptionTmp) = 0
store space(01) to CaptionTmp
endif

SN = alert(textTmp,{"Si","No"},"W+/BG,W+/R", )

do case
case SN == 0 && [ESC] fue presionada
store "N" to SN
case SN == 1 && [Si] fue presionada
store "S" to SN
case SN == 2 && [No] fue presionada
store "N" to SN
endcase

return

*******************************************************
ejemplo de uso
do SiNo with "Muestra Saldo Anterior? ","Balance",SN

parametros:
1. Mensaje de texto en pantalla : "Muestra Saldo Anterior? "
2. Aplicacion que invoca el peroceso : "Balance"
3. Variable que guarda el valor presionado : SN
*******************************************************

Durante la depuracion de estas rutinas note que el sisma mostraba
error en las instrucciones que iniciaban con LOCAL, el error consiste
en que la declaracion de las variables debe ser hecha despues del
procedure o cuando menos antes de cualquier instruccion ejecutable
dentro del procedimiento asi por ejemplo:

*************************************************
* Llamado Desde Movimi.prg *
*************************************************
parameters scrol_co
Parameters Centro_Aux

LOCAL COND1:= 1
LOCAL aOpcion:= array(2)

save screen to S_Cost
private Registro

select COSTOS

-----------------------------------------------------------------------

Tambien se noto que la instruciones como botones y radio botones que
que FlagShip maneja con llaves , xharbour las maneja con parentesis
asi:
FlagShip
aOpcion[2] := RadioButton{Y(20),X(57),"Codigo"}
Xharbour
aOpcion[2] := RadioButton(Y(20),X(57),"Codigo")

El comando ToolTip dentro del @ GET list , lo cambie por CAPTION desde
luego no son lo mismo pero cuando del cielo te caen limones aprendes
hacer limonada, asi me esta trbajando bastante bien.

Como me ha servido el comando:
harbour -D__EXPORT__ -m -n0 -go fName.prg

Detecto los errores al vuelo sin necesidad de compilar todo el
codigo solo el modulo que estoy trabajando, rinde que da miedo.