Hej!

När jag skall göra ett disbytutdrag så får jag följande felmeddelande:

"Fel vid läsning eller skrivning
Kod: 131 Orsak: I/O error 131
An attempt was made to move the file pointer before the beginning of the file"

Jag har provat att göra ett utdrag flera ggr utan att lyckas. ca 6 månader

Felmeddelandet kommer även ibland i olika sammanhang vid utskrift av ex stam och antavlor.

Jag använder disgen 8.1 d.

Jag har köpt disgen 8.2 men är tveksam till att installera det med tanke på felen.

Lars-Göran
medlem 7800

Av Karl Edvard Thorén (M04089) Måndagen den 13 juli, 2009 - 12:55:

Hej Lars-Göran!
Du har tydligen något fel i din databas.
Kör kontrollera Disgenfiler under verktyg och låt programmet laga felet.

Av Lars-Göran Nipe Måndagen den 13 juli, 2009 - 15:41:

Hej Karl!

Jag har provat detta många ggr.

"Arkiv Stand flock: 0

Inga skador påträffade.

Kontrollerar relationer, dvs
söker upp och tar bort relationer till individer
som saknas och tar bort dubblerade relationer.

Alla relationer är OK!"


Hälsningar

Lars-Göran

Av Lars-Göran Nipe Måndagen den 13 juli, 2009 - 15:53:

Hej igen!

Glömde tillägga:

Går jag in på utdrag, standard och väljer ex efternamn och ort så går det utmärkt att göra ett utdrag.

Väljer jag ett annat arkiv så går det också bra att göra ett disbytutdrag


Hälsningar
L-G

Av Karl Edvard Thorén (M04089) Måndagen den 13 juli, 2009 - 17:02:

Hej L-G!

Går det bra att ta en säkerhetskopia?

Om Ja så installera 8.2 och läs ner säkerhetskopian där, prova sedan Disbyt utdrag där.

Spara din gamla installation 8.1 tills vidare som en referens.

Av Daniel Berglund (M25564) Måndagen den 13 juli, 2009 - 23:18:

När felmeddelandet kommer upp, har du möjlighet att spara och/eller visa den så kallade buggfilen. Om du då väljer att visa den, så öppnas den i Anteckningar, och där kan du kopiera texten och klistra in den här. Den visar exakt var i programmet felet uppstod.

Av Lars-Göran Nipe Tisdagen den 14 juli, 2009 - 10:02:

Hej!

Nu har jag kopierat buggfilen. Det blev ett långt "fel".

DISGEN felrapport
=================

Datum : 2009-07-14 09:59:40

Version: 8.1d (Win32)
Skapad : 2007-02-24 20:55

Feltext : I/O error 131
Felslag : EInOutError
Förklaring : 131

Senaste felkod från Win32 API (inte alltid relevant)
Felkod : 0
Förklaring : Åtgärden har slutförts.


Medlemsnummer: 7800
Vad som hände: (ingen upplysning)

DISGEN först startad : 2007-01-14
Startad antal gånger : 498
Körd antal minuter : 1746417

Versionen först startad: 2008-04-08
Startad antal gånger : 397
Körd antal minuter : 1202267
Antal fel : 30
Fortsatt efter fel : 11
Avbrutit efter fel : 12

Systeminformation
Windows : Windows NT/2000
Major version: 5
Minor version: 1
Build # : 2600
Version text : Service Pack 2
PixelsPerInch: 96
Screen height: 900
Screen width : 1440
ExeName : C:\Program Files\Dis\Disgen8\Disgen.exe

Delphi heap statistics (TotalAddrSpace grows as needed)
TotalAddrSpace :76546048
TotalUncommitted :884736
TotalCommitted :75661312
TotalAllocated :67142664
TotalFree :5844312
FreeSmall :5834380
FreeBig :0
Unused :9932
Overhead :2674336
HeapErrorCode :0

Windows Memory statistics
Percent of phys memory in use: 34
Bytes of physical memory : 2145890304 (2046.5 MB)
Free physical memory bytes : 1408729088 (1343.5 MB)
Bytes of paging file : 4130242560 (3938.9 MB)
Free bytes of paging file : 3490062336 (3328.4 MB)
User bytes of address space : 2147352576 (2047.9 MB)
Free user bytes : 1983299584 (1891.4 MB)
Page file/Phys mem ratio : 1.92

Senast utförda kommandon
1 kommando: Välj person > TMainForm(MainForm)
2 OK från dialog >> TDiaGetPerson(Välj person)
3 >> TListBox(RecentPersons) = 0
4 >> TListBox(FlockList) = 0
5 >> TSpinEdit(IndividNumber) = 1
6 >> TDisComboBoxWithInd(Aftername) = "nipe"
7 >> TDisComboBoxWithInd(Forename) = ""
8 FÖ#1 aktivt fönster
9 FÖ#1 ny proband 8
10 FÖ#1 Bygg antavla
11 OK från dialog >> TDiaExpAntavlor(Bygg antavla)
12 >> TCheckBox(Unlimited) = 1
13 >> TSpinEdit(MaxGen) = 5
14 >> TRadioGroup(Duplicates) = 1
15 TAV#1 aktivt fönster
16 TAV#1 aktivt fönster
17 TAV#1 Flytta till flkind 8
18 kommando: TAV#1 Skapa söklista med personerna i tavlan > TdxBarButton(???)
19 SÖK#1 aktivt fönster
20 SÖK#1 aktivt fönster
21 SÖK#1 Flytta till person 48665
22 TAV#1 Flytta till flkind 48665
23 FÖ#1 ny proband 48665
24 kommando: SÖK#1 Utöka söklistan > TAction(???)
25 SÖK#1 aktivt fönster
26 kommando: Statistik > TAction(???)
27 OK från dialog >> TDiaStatistics(Statistik)
28 >> TRadioGroup(NameKindRadio) = 3
29 >> TRadioGroup(StatKindRadio) = 0
30 >> TMemo(Explanation) = "Statistik på namn av olika slag.

Välj för vilket slags namn du
önskar
sta"
31 >> TMemo(ExplExtreme) = "Tar fram personer med
ytterlighetsvärden på olika
egenskaper, t.ex. livsläng"
32 >> TRadioGroup(SortOrderRadio) = 0
33 >> TSpinEdit(MaxExtreme) = 30
34 >> TMemo(ExplName) = "Statistik på namn av olika slag.

Välj för vilket slags namn du
önskar
sta"
35 >> TMemo(ExplNotes) = "Statistik över hur många notiser av
olika slag som finns för personer
och gi"
36 >> TMemo(ExplUnrelated) = "Letar upp personer som helt
saknar
referenser till andra personer.
"
37 >> TMemo(ExplPersonData) = "Statistik över personers
levnadsålder, ålder vid giftermål,
antal barn, mm.
"
38 >> TMemo(ExplFlockStat) = "Statistik över antal
personer och familjer per flock.

Beräkningen sker allt"
39 OK från dialog >> TDiaFromWhat(Välj personer som underlag för statistik)
40 >> TListBox(SelectFlock) = 0
41 >> TListBox(Textlist) = -1
42 SÖK#1 aktivt fönster
43 kommando: Utskrift - Granska > TBitBtn(PreviewBtn)
44 OK från dialog >> TDiaPrintIt(Utskrift)
45 >> TRadioGroup(PrintFormatAnTable) = -1
46 >> TRadioGroup(PrintFormatStamTable) = -1
47 >> TDisComboBoxWithInd(HeadingCaption) = ""
48 >> TDisComboBoxWithInd(FootingCaption) = ""
49 >> TSpinEdit(FirstPageNumber) = 1
50 >> TRadioGroup(PrintFormatSeeklist) = -1
51 >> TListBox(PrintWhatListBox) = -1
52 >> TRadioGroup(PrintTo) = 0
53 >> TSpinEdit(FromPage) = 1
54 >> TSpinEdit(ToPage) = 1
55 kommando: Förhandsgranskning Avbryt > TBitBtn(CancelBtn)
56 TAV#1 aktivt fönster
57 TAV#1 Flytta till flkind 49355
58 FÖ#1 ny proband 49355
59 kommando: Visa FÖ > TAction(???)
60 FÖ#1 aktivt fönster
61 TAV#1 Flytta till flkind 49366
62 FÖ#1 ny aktiv 49366
63 FÖ#1 dubbelklick 49366
64 kommando: FÖ#1 Välj till proband > TTarzanForm(TarzanForm)
65 FÖ#1 ny proband 49366
66 TAV#1 Flytta till flkind 49327
67 FÖ#1 ny aktiv 49327
68 FÖ#1 dubbelklick 49327
69 kommando: FÖ#1 Välj till proband > TTarzanForm(TarzanForm)
70 FÖ#1 ny proband 49327
71 TAV#1 Flytta till flkind 49330
72 FÖ#1 ny aktiv 49330
73 FÖ#1 dubbelklick 49330
74 kommando: FÖ#1 Välj till proband > TTarzanForm(TarzanForm)
75 FÖ#1 ny proband 49330
76 TAV#1 Flytta till flkind 49327
77 FÖ#1 ny aktiv 49327
78 FÖ#1 dubbelklick 49327
79 kommando: FÖ#1 Välj till proband > TTarzanForm(TarzanForm)
80 FÖ#1 ny proband 49327
81 TAV#1 Flytta till flkind 49319
82 FÖ#1 ny aktiv 49319
83 FÖ#1 dubbelklick 49319
84 kommando: FÖ#1 Välj till proband > TTarzanForm(TarzanForm)
85 FÖ#1 ny proband 49319
86 TAV#1 Flytta till flkind 49366
87 FÖ#1 ny aktiv 49366
88 FÖ#1 dubbelklick 49366
89 kommando: FÖ#1 Välj till proband > TTarzanForm(TarzanForm)
90 FÖ#1 ny proband 49366
91 TAV#1 Flytta till flkind 47296
92 FÖ#1 ny aktiv 47296
93 FÖ#1 dubbelklick 47296
94 kommando: FÖ#1 Välj till proband > TTarzanForm(TarzanForm)
95 FÖ#1 ny proband 47296
96 FÖ#1 ny aktiv 46668
97 TAV#1 aktivt fönster
98 kommando: Verktyg DISBYT-utdrag > TAction(???)
99 kommando: Utdrag DISGEN-utdrag > TButton(DISBYTBtn)
100 OK från dialog >> TDiaExtract(Utdragsbeskrivning - ny)
101 >> TTabbedNotebook(Notebook) = 3
102 >> TRadioGroup(StdExtract) = 0
103 >> TMemo(ExampleMemo) = "Efternamn Förnamn Levnadsår (Flk:ind)
"
104 >> TMemo(EventReminderMemo) = "I detta utdrag ingår händelsenotiser. Välj under fliken Inställningar vilka
hä"
105 >> TRadioGroup(AppliesTo) = 0
106 >> TCheckBox(Required) = 1
107 >> TListBox(Pool) = -1
108 >> TComboBox(PartsCombo) = "Fri text"
109 >> TEdit(TextEdit) = ""
110 >> TListBox(ExtractList) = -1
111 >> TRadioGroup(Arrange) = 1
112 >> TSpinEdit(GutterMM) = 2
113 >> TSpinEdit(IndentMM) = 5
114 >> TMemo(DisketteMemo) = "Om filen ryms på EN diskett kan du här göra
kopieringen (annars måste något pa"
115 >> TEdit(MemberNum) = "7800"
116 >> TMemo(DISBYTMemo) = "DISBYT-filen är skapad med ovanstående filnamn och
storlek.

Skicka gärna fi"
117 >> TCheckBox(Dead90) = 1
118 >> TCheckBox(DISBYTAlla) = 0
119 OK från dialog >> TDiaFromWhat(Välj personer att göra utdrag från)
120 >> TListBox(SelectFlock) = 0
121 >> TListBox(Textlist) = -1

Antal fönster: 0

Stack trace:
Physical Logical Unit (######) Routine
000B1CEF 000A0CEF ..\common\PFIL.PAS ( 1547) Pfil.obj_Pfil.GetIndexBlock
000B1D43 000A0D43 ..\common\PFIL.PAS ( 1560) Pfil.obj_Pfil.Lookup
000B4230 000A3230 ..\common\PFIL.PAS ( 2625) Pfil.obj_SingleBase.Read
000B52AC 000A42AC ..\common\PFIL.PAS ( 2993) Pfil.GetFullCitationname
000B5528 000A4528 ..\common\PFIL.PAS ( 3024) Pfil.GetFullCitationnameArray
000EC67F 000DB67F ..\common\BASTYP.PAS ( 1080) BasTyp.CitationMakeDisplay
0032F6AC 0031E6AC ..\common\FMT.PAS ( 782) Fmt.TNotis.AdjustSub
0032F9A9 0031E9A9 ..\common\FMT.PAS ( 838) Fmt.TNotis.GetAdjustedSub
0032FA4B 0031EA4B ..\common\FMT.PAS ( 849) Fmt.TNotis.AdjustAll
002B5CB7 002A4CB7 ..\common\DIAXTRAC.PAS ( 1670) Diaxtrac.FixLan
002B5FCA 002A4FCA ..\common\DIAXTRAC.PAS ( 1733) Diaxtrac.Save
002B6248 002A5248 ..\common\DIAXTRAC.PAS ( 1800) Diaxtrac.One
002B65CE 002A55CE ..\common\DIAXTRAC.PAS ( 1985) Diaxtrac.TDiaExtract.DISBYTBtnClick
0004C91C 0003B91C Controls.TControl.Click
00043EBD 00032EBD StdCtrls.TButtonControl.WndProc
0004F378 0003E378 Controls.DoControlMsg
0004EE4B 0003DE4B Controls.TWinControl.MainWndProc
00061F46 00050F46 Forms.StdWndProc
0004F323 0003E323 Controls.TWinControl.DefaultHandler
00043EBD 00032EBD StdCtrls.TButtonControl.WndProc
00061F46 00050F46 Forms.StdWndProc
0006AA28 00059A28 Forms.TApplication.ProcessMessage
002B9678 002A8678 ..\common\DIAXTRAC.PAS ( 2844) Diaxtrac.TDiaExtract.ShowmodalMod
002F2BF8 002E1BF8 ..\common\MAIN.PAS ( 3113) Main.TMainForm.ActionDISBYTExecute
0002E3D6 0001D3D6 Classes.TBasicAction.Execute
000E0C44 000CFC44 dxBar.TdxBarItemControl.ControlUnclick
000E21CE 000D11CE dxBar.TdxBarButtonControl.ControlUnclick
0004C788 0003B788 Controls.TControl.WndProc
000D4ADF 000C3ADF dxBar.TCustomdxBarControl.WndProc
0004EE4B 0003DE4B Controls.TWinControl.MainWndProc
00061F46 00050F46 Forms.StdWndProc
0006AA28 00059A28 Forms.TApplication.ProcessMessage
00336A6C 00325A6C I:\8.1d\product\Disgen.dpr ( 294) Disgen.Disgen


Hälsningar

L-G

Av Daniel Berglund (M25564) Tisdagen den 14 juli, 2009 - 22:23:

Hmm.. det är något fel på en av filerna som innehåller källorna. Frågan är hur man går runt det.

En variant är att installera 8.2. Då får man en ny datamapp och i den läser man in en säkerhetskopia från 8.1. Har vi lite tur klarar Disgen av att läsa källdatabasen och det löser i så fall förhoppningsvis problemet. Det är i alla fall ofarligt, åtminstone så länge som du har en färsk och bra säkerhetskopia från 8.1!

Av Lars-Göran Nipe Onsdagen den 15 juli, 2009 - 09:40:

Hej!

Jag har installerat disgen 8.2 och problemet verkar ha löst sig.

Tack för hjälpen

Lars-Göran