Ïîìîãèòå ðåøèòü âîïðîñ

[Òàíþøêà]

Âîïðîñ ðàçðàáîò÷èêàì.

Çàâèñàíèå êîìïüþòåðà ïðè ââîäå íîâîé ñ÷åò-ôàêòóðû íà îñíîâàíèè íàêëàäíîé
ïî ALT-F. Ïðè ïðåðûâàíèè ïðîãðàììû Êë. CTRL-ALT-DEL ïîÿâëÿåòñÿ error.log
ñëåäóþùåãî ñîäåðæàíèÿ:

******************************* Error log file ********************************



Date ............: 20/07/07
Time ............: 09:06:02
Available Memory : 340412

-------------------------- Environmental Information --------------------------

Exact is ........: Off
Fixed is ........: On
Decimals is at ..: 5
Date Format is ..: dd/mm/yy
Epoch is ........: 1920
Path is .........: z:\work\b4_plus\dbase\SCLAD\;z:\work\b4_plus\dbase\;z:\work\b4_plus\dbase\REAL\;z:\work\b4_plus\dbase\SCLAD\KASSA\;z:\work\b4_plus\dbase\TOVAR\
Default is ......:
Exclusive is ....: On
SoftSeek is .....: Off
Unique is .......: Off
Deleted is ......: On
Cancel is .......: On
Debug is ........: True
Color is ........: N/BG,W+/N,N/N,N/N,W+/N
Cursor is .......: 0
Console is ......: On
Alternate is ....: Off
AltFile is ......:
Device is .......: SCREEN
Printer is ......: False
PrintFile is ....: PRN
Margin is .......: 0
Bell is .........: Off
Confirm is ......: On
Escape is .......: On
Insert is .......: Off
Intensity is ....: On
Scoreboard is ...: Off
Delimeters is ...: Off
Delimchars em ...: ::
Wrap is .........: On
Message is ......: 24
MCenter is ......: On

===========================Detailed Work Area Items============================


++++++++++++++++++++ Internal Error Handling Information +++++++++++++++++++++

Subsystem Call ..: DBFCDX
System Code .....: 1201
Default Status ..: True
Description .....: Ôàéë íå èíäåêñèðîâàí
Operation .......:
Arguments .......:
Involved File ...:
Dos Error Code ..: 0

Trace Through:
----------------
DBSEEK : 0 in Module:
RESTPAR : 46 in Module: rest_par.prg
OPENSHFACTBASE : 1,761 in Module: sh_util.prg
ADDSHFACT : 339 in Module: sh_util.prg
(b)DOC : 989 in Module: s_doc.prg
INITLIST : 710 in Module: s_lib.prg
DOC : 1,319 in Module: s_doc.prg
(b)QMENU : 396 in Module:
QMENU : 396 in Module: creamenu.prg
MYRUN : 505 in Module: g_util.prg
MAIN : 22 in Module: s_main.prg


############################## Video Screen Dump ##############################

+--------------------------------------------------------------------------------+
|║ 20/07/07 A 5312/5 Õèñëàâè÷è 19313.14 5312/5 ║|
|║ 20/07/07 A 5409/5 Õîëì-Æèðêîâñêîå 2099.59 5409/5 ║|
|║ 20/07/07 A 5419/5 ÑÎÀÎ "ÁÀÕÓÑ" 10497.95 ║|
|║ 20/07/07 A 5508/5 Ðîñëàâëüñêîå 4838.39 5508/5 ║|
|║ 20/07/07 A 5511/5 Ìîíàñòûðùèíà 1918.40 5511/5 ║|

|╟─ ─────────────────────────────────────────────╢|
|║ ║|
|╚══════════════════════════════════════════════════════════════════════════════╝|
| Ins:Îòìåòêà Alt-A:Êîììåíò ÎÏËÀÒÀ: <+>:Ââîä <*>:Ïîëíàÿ Ïðîáåë:Âèä F10:Ñïðàâêà |
| ┘:Ïðàâ F4:Ââîä F3:Ñîðò F5:Çàìåíà F6,Alt-F12:Ôëòð F7,Alt-F7:Ïîèñê F8:Óäàë F9:Ïå÷|
|Error DBFCDX/1201 Ôàéë íå èíäåêñèðîâàí |
| |
|Error at ...: DBSEEK(0) in Module: |
|Called from : RESTPAR(46) in Module: rest_par.prg |
|Called from : OPENSHFACTBASE(1761) in Module: sh_util.prg |
|Called from : ADDSHFACT(339) in Module: sh_util.prg |
|Called from : (b)DOC(989) in Module: s_doc.prg |
|Called from : INITLIST(710) in Module: s_lib.prg |
|Called from : DOC(1319) in Module: s_doc.prg |
|Called from : (b)QMENU(396) in Module: |
|Called from : QMENU(396) in Module: creamenu.prg |
|Called from : MYRUN(505) in Module: g_util.prg |
|Called from : MAIN(22) in Module: s_main.prg |
+--------------------------------------------------------------------------------+

[nordk]

Âàì íóæíî ñäåëàòü âîññòàíîâëåíèå èíäåêñî

[Òàíþøêà]

Êîíñòàíòèí!
Ìíå êàæåòñÿ, ÷òî èíäåêñû íàðóøàþòñÿ èç-çà ïëàãèíà.
Âñå ëè çäåñü ïðàâèëüíî, õîòÿ ðàáîòàåò âðîäå êîððêòíî ?
Åñòü ëè çäåñü êàêèå îøèáêè?

//îïðåäåëåíèå ìàññèâà:
FUNCTION main()
Private resalias,aSetmin,aKeymin
resalias:=alias()
aSetmin:=Saveset()
aKeymin:=Savesetkey()

Private t,i,cDir,aVars,uVars
uVars := ARRAY(5)
aVars:=AFill(ARRAY(500),0)
if nNumber=1
public dat
dat:= DIALOG("Ïåðåâåñòè äîê-ò(û) íà äàòó",,DATE())
endif
DBPUSH()
cDir := LoadPath()

NetUse("UMAIN",cDir+"MAIN.dbf")
//UMAIN->(ordsetfocus("TAG_NNOPER"))
cDir := LoadPath()+"Real\"
NetUse("UBOOK",cDir+"BOOK.dbf")
NetUse("SH_FAC",cDir+"SH_FACT.dbf")
DBPOP()
DBPUSH("MDOCM","MDOCM","",{"UPPER(Sclad+Vid+Type+Codedoc+NumDoc+DTOS(date))",MDOC->(UPPER(Sclad+Vid+Type+Codedoc+NumDoc+DTOS(date)))})
i:= 1
//îïðåäåëåíèå ìàññèâà:
t:=AFill(ARRAY(500),0)
uVars[1]:= MDOC->(Oper_fact)
uVars[2]:= MDOCM->(Oper_fact)
DO WHILE MDOCM->(!EOF())
t[i]:=MDOCM->(recno())
MDOCM->(DBskip())
i:= i+1
ENDDO
uVars[3]:= i-1
i:= 1
DO WHILE i<=uVars[3]
uVars[4]:= t[i]
MDOCM->(DBgoto(uVars[4]))
MDOCM->(Reclock())
MDOCM->DATE:=dat
MDOCM->(F_DBUNLOCK())
i:= i+1
ENDDO
MDOC->(Reclock())
MDOC->DATE:=dat
MDOC->(F_DBUNLOCK())
DBPOP()
if uVars[1]=0
DBPUSH()
NetUse("SH_O",cDir+"SH_OP.dbf")
DBPOP()
DBPUSH("SH_O","TAG_OPER","",{"NNOPER",uVars[2]})
uVars[1]:= SH_O->NNOPER_
SH_O->(dbClosearea())
DBPOP()
endif
DBPUSH("SH_FAC","TAG_OPER","",{"NNOPER",uVars[1]})
uVars[5]:= SH_FAC->NNOPER
SH_FAC->(Reclock())
SH_FAC->TEK_DATA:=dat
SH_FAC->(F_DBUNLOCK())
SH_FAC->(dbClosearea())
DBPOP()
//dbClosebase("SH_FAC.DBF")

DBPUSH("UBOOK","TAG_FACT","",{"STR(OPER_FACT,17,0)",(STR(uVars[5],17,0))})
UBOOK->(Reclock())
UBOOK->TEK_DATA:=dat
UBOOK->(F_DBUNLOCK())
UBOOK->(dbClosearea())
DBPOP()
DBPUSH("UMAIN","TAG_NNOPER","",{"NNOPER",MDOC->(PRO)})
DO WHILE UMAIN->(!EOF())
UMAIN->(Reclock())
UMAIN->DATAOPER:=dat
UMAIN->(F_DBUNLOCK())
UMAIN->(DBskip())
ENDDO
UMAIN->(dbClosearea())
DBPOP()
select:=(resalias)
Restset:=(aSetmin)
Restsetkey:=(aKeymin)
return NIL

[nordk]

Âîîáùå-òî ñóäÿ ïî ëîãó ðàçðåøí áûë èíäåêñ ó ôàéëà stru.dbf
Îí ó âàñ â ïðîãðàììå íèêàê íå çàäåéñòâîâàí...
Òàê ÷òî òóò ñêîðåå âñåãî ÷òî-òî ñèñòåìíîå.
Äà è ïîòîì êàê ïëàãèí ìîæåò èíäåêñû ïîâðåäèòü ?
Ïðèâåäèòå ïðèìåð ?
Ýòî åñëè òîëüêî âî âðåìÿ ðàáîòû ïðèíóäèòåëüíî ÁÝÑÒ çàêðûâàåò
êòî-òî èëè ñèñòåìíàÿ îøèáêà âûñêàêèâàåò è îí â îñíîâíîå ìåíþ
âîçâðàùàåò ïðîãðàììó

[Òàíþøêà]

Ñïàñèáî,Êîíñòàíòèí!
Âîò òîëüêî ãäå èñêàòü ýòó ñèñòåìíóþ îøèáê

[nordk]

ß áû íà÷àë ñ îðãàíèçàöèè ñåòè