$CONTROL LINES=62 << 9401301294 cp [ Steuer 15 % ] >> << 9501210895 cp [ Text ergaentzt ] >> << 9501061195 cp [ STEUER im KASKO ] >> << Version: 9702101097 ph [ Jahrtausendwechsel: Z2000 ] >> BEGIN DATA BASE KHDB; << TEXT IN "KHTX" >> << COPYRIGHT O.C.S. GmbH (1991 - 2001) >> << All rights reserved. >> PASSWORDS: 1 CHEF; ITEMS: ABLAUF, L; ABRKZ, I; ABRUT, L; ABTIME, I; ACTG, S; ANBETR, L; ANETT, L; ANSCHRIFT, I; ANSPRECH, X30; ANTEIL, S; ARA, I; ASPESEN, L; BEDTEXT, 2X70; BEGINN, L; BEGTIME, I; BETEILIG, I; BETNR, I; BETPNR, I; BETWAEHR, I; BGSNR, L; BPNR, I; BPOL, X14; BPRES1, L; BPRES2, X10; BRES1, L; BUCHKZ, I; BUJAHRMON, I; COURT, S; COURTAGE, L; COURTKZ, I; CTG, S; DIFFKTO, S; DMPROV, 3L; DNRECH, L; DRUCK, I; FAELLIG, L; FGSNR, L; FIRNR, I; FKUNDE, L; FLOTTE, I; FLPRAE, L; FOLGERECH, L; FRANCHISE, L; FVSUMME, L; GBRUT, L; GCBET, L; GEBUEHR, L; GEKUENDIGT, L; GESPRAE, 4L; GESRAB, 4L; GNETT, L; GSUMKZ, I; INKART, I; JAHR, I; KDRAB, S; KDKEY, X20; KONTROLLE, X18; KZDRU, I; KZ205, I; MARKT, I; MAXBET, L; MITARB, L; NETTBET, 3L; NETTO, L; NUMM, 2S; PNR, I; POSZ, I; PPKZ, 3I; PPROV, 3S; PRAE, L; PRAEBET, L; PREMBET, L; PREMIUM, L; PRES1, L; PRES2, X18; PTXTNR, X28; PTXTZ, X78; RABATT, S; RABDM, L; RATE, I; RATENTAG, 4L; RBET, 4L; RBSPES, L; RCKZ, I; RDAT, L; RDRUKZ, I; REBETR, L; REBETRAG, L; RECHART, I; RECHDAT, L; REINT, L; RENR, L; RESI, I; RESL, L; RESS, S; REST, L; RESX10, X10; RFNR, L; RFT, X40; RJAHR, I; RKURS, L; RN0, 4L; RN2, 4L; RN5, 4L; RNETT, 4L; RPNR, L; RPOS, I; RSPARTE, I; RSTEUDM, 2L; RSTEUDM1, L; RSTEUER, I; RSTEUERDM, L; RTNR, L; RTEXT, X50; RVAB, L; RVBIS, L; RWAEHR, I; SCHADEN, L; SCHIFF, X40; SCHIFFLEIN, X36; SCHIFFN, X40; SICHDM, L; SICHKZ, I; SICHTEXT, X30; SKUNDE, S; SPARTE, I; SPESEN, L; SPRACHE, I; SRESERVE, S; STATUS, I; STEUER, I; STEUERKZ, I; UAN, S; UBETNR, I; UBETKZ, I; UEBKZ, I; UPRAE, L; UZB, I; UZV, I; VABRSUM, L; VBEZAHLT, I; VERMITTLER, 3I; VERSAB, L; VERSBIS, L; VERSICHERER, L; VPRAEBET, L; VRABDM, L; VRKEY, X30; VRPRAE, 32L; VRRAB, S; VRRABATT, 32L; VSNR, X20; VSNRJ, X20; VST2, 4L; VST5, 4L; VSUM, L; VSUMME, L; VTAGE, S; WAEHRUNG, I; ZAHLW, I; ZUFASS, I; $PAGE SETS: NAME: APOL,A(0/0); ENTRY:VSNR(7); << X20 Policen-Nr. (ohne Jahrgang + 8 Leerst.) >> << Verknuepfung zu: KASKO / FLOTTE / RECHK >> << RECHK2 / RECHNUNG / STATKD / STATVR >> CAPACITY: 801; << CAP: APOL >> NAME: APOLIC,A(0/0); ENTRY:VSNRJ(4); << X20 Policen-Nr. (incl. Jahrgang + 6 Leerst.)>> << Verknuepfung zu: BETKO / BETPO / STATKD >> CAPACITY: 2001; << CAP: APOLIC / STATVR >> NAME: AKUNDE,A(0/0); ENTRY:FKUNDE(6); << L 10n Firma * 10^6 + Kunden-Nr. >> << Verknuepfung zu: KASKO / RECHK / RECHK2 >> << RECHNUNG / STATKD / STATVR >> CAPACITY: 301; << CAP: AKUNDE >> NAME: KUNDE,A(0/0); ENTRY:SKUNDE(1); << S 6n Kunden-Nr. >> << Verknuepfung zu: KASKO >> CAPACITY: 301; << CAP: KUNDE >> NAME: AREINT,A(0/0); ENTRY:REINT(6); << L Interne Rechnungs-Nr. >> << Verknuepfung zu: RECHK / JRECHP1 / >> << JRECHP2 / RECHK2 / ERECHP / RECHNUNG >> CAPACITY: 1009; << CAP: AREINT >> NAME: ARECH,A(0/0); ENTRY:RENR(3); << L Rechnungs-Nr. >> << Verknuepfung zu: RECHNUNG / VABR >> CAPACITY: 1009; << CAP: ARECH / WAEHRUNG >> NAME: ARPOS,A(0/0); ENTRY:RPNR(2); << L Firma * 10^8 + Rechn.-Nr. * 100 + Pos.Nr.>> << Verknuepfung zu: JRECHP1 / JRECHP2 >> CAPACITY: 2003; << CAP: ARPOS >> NAME: KASKO,D(0/0); ENTRY:VSNR(APOL), << X20 Policen-Nr. X12 + 8 Leerstellen >> JAHR, << I 4n Jahrgang >> VERSICHERER, << L 10n fuehrende Gesellschaft >> FKUNDE(AKUNDE), << L 10n Firma * 10^6 + Kunden-Nr. >> SKUNDE(KUNDE), << S 6n Kunden-Nr. >> FIRNR, << I 4n Firmen-Nr. >> SICHKZ, << I 1n KZ-Sicherungsschein 0/1 1=Ja >> SICHTEXT, << X30 Text Sicherungsschein >> SICHDM, << L 9.2n Hoehe Sicherungsschein DM >> BEGINN, << L 8n Policenbeginn (bei Jg.Wechsel + 1 J) >> ABLAUF, << L 8n Policenablauf ( - " - ) >> FOLGERECH, << L 8n Datum naechste Rech. = Abg.bis + 1 Tg>> WAEHRUNG, << I 2n Waehrung fuer Maximum >> SPRACHE, << I 1n Sprachenkennzeichen fuer Rechnungsdr.>> << 0 = deutsch 1 = englisch 2 = franz. >> MAXBET, << L 9.2n Maximum Waehrung >> ANSPRECH, << X30 Ansprechpartner beim Kunden >> MITARB, << L 10n Mitarbeiter 4n Firma + 6n Vermitt. >> STATUS, << I 1n Status 0 = berechnen >> << 1 = ruht, keine Berechnung, >> << Police bleibt im Stamm >> ZAHLW, << I 1n Zahlungsweise >> INKART, << I 1n Inkassoart >> NUMM, << 2S 5n naechste Rechn.-Nr. / Nachtrags-Nr. >> DIFFKTO, << S 5n Konto f. Differenzen (Praemie I u. II)>> VERMITTLER, << 3I 4n Vermittler (ohne Firma) >> PPKZ, << 3I 1n Provisionskennz. 1 = aus Praemie I >> << 2 = aus Praemie II 3 = aus Courtage >> PPROV, << 3S 2.2n % Provision >> DMPROV, << 3L 8.2n DM Provision / % aus DM >> GEKUENDIGT, << L 8n Kuendigungsdatum (nur Info) >> BETEILIG, << I 1n Beteiligngskennz. 0 = keine Beteil. >> << 1 = Beteil. = 100% (ohne Unterbeteil.) >> << 2 = Beteil. <> 100% (ohne Unterbeteil.) >> << 3 = Hauptbeteil. <> 100% ; Unterbeteil. >> << muss 100% der Hauptbeteil. ergeben. >> << 4 = Hauptbeteil. = 100% ; Unterbeteil. >> << muss %-Satz der Hauptbeteil. ergeben.>> VSUMME, << L 9.2n Versicherungssumme >> FLOTTE, << I 1n Flottenkennzeichen 0/1 >> SCHIFFN, << X40 Schiffsname >> BEGTIME, << I 2n Policenbeginn Uhrzeit von (0-24) >> ABTIME, << I 2n Policenablauf Uhrzeit bis (0-24) >> BEDTEXT, << 2X70 Bedingungstext >> KONTROLLE, << X18 8X Datum 8X Zeit 2X Sachbearbeiter >> PRES1, << L Reserve >> PRES2; << X18 Reserve >> CAPACITY: 801; << CAP: KASKO >> NAME: FLOTTE,D(0/0); ENTRY:VSNR(APOL), << X20 Versicherungsschein-Nr. (ohne Jahr) >> PNR, << I 2n Positions-Nr. >> SCHIFF, << X40 Schiffs-Name >> FVSUMME, << L 10n Versicherungssumme >> FLPRAE, << L 2.4n Praemie >> FRANCHISE; << L 7n Franchise >> CAPACITY: 801; << CAP: FLOTTE >> NAME: PTEXT,M(0/0); ENTRY:PTXTNR(0), << X22 linksbuendig Policen-Nr., rechtsb. Zeile >> PTXTZ; << X78 Text >> CAPACITY: 1009; << CAP: PTEXT >> NAME: BETKO,D(0/0); ENTRY:VSNRJ(APOLIC), << X20 Policen-Nr. incl Jahrgang aus KASKO >> FGSNR, << L fuehrende Gesellschaft >> BETEILIG, << I Beteiligungs-KZ (siehe KASKO) >> VERSAB, << L Beteiligung Versicherung ab >> VERSBIS, << L -"- Versicherung bis >> BETNR, << I Beteiligungs-Nr. (nach Aenderung) >> UAN, << S Unser Anteil >> BRES1, << L Anzahl Versicherer >> << Beteiligung loeschen nur durch: >> << SHIFT HALT, CONT Loeschen, Bestaetigen >> KONTROLLE; << X18 8X DATE$ 8X TIME$ 2X SB >> CAPACITY: 1009; << CAP: BETKO >> NAME: BETPO,D(0/0); ENTRY:VSNRJ(APOLIC), << X20 Policen-Nr. incl. Jahrgang aus KASKO >> BETPNR, << I Beteiligungs-Nr. (nach Aenderung) >> BPNR, << I Beteiligungs-Positions-Nr. >> BGSNR, << L Versicherer >> BPOL, << X14 Policen-Nr. der Gesellschaft >> ANTEIL, << S 2.4 Anteil in % >> UBETKZ, << I 2n Unterbeteil.-Nr. in Hauptbeteil. >> << -> UBETNR = 0 >> COURT, << S 2,2 Courtage in % >> UBETNR, << I 2n Unterbeteil.-Nr. in Unterbeteil. >> << -> UBETKZ = 0 >> RCKZ, << I 1n KZ 0/1 Rabatt und Court. auf Rech. >> BETWAEHR, << I 1n Waehrungskennzeichen >> BPRES1, << L Reserve >> BPRES2, << X10 Reserve >> KONTROLLE; << X18 8X DATE$ 8X TIME$ 2X SB >> CAPACITY: 2003; << CAP: BETPO >> NAME: RECHK,D(0/0); ENTRY:VSNR(APOL), << X20 Policen-Nr. ohne Jahrgang aus KASKO >> RJAHR, << I Policenjahrgang in Rechnung >> FKUNDE(AKUNDE), << L Firmen-Kunden-Nr. >> ANSCHRIFT, << I Anschriften-Kennz. >> REINT(AREINT), << L Interne Rechnungs-Nr. >> DNRECH, << L Datum naechster Rechnung >> RVAB, << L Laufzeit von >> RVBIS, << L Laufzeit bis >> UZV, << I Uhrzeit von >> UZB, << I Uhrzeit bis >> VTAGE, << S Anzahl Tage bei unterjaehr. Policen >> RECHART, << I Rechnungsart (Tabelle 20) >> RDRUKZ, << I Druck-Kennz. 1 = Rechnung gedruckt >> COURTKZ, << I Courtage-Kennz. 0-Keine Court. berech. >> GEBUEHR, << S Gebuehr >> NETTBET, << 3L zu versteuernde Betraege (0/15/2) % >> REBETRAG, << L Rechnungsbetrag >> RSTEUDM, << 2L Steuerbetrag (15/2) % >> SCHIFFLEIN, << X36 Schiffsname (verkuerzt um 4 Stellen) >> KDRAB, << S Rabatt an Kunden >> ARA, << I Anzahl fakturierter Raten >> RSPARTE, << I 1. Sparte in Position (Hauptsparte) >> RATENTAG, << 4L Faelligkeit der Rate >> GESPRAE, << 4L Gesamtpraemie pro Rate >> GESRAB, << 4L Gesamtrabatt pro Rate >> RNETT, << 4L Gesamtnettobetrag pro Rate >> RN0, << 4L Gesamtnettobetrag pro Rate 0% Steuer >> RN2, << 4L Gesamtnettobetrag pro Rate 2% Steuer >> RN5, << 4L Gesamtnettobetrag pro Rate 15% Steuer >> VST2, << 4L Gesamtversicherungssteuer 2% pro Rate >> VST5, << 4L - " - 15% - " - >> RBET, << 4L Gesamtbetrag pro Rate >> VRPRAE, << 32L VR-Praemie pro Hauptbet. (4 mal 8) >> VRRABATT, << 32L VR-Rabatt pro Hauptbet. (4 mal 8) >> RESS, << S bei Rechn.Aend.: 1. Zahl = Aend. ab Rate>> << 1. Nachkommast. = Anz. zu Storn. Raten >> RESX10; << X10 Stelle 1 : L = Rechnung abgeschlossen >> << Stelle 2-8 : alter Wert von VTAGE >> << Stelle 1 : N = Rechn. geaend. (alte Rg.)>> << Stelle 2-8 : neue Rechnungsnr. >> << Stelle 1 : S = Rechnung zu stornieren >> << Stelle 1 : A = Rechn. geaend. (neue Rg.)>> << Stelle 2-8 : alte Rechnungsnr. >> << Stelle 10: abweichende Zahlungsweise >> CAPACITY: 1009; << CAP: RECHK >> NAME: JRECHP1,D(0/0); ENTRY:REINT(AREINT), << L Interne Rechnungs-Nr. >> RPNR(ARPOS), << L Firma*10^8 + Rechn.-Nr.*100 + Pos.-Nr. >> RPOS, << I Rechnungsposition >> POSZ, << I Positions-Zeile >> SPARTE, << I Sparte >> UEBKZ, << I Ueberschrifts-Kennz. >> VSUM, << L Versicherungssumme >> PRAE, << L Praemie % (Jahrespraemie) >> UPRAE, << L Praemie % (p. Rata bei unterjaehr. Pol.)>> PRAEBET, << L Praemienbetrag >> ZUFASS, << I Zusammenfassungs-Kennz. >> STEUERKZ, << I Versicherungssteuer % >> VRRAB, << S Rabatt vom Versicherer >> VRABDM, << L Rabattbetrag (Versicherer) >> RESI; << I Reserve >> CAPACITY: 1009; << CAP: JRECHP1 >> NAME: JRECHP2,D(0/0); ENTRY:REINT(AREINT), << L Interne Rechnungs-Nr. >> RPNR(ARPOS), << L Firma*10^8 + Rechn.-Nr.*100 + Posit.-Nr.>> POSZ, << I Positionszeile >> ANBETR, << L Betraege nach Verteilerplan aufgeteilt >> STEUERKZ, << I Versicherungssteuer % >> GSUMKZ, << I Gesamtsummen-KZ. >> PREMIUM, << L Premium % >> PREMBET; << L Premiumbetrag >> CAPACITY: 311; << CAP: JRECHP2 >> NAME: RTEXT,M(0/0); ENTRY:RTNR(0), << L Firma * 10^8 + Rech.-Nr. * 1000 + >> << Position * 10 + Zeile >> RTEXT; << X50 Text >> CAPACITY: 5001; << CAP: RTEXT >> NAME: RECHK2,D(0/0); ENTRY:VSNR(APOL), << X20 Policen-Nr. ohne Jahrgang aus KASKO >> RJAHR, << I Policenjahrgang in Rechnung >> FKUNDE(AKUNDE), << L Firmenkunden-Nr. >> ANSCHRIFT, << I Anschriften-Kennz. >> REINT(AREINT), << L Interne Rechnungs-Nr. >> RENR, << S Rechnungs-Nr. >> RECHDAT, << L Rechnungsdatum >> RVAB, << L Laufzeit von >> RVBIS, << L Laufzeit bis >> UZV, << S Uhrzeit von >> DRUCK, << I Druckkennzeichen 1 = Rechnung gedruckt >> INKART, << I Inkassoart 1 = Lastschrift >> RECHART, << I Rechnungsart (Tabelle 20) >> COURTKZ, << I Courtage-Kennz. 0-Keine Court. berechn. >> BUCHKZ, << I Buchungs-Kennz. >> REBETRAG, << L Rechnungsbetrag >> NETTBET, << 3L zu versteuernde Betraege (0/15/2) % >> RSTEUDM, << 2L Steuerbetrag (15/2) % >> GEBUEHR, << L Gebuehr oder Bankspesen >> RESI, << I Reserve (1 = untersch. Praemie I / II) >> RSPARTE; << I Sparte der 1. Position (Hauptsparte) >> CAPACITY: 503; << CAP: RECHK2 >> NAME: ERECHP,D(0/0); ENTRY:REINT(AREINT), << L Interne Rechnungs-Nr. >> RPOS, << I Rechnungsposition >> SPARTE, << I Sparte >> VSUM, << L Versicherungssumme >> PRAE, << S Praemien - % >> PRAEBET, << L Praemienbetrag >> VPRAEBET, << L 2. Praemienbetrag >> RSTEUERDM, << L Steuerbetrag >> STEUER, << I Versicherungssteuer - % (0,2,15) >> RABATT, << S Rabatt - % >> VRRAB, << S Rabatt - % (Praemie II) >> RABDM, << L Rabattbetrag >> VRABDM, << L Rabattbetrag (Praemie II) >> RESL; << L >> CAPACITY: 1009; << CAP: ERECHP >> NAME:RFORM,M(0/0); ENTRY:RFNR(0), << L Firma * 10^6 + Rechings-Art * 1000 + >> << Sprache * 100 + Zeile >> RFT; << X40 Rechnungsfesttext >> CAPACITY: 503; << CAP: RFORM >> NAME: RECHNUNG,D(0/0); ENTRY:REINT(AREINT), << L Interne Rechnungs-Nr. >> RENR(ARECH), << L Rechnungs-Nr. >> VSNR(APOL), << X20 Policen-Nr. ohne Jahr >> RJAHR, << I Jahrgang >> FKUNDE(AKUNDE), << L Kunden-Nr. >> FAELLIG, << L faellig >> RDAT, << L Rechnungsdatum >> RATE, << I Ratennummer >> BUJAHRMON, << I Buchungs- Jahr/Monat >> BUCHKZ, << I Buchungskennzeichen >> << 0 = Rechnung gedruckt (Waehrung) >> << 1 = Rechnung zu buchen (Waehr. n. Zahl.)>> << 2 = Rechnung gebucht und abzurechnen >> RECHART, << I (aus Tabelle) >> WAEHRUNG, << I Waehrung >> REBETRAG, << L Rechnungsbetrag >> RESX10, << X10 Stelle 1 : S = Rechnung zu stornieren >> RESL; << L Reserve >> CAPACITY: 500; << CAP: RECHNUNG >> NAME: VABR,D(0/0); ENTRY:RENR(ARECH), << L Rechnungs-Nr. >> VSNR, << X20 Policen-Nr. ohne Jahr >> RJAHR, << I Rechnungsjahr >> FKUNDE, << L Kunden-Nr. mit Firma >> VERSICHERER, << L Versicherer >> FAELLIG, << L Faelligkeitsdatum >> SPARTE, << I Sparte >> GBRUT, << L Gesamtbruttobetrag >> GNETT, << L Gesamtnettobetrag >> GCBET, << L Gesamtcourtagebetrag >> SPESEN, << L Gesamtspesen >> ANTEIL, << S Anteil >> ABRUT, << L Anteil Brutto >> ANETT, << L Anteil Netto >> CTG, << S Courtage % >> ACTG, << L Courtage - Betrag >> ASPESEN, << L Anteil Spesen >> VABRSUM, << L Abrechnungsbetrag >> ABRKZ, << I Abrechnungskennz. 1=Sollabrech. gedr. >> << 2=Istabrech. gedruckt (nicht verdicht.) >> VBEZAHLT, << I Bezahltkennzeichen 1=bezahlt >> WAEHRUNG, << I Waehrung >> RKURS, << L Kurs >> REBETRAG; << L Rechnungsbetrag >> CAPACITY: 503; << CAP: VABR >> NAME: WAEHRUNG,D(0/0); ENTRY:RENR(ARECH), << L Rechnungs-Nr. >> FKUNDE, << L Kunden-Nr. >> RKURS, << L Kurs >> RWAEHR, << I Waehrungs-Kennz. >> REBETRAG, << L Rechnungsbetrag in Waehrung >> RBSPES; << L Bankspesen >> CAPACITY: 100; << CAP: WAEHRUNG >> NAME: AKDK,A(0/0); ENTRY:KDKEY(1); << X20 X4 Firma + X12 Police + X4 Jahrgang >> CAPACITY: 1009; << CAP: AKDK >> NAME: AVRK,A(0/0); ENTRY:VRKEY(1); << X30 X4 Firma + X5 Versicherer + X12 Police >> << + X4 Jahrgang + X4 Sparte + X1 Markt >> CAPACITY: 1009; << CAP: AVRK >> NAME: STATKD,D(0/0); ENTRY:KDKEY(AKDK), << X20 X4 Firma + X12 Police + X4 Jahrgang >> VSNR(APOL), << X20 Policen-Nr. (ohne Jahrgang) >> VSNRJ(APOLIC), << X20 Policen-Nr. (mit Jahrgang) >> FKUNDE(AKUNDE), << L Kunde incl. Firma >> NETTO, << L Nettopraemie >> SCHADEN, << L Schadenbetrag >> JAHR; << I Jahrgang >> CAPACITY: 1009; << CAP: STATKD >> NAME: STATVR,D(0/0); ENTRY:VRKEY(AVRK), << X30 X4 Firma + X5 Versicherer + X12 Police +>> << X4 Jahrgang + X4 Sparte + X1 Markt >> VSNR(APOL), << X20 Policen-Nr. (ohne Jahrgang) >> VSNRJ(APOLIC), << X20 Policen-Nr. (mit Jahrgang) >> VERSICHERER(AKUNDE),<< L Versicherer incl. Firma >> SPARTE, << I Sparte >> MARKT, << I Markt >> NETTO, << L Nettopraemie >> COURTAGE, << l Courtagebetrag >> SCHADEN, << L Schadenbetrag >> FKUNDE, << L Kunden-Nr. >> JAHR; << I Jahrgang >> CAPACITY: 1009; << CAP: STATKD >> NAME:STEUER,M(1/1); ENTRY:REST(0), << L >> RSTEUER, << I >> REBETR, << L >> RSTEUDM1, << L >> VBEZAHLT, << I >> FKUNDE, << L >> KZDRU, << I >> KZ205, << I >> SRESERVE; << S >> CAPACITY: 101; << CAP: STEUER >> $PAGE END.