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
