flagship no detecta errores en case ..otherwise harbour si

04/04/2010

Encontre otro error que FlagShip no detecta, cuando se tiene una
estructura CASE ... OTHERWISE , despues del OTHERWISE permite
colocar instrucciones y no marca error, no se como funciona, pero
aparentemente lo ignara pues las operciones las hace bien.

ejemplo del error: (observar el otherwise MOVIMIENTO ->FECHA = Fecha_D)

do case
case MOVIMIENTO ->FECHA < Fecha_D if MOVIMIENTO->DEBITOCRED = "D"
store Mvt_T_D + MOVIMIENTO->VALOR to Mvt_T_D
else
store Mvt_T_C + MOVIMIENTO->VALOR to Mvt_T_C
endif
otherwise MOVIMIENTO ->FECHA = Fecha_D
if MOVIMIENTO->DEBITOCRED = "D"
store Mvt_D + MOVIMIENTO->VALOR to Mvt_D
else
store Mvt_C + MOVIMIENTO->VALOR to Mvt_C
endif
endcase

Se ajusto la definicion de los arreglos que se invocan desde los scrol
para que fueran private en lugar de LOCAL, esto debido a que los
scrol necesitan definir el reccount() , para almacenar los datos a
mostrar en la pantalla, el LOCAL en xharbour no permite que se
ejecute ninguna accion antes de la definicion mientras que el private si.


LOCAL items[reccount()]
LOCAL Ritems[reccount()]

se cambio por :

private items[reccount()]
private Ritems[reccount()]


Miercoles, recuerdan el desgaste tan bravo, con un guion para cambiar
los nombres de los archivos de mayusculas a miniusculas del dia
21/03/2009 , y todas las combinaciones posibles, pues no busque muy
bien, claro que en ese entonces no tenia acceso al manual de
xharbour/xhdn, ya encontre la
solucion un simple:

SET DIRCASE LOWER
SET FILECASE LOWER

hubiera bastado, ahora de pica, no lo coloco, para obligarme a
escribir bien los archivos, no sea que en futuro cambien las cosas y
me obliguen a cambiarlas cuando menos me lo espero, total ya esta
cambiado.

Recuerden salvar lo que hacen,
Recuerden salvar lo que hacen,
Recuerden salvar lo que hacen,
.
.
.Recuerden salvar lo que hacen,
Los que programamos nos da una pereza documentar y hacer copias de
seguridad, estoy instalando el CVS, para tener el control de versiones
y esta bitacora.
La copia la hago externa.

hago copia con el comando por ejemplo.

tar zcvfPp /home/oficyna/ksos04.tgz /home/ksos/conta
chmod ugo+wrx /home/oficyna/ksos.tgz

con Filezilla lo exporto a otro computador no sea que se me pierda el
trabajo que tanto esfuerzo me esta costando.
con chmod lo hago visible desde el usuario que lo va a copiar.