In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
EndIf
OrdSetFocus( cOrder )
dBGoto( nRecNo ) // Vuelvo al registro correcto
RETURN NIL
#include 'report.ch'
//------------------------------------------------------------------------------
Function CuentasImprime()
LOCAL oReport
LOCAL oFont1, oFont2, oFont3, oPen1
LOCAL nRec:= Recno()
DEFINE FONT oFont1 NAME
¿A que puede deberse? ¿Que significa el error 1 en el formateo de codigo?
El formateador de código no reconoce ENDFOR como cierre de la estructura FOR/ENDFOR. Debe usarse si o si NEXT pare cerrar el bucle.
Además no reporta el error de estructura hasta que no encuentra otra definicion de funcion, por lo que no da pistas de cual es el problema.
Ojalá se pueda añadir para la próxima versión.
Es cierto, mucho tiempo sin hablar, pero siempre ando cerca
No sabia que el formateo de código era una función de Harbour, siempre me voy enterando de nuevas cosas que no se que están ahí, es dificil seguirles el paso.
Por cierto, para los dos, habeis visto esto http://astyle.sourceforge.net/
es un formateador para lenguaje C buenísimo que esta integrado en varios editores de codigo C (symwrite, cudatext o falcon c), sería marvilloso que estubiera incluido en XEdit. De momento yo lo tengo integrado en Xedit como una "Herramienta externa" y va de fábula