by Mayor_Valenzuela » Fri Sep 12, 2008 4:28 pm
Ahora se genera un error de ejecucion. con la version anterior no tenia problemas, funcionaba bien...
Select(oDbf[2]:cAlias)
oDbf[2]:GoBottom()
Until:=(oDbf[2]:cAlias)->Indice
aSelect := {}
For I = 1 To Until
Set Filter To Indice = I
Index On Substr(N_Pedido,8,5)+SubStr(N_Pedido,5,2) To Pedd031
oDbf[2]:GoTop()
While !Eof()
Aadd(aSelect, { FieldGet(1), FieldGet(2), FieldGet(3), FieldGet(4) } )
If !Eof()
Skip
Else
Exit
EndIf
End While
Next
Application
===========
Path and name: H:\HYTSYS32\HytSys32.exe (32 bits)
Size: 2,300,416 bytes
Time from start: 0 hours 0 mins 39 secs
Error occurred at: 12/09/2008, 11:52:15
Error description: (DOS Error 32) DBFNTX/1006 Create error: Pedd031.ntx
Stack Calls
===========
Called from: => ORDCREATE(0)
Called from: source\rdd\rddord.prg => DBCREATEINDEX(59)
Called from: .\SOURCE\GENEPED.PRG => AGREMOD(282)
Called from: .\SOURCE\GENEPED.PRG => (b)ADDPED(179)
Called from: => TBUTTON:CLICK(0)
Called from: => TBUTTON:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => SENDMESSAGE(0)
Called from: => TDIALOG:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOX(0)
Called from: => TDIALOG:ACTIVATE(0)
Called from: .\SOURCE\GENEPED.PRG => ADDPED(183)
Called from: .\SOURCE\GENEPED.PRG => (b)SETBTNBAR(156)
Called from: => TSBUTTON:LBUTTONDOWN(1252)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TCONTROL:HANDLEEVENT(0)
Called from: => TSBUTTON:HANDLEEVENT(1152)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: => TMDIFRAME:ACTIVATE(0)
Called from: .\SOURCE\HYTSYS.PRG => MAIN(60)