Re: [Harbour] hbformat, Where is the error?
You are right. Because of this i posted about hbformat integration with xMate formatter features in hbIDE project. The Harbour's universe is very large and a lot of commands and functions could be found in Harbour sources, depending from the used libraries. xMate solves this problem in a very effective fashion allowing high configurability of keywords and formatting styles. Best regards. Maurizio Bruno Luciani wrote: > > Maurizio , I just Try HBformat ina a mix PRG > > Harbour + OOHG ( minigui ) > > and giveme an error on line 38 > > Reformatting factura.prg > <. > Error 3 on line 38 : END BROWSE > > But appears to be reformated ok > > Its posible ? I think that Hbformat reformat ok but not recognizes an > oohg > command > > I am right ? > > Bruno > > > > 2009/11/18 Maurizio la Cecilia > >> No errors in your code. >> > > >> >> The problem is the: >> >> IF ; >> >> This format is not handled by hbformat. >> Avoiding the ; and splitting as usual into multiple lines does the job. >> Anyway, a thing to signal to Alex Kresin. >> Best regards. >> >> Maurizio la Cecilia >> >> >> >> ___ >> Harbour mailing list (attachment size limit: 40KB) >> Harbour@harbour-project.org >> http://lists.harbour-project.org/mailman/listinfo/harbour >> > > ___ > Harbour mailing list (attachment size limit: 40KB) > Harbour@harbour-project.org > http://lists.harbour-project.org/mailman/listinfo/harbour > > -- View this message in context: http://old.nabble.com/hbformat%2C-Where-is-the-error--tp26409889p26413489.html Sent from the Harbour - Dev mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] hbformat, Where is the error?
Maurizio , I just Try HBformat ina a mix PRG Harbour + OOHG ( minigui ) and giveme an error on line 38 Reformatting factura.prg <. Error 3 on line 38 : END BROWSE But appears to be reformated ok Its posible ? I think that Hbformat reformat ok but not recognizes an oohg command I am right ? Bruno 2009/11/18 Maurizio la Cecilia > No errors in your code. > > > The problem is the: > > IF ; > > This format is not handled by hbformat. > Avoiding the ; and splitting as usual into multiple lines does the job. > Anyway, a thing to signal to Alex Kresin. > Best regards. > > Maurizio la Cecilia > > > > ___ > Harbour mailing list (attachment size limit: 40KB) > Harbour@harbour-project.org > http://lists.harbour-project.org/mailman/listinfo/harbour > ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: R: [Harbour] hbformat, Where is the error?
> No errors in your code. > > The problem is the: > > IF ; > > This format is not handled by hbformat. > Avoiding the ; and splitting as usual into multiple lines does the job. > Anyway, a thing to signal to Alex Kresin. BTW, has anyone heard about Alexander lately? Brgds, Viktor ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
R: [Harbour] hbformat, Where is the error?
No errors in your code. The problem is the: IF ; This format is not handled by hbformat. Avoiding the ; and splitting as usual into multiple lines does the job. Anyway, a thing to signal to Alex Kresin. Best regards. Maurizio la Cecilia ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] hbformat, Where is the error?
Hello friends, this piece of code, where is the mistake?
Start Code
procedure main
IF BloqueaDbf(10)
@ 24,0 SAY PADR('Buscando y quitando informaci¢n generada
anteriormente . . .Espere por favor',80) COLOR Color5
IF nTipo#3
DELE FOR Estado='K'; lOk := .T.
ELSE
DBGOTOP()
lOkDiaC := .T. // Se quitaron todas las cabeceras
lOkDiaD := .T. // Se quitaron todos los detalles
DO WHILE !EOF()
IF Estado='K'
SELE DiaD
DBSEEK(DiaC->Num_Compro)
DO WHILE DiaC->Num_Compro==Num_Compro .AND. !EOF()
IF BloqueaReg(10); DBDELETE()
ELSE; lOkDiaD := .F. // No se pudo Bloquear
algun detalle
ENDIF
DBSKIP()
ENDDO
SELE DiaC
IF BloqueaReg(10); DBDELETE()
ELSE; lOkDiaC := .F. // No se pudo Bloquear
alguna Cabecera
ENDIF
ENDIF
DBSKIP()
ENDDO
IF !lOkDiaC; ALERT("No se pudo Bloquear algun documento; Por
seguridad, Debe repetir el proceso "); ENDIF
IF !lOkDiaD; ALERT("No se pudo Bloquear algun item de documento;
Por seguridad, Debe repetir el proceso "); ENDIF
ENDIF
ELSE
ALERT('Proceso Terminado; No se pudo Bloquear '+IF(nTipo=1,'Reg. de
Compras',IF(nTipo=2,'Reg. de Ventas','Arch. de Diario'))+' . . . '); lOk
:= .F.
ENDIF
return
FUNCTION Bloqueareg()
return .t.
FUNCTION Bloqueadbf()
return .t.
End Code
Output HBFormat:
D:\SyS_GVS\Cont\JA>\hrbmingw\bin\hbformat -lFCaseLow=yes depura.prg
Reformatting depura.prg
<
Error 3 on line 20 : ENDDO
Output HBMK2:
D:\SyS_GVS\Cont\JA>\hrbmingw\bin\hbmk2 depura.prg
hbmk2: Processing environment options: -compiler=mingw
Harbour 2.0.0beta3 (Rev. 12923)
Copyright (c) 1999-2009, http://www.harbour-project.org/
Compiling 'depura.prg'...
Lines 41, Functions/Procedures 3
Generating C source output to 'depura.c'... Done.
D:\SyS_GVS\Cont\JA>
. . . and generates EXE
Any help / tip is welcome
TIA
BestRegards
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
