1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

                    Open sFileName as kjour mode DF_EXCLUSIVE
                    Sort KJOUR.File_Number "1"
                    Clear KJOUR
                    Find gt KJOUR by Index.1
                    
                    While (Found)
                        If (KJOUR.AM <> sDate) Begin
                            //Count the amount of money to change the value in the KSYSD.DAT
                            If (KJOUR.WAEHR = sCurrency[0]) Begin
                                If (KJOUR.EA = "E") Move (nAmount[0] + KJOUR.BETRAG) to nAmount[0] 
                                Else Move (nAmount[0] - KJOUR.BETRAG) to nAmount[0]
                            End
                            Else If (KJOUR.WAEHR = sCurrency[1]) Begin
                                If (KJOUR.EA = "E") Move (nAmount[1] + KJOUR.BETRAG) to nAmount[1] 
                                Else Move (nAmount[1] - KJOUR.BETRAG) to nAmount[1]
                            End
                            Else If (KJOUR.WAEHR = sCurrency[2]) Begin
                                If (KJOUR.EA = "E") Move (nAmount[2] + KJOUR.BETRAG) to nAmount[2] 
                                Else Move (nAmount[2] - KJOUR.BETRAG) to nAmount[2]
                            End
                            Else Begin
                                If (KJOUR.EA = sCurrency[3]) Move (nAmount[3] + KJOUR.BETRAG) to nAmount[3] 
                                Else Move (nAmount[3] - KJOUR.BETRAG) to nAmount[3]
                            End
                            
                            Reread
                            Delete KJOUR
                            Unlock
                        End
                        Else Increment iCount2

                        Find gt KJOUR by Index.1
                    Loop
                        
                    Close KJOUR

1:

Lesefehler Indexdatei, neu indizieren