$CONTROL LINES=62 << 9301140993 cp [ Pvermit(10),Pwaehr(2),Pmax(4) geaend. ] >> << 9301111093 cp [ RAHM Neu Dataset ] >> << 9301151293 cp [ RDPOS Rech.Dekl.Position ] >> << 9401080394 cp [ PAUDAT in RECHK fuer Sammelrechnung ] >> << 9401140494 cp [ PBETEIL SHORT,KONTROLLE in UMSATZ ] >> << [ LWTUMS,LWTUMS2,LWTSCH ] >> << 9501210295 cp [ Fkunde im UMSATZ,LWTSCH fuer Homann ] >> << [ Rahmen-Policen, Texte korr. ] >> << 9501270695 cp [ Neusteuer ] >> << 9501260995 cp [ Rtxtnr in Rtxtnr$ umgewandelt ] >> << 9501071195 cp [ Tpar neue DATASET ] >> << 9501041295 cp [ Makler Rechnungen ] >> << 9601240196 cp [ Provision im VABR ] >> << 9601120296 cp [ BETPO Ubetkz Comkz Overkz ] >> << 9601070396 cp [ RVABR,TREATYPROV ] >> << 9601270696 cp [ TRAETYPROV korr ] >> << 9601160896 cp [ RVABR raus, UBETTEMP ] >> << 9601291096 cp [ VABR vpprz,vcprz,vaprz als 2S ] >> << 9601051196 cp [ UBETTEMP Ranteil ] >> << 9702170697 ph [ Jahrtausendwende: Z2000 ] >> << Version: 9801230398 ph [ PRECH S -> L >> BEGIN DATA BASE TWDB; << TEXT IN "TWTX" >> << Copyright O.C.S. (1991 - 2001) >> << All rights reserved. >> PASSWORDS: 1 CHEF; ITEMS: ANSCHRIFT, I; ABWC, S; ABWC2, S; BANTEIL, S; BARPROV, S; BERART, I; BETNR, I; BETPNR, I; BFGSNR, S; BGSNR, S; BPNR, I; BPOL, X14; BPOLNR, X16; BRUTTO, L; BUCHTEXT, X20; BVAB, L; BVBIS, L; COMKZ, I; COURTDM, L; COURTPROZ, S; DEKLNR, L; DJAHR, I; FIRNR, I; FKUNDE, L; GSPSPA, X26; GSSPA, X18; IKEY, I; INKASSO, I; KBETRAG, L; KDANS, L; KONTROLLE, X18; KUNDE, S; KRIMI, 5L; KZDRU, I; KZ205, I; LAND, I; MAKBETRAG, L; MAKLER, S; MAKPR, L; MAKPRUE, S; MAKREINT, L; MAKVSUM, L; NETTO, L; OKUNDE, L; OLDRE, L; OVERKZ, I; PANSP, 3X30; PAUDAT, L; PAUSCHAL, I; PBEGIN, L; PBETEIL, S; PBLANKO, I; PENDE, L; PFKUNDE, 100L; PGEWINN, S; PGOV, L; PGOV1, L; PLAST, I; PJAHR, I; PKRED, 3S; PKREDPR, 3S; PKRPR, 3S; PLWT, X28; PLWTS, X30; PMAX, 4L; PMITARB, X20; PNR, X20; PNUMM, 3S; POLZER, X24; PRABATT, S; PRAEM1, 5L; PRAEM2, 5L; PRAHM, I; PRECH, L; PROV, 5L; PROVDM, L; PSAMRE, I; PSCHADM, L; PSCHANZ, I; PSICH, I; PSICHDM, L; PSICHT, X30; PSPARTE, 3I; PSTATUS, I; PTXTNR, X28; PTXTZ, X78; PVERMIT, 10I; PVERS, L; PVKRPR, 10S; PVPKZ, 10I; PVPROV, 10S; PVWSK, S; PWAEHR, 2I; PZAHLW, I; RABATTDM, L; RABATTPROZ, S; RANTEIL, S; RBLANKO, I; RBSPES, L; RBUKZ, I; RDAT, L; RDPOS, I; RDRUKZ, I; REBETR, L; REFERENZNR, X30; REINT, L; RENR, L; RESL, L; REST, L; RESX10, X10; RGEB, S; RGESKRI, 2L; RGESPRAE, L; RGESRAB, L; RJAHR, I; RKRIMI, L; RKRMISP, I; RKURS, L; RKZOP, I; RLAND, I; RMIX, I; ROPKZ, I; RORDER, X14; RPKURS, L; RPOS, I; RPRAEM, 2L; RPWAEHR, I; RRABDM, 2L; RRABPR, 2S; RRECHKZ, I; RSAMRE, I; RSPARTE, I; RSTEUDM, L; RSTEUER, I; RSUMME, 2L; RTRANS, I; RTXTNR, X18; RVAB, L; RVSUM, L; RWAEHR, I; RWART, I; RWBETRAG, 6L; SCHAD, 5L; SCHADEN, I; SPARTE, I; SRESERVE, L; TCOURT, L; TCOURT2, L; TEXT, X70; TPRAM, L; TRANSP, I; TREATYKEY, X20; TSPARTE, I; TXTNR, L; UBET, X26; UBET1, X20; UBETKZ, I; VABGEST, I; VABRKZ, I; VAPRAEM, 2L; VAPRZ, 2S; VBEZAHLT, I; VCOMKZ, I; VCOMPRZ, S; VCOURT, 2L; VCPRZ, 2S; VERM1, 15L; VERM2, 15L; VERRECHNR, X12; VERSICHERER, L; VFAELL, L; VOPRZ, S; VOVERKZ, I; VPNR, X16; VPPRZ, 2S; VPRAEM, 2L; VPROV, 2L; VSNR, X20; VSPARTE, I; VSTDM, L; VSTPROZ, S; WARE, I; ZANZ, I; ZDAT, L; ZERSUM, L; ZHI, I; ZHL, L; ZHS, S; ZHFELD, X30; ZKODE, X10; $PAGE SETS: NAME: AKUNDE,A(1/1); ENTRY:FKUNDE(4); << L Firmen-Kunden-Nr. >> CAPACITY:101; << CAP: AKUNDE >> NAME: AKUNDE1,A(1/1); ENTRY:KUNDE(2); << S Kunden-Nr. >> CAPACITY:101; << CAP: AKUNDE1 >> NAME: PTEXT,M(1/1); ENTRY:PTXTNR(0), << X28 VN-Text KDNR=X8 + 18b + X2 Zeile >> << Pol-Text VSNR + 6b + Zeile >> PTXTZ; << X78 Text >> CAPACITY: 201; << CAP: PTEXT >> NAME: TTAB,M(1/1); ENTRY:TXTNR(0), << L KZ * 100000 + Nr * 100 + Zeile >> << 1 Zert. Bedingungen 10x70 Max 99 >> << 2 Zert. Inhaber 2X70 Max 10 >> << 3 Zert. Konditionen 4X70 Max 99 >> << 4 Zert. Lagerdauer 2X70 Max 99 >> << 5 Zert. Sur/Set 1x40 Max 10 >> << 6 Zert. Agent 3x70 max 999 >> << 7 Zert. GS/Agentur 2x40 Max 999 >> TEXT; << X70 TEXT >> CAPACITY: 2001; << CAP: TTAB >> NAME: AWARE,A(1/1); ENTRY:VSNR(7); << X20 Policen-Nr. >> CAPACITY:101; << CAP: AWARE >> NAME: WARE,D(1/1); ENTRY:VSNR(AWARE), << X20 Police X12 >> PJAHR, << I 4n Jahrgang >> FKUNDE(AKUNDE), << L 4n Firma 6n Kunde >> KUNDE(AKUNDE1), << S 6n Kunden-Nr. >> VERSICHERER, << L 4n Firma 6n Versicherer >> ANSCHRIFT, << I Anschriftsnummer >> FIRNR, << I Firma >> PSICH, << I 1n KZ-Sicherungsschein 0/1 1=Ja >> PSICHT, << X30 Text Sicherungsschein >> PSICHDM, << L 8.2 Hoehe Sicherungsschein DM >> PBETEIL, << S enspricht SUM in Maske Beteiligung >> PBEGIN, << L Policenbeginn >> PENDE, << L Policenablauf >> << Wird bei Jahreswechsel um 1 Jahr erhoeht >> PRECH, << L Datum naechste Rech. = Abgerechnet bis >> << + 1 Tag >> PWAEHR, << 2I Waehrung fuer Maximum (I -Schaeden) >> << (II-Lager) >> PMAX, << 4L 8n 1=Maximum Waehrung (I - SCHAEDEN) >> << 2=Maximum DM " >> << 3=Maximum Waehrung (II-LAGER) >> << 4=Maximum DM " >> PSAMRE, << I 1=Sammelrechnung >> PNUMM, << 3S 1=Nummernkreis fuer vorl. Rechnungen >> << 2= " " " Blanko-Zertifikate>> << 3=vorlaeufige Rechnung Vorjahr >> PGEWINN, << S 2.2 % Gewinnbeteiligung >> PANSP, << 3X30 Ansprechpartner beim Kunden >> PMITARB, << X20 Mitarbeiter im Haus >> PSTATUS, << I Status Wie in WARE1 >> PLAST, << I 1=mit Lastschrift >> PRABATT, << S 2.2 Rabatt % >> << Bei Rechnungserfassung anzeigen >> PSPARTE, << 3I 1,2 Sparten fuer Krieg/Minen >> << Risiko immer 0 >> PKRPR, << 3S Krieg/Minen % >> << Bei Rechnungserfassung anzeigen >> PVERMIT, << 10I 3n Vermittler >> PKRED, << 3S 5n Konten zur Aufteilung der Differ. >> PKREDPR, << 3S 2.2 % Aufteilung >> PVWSK, << S 2.2 % Verwaltungskosten >> PSCHANZ, << I 2n Anzahl Schaeden pro Jahr >> PSCHADM, << L Jahresschaeden in ganze DM >> << bei Jahresabschluss auf 0 setzen. >> PGOV, << L Gewinn- oder Verlust-Vortrag DM >> PVPKZ, << 10I 1n Provisions-KZ 0 = aus Praemie >> << 1 = aus Courtage >> PVPROV, << 10S 2,2 % Provision aus Praemie >> PVKRPR, << 10S 2,2 % Provision aus Krieg/Minen >> INKASSO, << I 1=FREMDINKASSO >> PBLANKO, << I Anzahl ausstehende Blankozertifikat >> KONTROLLE, << X18 8X DATE$,8X TIME$,2X Sachbearbeiter >> PZAHLW, << I Zahlungsweise >> PGOV1, << L Gewinn- oder Verlust-Vortrag DM >> ABWC, << S Courtage >> PRAHM, << I 0- Normale Police >> << 1- Rahmen Police >> ABWC2; << S Courtage >> CAPACITY: 701; << CAP: WARE >> NAME: AREINT,A(1/1); ENTRY:REINT(4); << L Interne Rechnungsnummer >> CAPACITY: 203; << CAP: AREINT >> NAME: RECHK,D(1/1); ENTRY:VSNR(AWARE), << X20 Policen-Nr. >> RJAHR, << I 4n Jahrgang >> FKUNDE, << L 10n Kunde >> ANSCHRIFT, << I Anschrifts-Nr. >> REINT(AREINT), << L 6n Interne Rechnungsnummer >> << Automatisch von Nummer(14 ) !? 3 >> RENR, << L Vorlaeufige Rechnungsnummer >> << ( automatisch aus WARE ) >> RDAT, << L Rechnungsdatum >> RVAB, << L Versicherung gueltig ab/ Faelligkeit >> RWAEHR, << I 2n Waehrung Rechnungsausgang >> RKURS, << L 4,7 Kurs zum Rechnungsausgang >> RBLANKO, << I 4n Anzahl Blanko-Zertifikate >> RSAMRE, << I Sammelrechnung 1 = JA >> RRECHKZ, << I MOD 10 > 0 Zertifikate gedruckt >> << DIV 10 > 0 Liste gedruckt >> RDRUKZ, << I Druckkennzeichen: >> << 0 = Kein Druck (Rechnung) >> << 1 = Rechnung mit/ohne Zertifikat pro >> << Position >> << 2 = Rechnung mit max 2 Position und >> << 1 Zertifikat >> << 3 = Krieg pro Position >> << 4 = Wie 1 mit 2. Rechnung >> << = nur Buchungs-KZ 2 oder 3 moeglich >> << 5 = Intern : Nur (Blanko) Zertifikate >> RMIX, << I 1 = Zertifikat vorhanden (mit Unterschr.)>> << 2 = Zertifikat ohne Unterschr. vorhanden >> RGEB, << S Gebuehr >> RSTEUER, << I Steuer % ab 01.07.95 nur Gebuehr >> RSTEUDM, << L Steuer Betrag ab 01.07.95 nur Gebuehr >> RGESKRI, << 2L n6,2 Gesamtsumme Krieg/Minen >> RGESPRAE, << L n10,2 Gesamtsumme Praemie >> RGESRAB, << L n10,2 Gesamtsumme Rabatt >> RBUKZ, << I 1n Buchungskennzeichen: >> << 0 = Keine Verbuchung >> << 1 = bei RDRUKZ 1 bis 3 (normal) >> << 2,3 = bei RDRUKZ = 4 (verschiedene >> << Rechnungen) >> RORDER, << X14 Auftragsnummer des Kunden >> RKZOP, << I 0 = Rechnung erfasst >> << 1 = vorlaeufige Rechnung gedruckt >> << 2 = Waehrungs-OP : noch nicht buchen, >> << endgueltige Rechnung bereits gedruckt>> << 3 = zu buchender OP >> << 4 = gebuchte Rechnung ( loeschen ) >> RBSPES, << L n4,2 Bankspesen bei Zahlung >> << (Fremdwaehrung) >> REBETR, << L n10,2 Rechnungsbetrag in Waehrung >> PAUSCHAL, << I Pauschalrechnung >> RDPOS, << I Rech.Dekl.Position >> PAUDAT, << L Pauschaldatum fuer Sammelrechnungen >> MAKPRUE, << S Kennzeichen fuer Makler-Rechnungspruef. >> MAKBETRAG, << L Makler Rechnungsbetrag >> MAKREINT; << L 6n Makler-Rechnung (interne Nr. fuer DTA)>> CAPACITY: 203; << CAP: RECHK >> NAME: RECHP,D(1/1); ENTRY:VSNR(AWARE), << X20 Policen-Nr. >> REINT(AREINT), << L 6n Interne Rechnungsnummer >> RPOS, << I Position 1 - 99 >> RWART, << I Warenart >> RLAND, << I Land/Relation >> RTRANS, << I Transportmittel >> RSPARTE, << I Sparte >> ROPKZ, << I Vers.-Steuer-KZ. 0 = keine Steuer >> RKRMISP, << I Krieg/Minen-Sparte aus Police 0/1/2 >> RKRIMI, << L Krieg/Minen-% >> RVSUM, << L 1 = Vers.-Summe Waehrung (Brutto) >> RPRAEM, << 2L Praemien % I/II >> RSUMME, << 2L Praemien (in Waehrung aus RECHK) >> RRABPR, << 2S Rabatt % >> RRABDM, << 2L Rabatt DM >> ZERSUM, << L DM - Summe auf Zertifikat >> ZANZ, << I Anzahl Originale (Zertifikat) >> ZKODE, << X10 1. St. 1=Zertifikat vorhanden >> RPWAEHR, << I Waehrung der Position >> RPKURS, << L Kurs >> RWBETRAG, << 6L 1. V- Summe fremde Waehrung >> << 2. Zertifikatsnummer >> << 3. Krieg DM >> << 4. Steuer DM pro Position >> << 5. Steuer % pro Position >> << 6. DATUM (JJJJMMTT) Transportbeginn >> MAKVSUM, << L Makler-Rechnungs-Versicherungssumme >> MAKPR; << L Makler-Rechnungs-Praemie >> CAPACITY: 301; << CAP: RECHP >> NAME: AGSSPA,A(1/1); ENTRY:GSSPA(1); << L Firma*10^10+Gesellschaft*10^4+Sparte >> CAPACITY: 101; << CAP: AGSSPA >> NAME: AGSPSPA,A(1/1); ENTRY:GSPSPA(1); << X26 X4 Firma + X6 Gesellschaft + X12 Police +>> << X4 Sparte >> CAPACITY: 101; << CAP: AGSPSPA >> NAME: UMSATZ,D(1/1); ENTRY:GSSPA(AGSSPA), << X14 X4 Firma + X6 Gesellschaft + X4 Sparte >> GSPSPA(AGSPSPA), << X26 Firma + Gs + Police X12 + Sparte >> PRAEM1, << 5L Praemie >> KRIMI, << 5L Krieg/Minen DM >> SCHAD, << 5L Bezahlte Schaeden >> PROV, << 5L Provision >> KONTROLLE, << X18 8X DATE$,8X TIME$,2X Sachbearbeiter >> FKUNDE; << L Kunden-Nr. fuer Rahmenpolice >> CAPACITY: 101; << CAP; UMSATZ >> NAME: RTEXT,M(1/1); ENTRY:RTXTNR(0), << X18 Firma * 10^14 + KZ * 10^12 + REINT * 10^6>> << + Pos. * 100 + Zeilen-Nr. >> << KZ 1 bis 7 wie in TTAB >> << 8 = Rechnungspositionstext 6x40 >> << 9 = Warenbezeichnung 16x40 >> << 10 = Reiseweg 3x40 >> << 11 = Transportmittel 3x20 = 1x70 >> << 12 = >> << 13 = >> << 14 = >> << 15 = >> TEXT; << X70 Text >> CAPACITY: 503; << CAP: RTEXT >> NAME: BZERT,M(1/1); ENTRY:POLZER(0), << X24 X12 Policen-Nr. + X8 Znr + X4 Jahrgang >> ZDAT; << L Datum Zertifikat zurueck >> CAPACITY: 6001; << CAP: BZERT >> NAME: APOLBET,A(1/1); ENTRY:BPOLNR(2); << X16 Policen-Nr. incl. Jahrgang (JJJJ) >> CAPACITY: 701; << CAP: APOLBET >> NAME: BETKO,D(1/1); ENTRY:BPOLNR(APOLBET), << X16 Policen-Nr. incl. Jahrgang (JJJJ) >> VSNR(AWARE), << X20 Policen-Nr. ohne Jahrgang aus WARE >> BFGSNR, << S fuehrende Gesellschaft >> BVAB, << L Beteiligung Versicherung ab >> BVBIS, << L -"- Versicherung bis >> BETNR, << I Beteiligungs-Nr. (nach Aenderung) >> BERART, << I Berechnungsart >> BARPROV; << S Arbeitsprovision (an fuehrende GS) >> CAPACITY: 701; << CAP: BETKO >> NAME: BETPO,D(1/1); ENTRY:BPOLNR(APOLBET), << X16 Policen-Nr. incl. Jahrgang (JJJJ) >> BETPNR, << I Beteiligungs-Nr. (nach Aenderung) >> BPNR, << I Beteiligungs-Positions-Nr. >> BGSNR, << S Gesellschaft >> BPOL, << X14 Policen-Nr. der Gesellschaft >> BANTEIL, << S Anteil in % >> ABWC, << S 1 Courtage / Commission im Unterbet. >> ABWC2, << S 1 Provision / Overrider im Unterbet. >> COMKZ, << I Commission Kz fuer Brutto/Netto im U.Bet.>> OVERKZ, << I Overrider Kz fuer Brutto/Netto im Unterb.>> UBETKZ; << I Pos.-Nr. des VR fuer Unterbeteiligung >> CAPACITY:1601; << CAP: BETPO >> NAME: AVPNR,A(1/1); ENTRY:VPNR(1); << X16 Policen-Nr + Jahr (JJJJ) >> CAPACITY: 101; << CAP: AVPNR >> NAME: VABR,D(1/1); ENTRY:VPNR(AVPNR), << X16 Policen-Nr + Jahr (JJJJ) >> VERSICHERER, << L Gesellschaft >> KDANS, << L Kunden-Nr * 100 + Anschrift >> RENR(AREINT), << L Rechnungsnummer >> VABGEST, << I DRUCKKENNZEICHEN >> VAPRAEM, << 2L Anteilige Praemien >> << Praemie Krieg >> VAPRZ, << 2S Anteil % >> VBEZAHLT, << I 1=Bezahlt >> VCOURT, << 2L Courtagen Praemie Krieg (Commission) >> VCPRZ, << 2S Courtage % Praemie (Commission) >> << 1-rechnerisch 2-fakultativ >> VFAELL, << L Faellig Rechnungsdatum >> VPRAEM, << 2L Praemien 100% >> VSPARTE, << I Sparte >> RBSPES, << L Bankspesen >> VPPRZ, << 2S Provision % Praemie (Overrider) >> << 1-rechnerisch 2-fakultativ >> VPROV, << 2L Provision Praemie Krieg (Overrider) >> VABRKZ, << I 1-VABR, 2-RVABR, 3-TREATY >> VCOMKZ, << I Commissions-Kz. B/N fuer RVABR und TREATY>> VOVERKZ, << I Overrider-Kz. B/N fuer RVABR und TREATY>> PVERS; << L Vers.Gesellschaft (nur RV und TREATY) >> CAPACITY: 1001; << CAP: VABR >> NAME: WAEHRUNG,D(1/1); ENTRY:RENR(AREINT), << L >> FKUNDE, << L >> RKURS, << L >> RWAEHR, << I >> REBETR, << L >> RBSPES; << L >> CAPACITY:101; << CAP: WAEHRUNG >> NAME: STEUER,M(1/1); ENTRY:REST(0), << L >> RSTEUER, << I >> REBETR, << L >> RSTEUDM, << L >> VBEZAHLT, << I >> FKUNDE, << L >> KZDRU, << I >> KZ205, << I >> SRESERVE; << L >> CAPACITY:101; << CAP: STEUER >> NAME: IKEY1,A(1/1); ENTRY:IKEY(2); << I >> CAPACITY:101; << CAP: IKEY1 >> NAME: IKEY2,A(1/1); ENTRY:IKEY(2); << I >> CAPACITY:101; << CAP: IKEY2 >> NAME: IKEY3,A(1/1); ENTRY:IKEY(2); << I >> CAPACITY:101; << CAP: IKEY3 >> NAME: IKEY4,A(1/1); ENTRY:IKEY(2); << I >> CAPACITY:101; << CAP: IKEY4 >> NAME: IKEY5,A(1/1); ENTRY:IKEY(1); << I >> CAPACITY:101; << CAP: IKEY5 >> NAME: APL,A(1/1); ENTRY:PLWT(3); << I >> CAPACITY:101; << CAP: PLWT >> NAME: APLS,A(1/1); ENTRY:PLWTS(1); << X28 >> CAPACITY:101; << CAP: APLS >> NAME: APNR,A(1/1); ENTRY:VSNR(2); << X20 >> CAPACITY:101; << CAP: APNR >> NAME: LWTUMS,D(1/1); ENTRY:PLWT(APL), << X28 X4 Firma + X12 Policen-Nr. + X3 Land + >> << X3 Ware + X2 Transportm. + X4 Sparte >> VSNR(APNR), << X20 >> LAND(IKEY1), << I >> WARE(IKEY2), << I >> TRANSP(IKEY3), << I >> SPARTE(IKEY4), << I >> FKUNDE(AKUNDE), << L Kunde >> PRAEM1, << 5L Praemie >> PRAEM2, << 5L " >> KRIMI, << 5L Krieg/Minen DM >> PROV, << 5L Provision >> VERM1, << 15L Vermittler >> VERM2, << 15L Differenz >> KONTROLLE; << X18 8X DATE$,8X TIME$,2X Sachbearbeiter >> CAPACITY: 101; << CAP: LWTUMS >> NAME: LWTSCH,D(1/1); ENTRY:PLWTS(APLS), << X30 X4 Firma + X12 Policen-Nr. + X3 Land + >> << X3 Ware + X2 Transportm. + X4 Sparte + >> << X2 Schadenart >> PLWT(APL), << X28 Firma + Police + Land + Ware + Transp. + >> << Sparte >> SCHADEN(IKEY5), << I >> SCHAD, << 5L Schaden DM >> KONTROLLE; << X18 8X DATE$,8X TIME$,2X Sachbearbeiter >> CAPACITY:101; << CAP: LWTSCH >> NAME: LWTUMS2,D(1/1); ENTRY:PLWT(APL), << X28 (siehe LWTUMS) >> VSNR(APNR), << X20 >> LAND(IKEY1), << I >> WARE(IKEY2), << I >> TRANSP(IKEY3), << I >> SPARTE(IKEY4), << I >> FKUNDE(AKUNDE), << L Kunde >> PRAEM1, << 5L Praemie >> PRAEM2, << 5L " >> KRIMI, << 5L Krieg/Minen DM >> PROV, << 5L Provision >> VERM1, << 15L Vermittler >> VERM2, << 15L Differenz >> KONTROLLE; << X18 8X DATE$,8X TIME$,2X Sachbearbeiter >> CAPACITY: 101; << CAP: LWTUMS2 >> NAME: RECH,D(1/1); ENTRY:OKUNDE(AKUNDE), << L >> PNR(AWARE), << X20 >> OLDRE, << L >> KBETRAG; << L >> CAPACITY:101; << CAP: RECH >> NAME: DEKL,D(1/1); ENTRY:VSNR(AWARE), << X20 >> DJAHR, << I 4N Jahr >> MAKLER(AKUNDE1), << S 5N Maklernummer >10000 >> SPARTE, << I 4N Sparte >> DEKLNR, << L 6N Deklarations-Nr. >> VERRECHNR, << X12 Verrechnungs-Nr. >> VFAELL, << L 8N Faelligkeit (JJJJMMTT) >> BRUTTO, << L 9,2 Bruttopraemie >> COURTPROZ, << S 2,2 Courtage - % >> COURTDM, << L 9,2 Courtage - DM >> NETTO, << L 9,2 Nettopraemie >> RABATTPROZ, << S 2,2 Rabatt - % >> RABATTDM, << L 9,2 Rabatt - DM >> VSTPROZ, << S 2,2 Steuer - % >> VSTDM, << L 9,2 Steuer - DM >> PROVDM, << L 9,2 Provision - DM >> BUCHTEXT, << X20 Buchungstext >> RESL, << L Reserve >> RESX10; << X10 Reserve >> CAPACITY: 501; << CAP: DEKL >> NAME: RAHM,D(1/1); ENTRY:VSNR(AWARE), << X20 >> PFKUNDE, << 100L Kunden fuer Rahmenpolice >> ZHS, << S Reserve >> ZHL, << L Reserve >> ZHI, << I Reserve >> ZHFELD; << X30 Reserve >> CAPACITY: 501; << CAP: RAHM >> NAME: TREATY,A(0/0); ENTRY:TREATYKEY(1); << X14 Fa/Gs/Sparte >> CAPACITY: 1003; << CAP: TREATY >> NAME: ASPARTE,A(0/0); ENTRY:TSPARTE(1); << I Treaty Sparte >> CAPACITY: 100; << CAP: ASPARTE >> NAME: TREATYPROV,D(0/0); ENTRY:TREATYKEY(TREATY),<< X20 Fa./P.GS/Gs/Sparte >> PVERS, << L Gesellschaft >> VERSICHERER, << L RÏckvers Gesellschaft fÏr Treaty >> TSPARTE(ASPARTE), << I Sparte >> BVAB, << S Beteiligung Versicherung ab >> BVBIS, << S Beteiligung Versicherung bis >> BANTEIL, << S Beteiligung Anteil >> VCOMKZ, << I Commissionskennzeichen >> VCOMPRZ, << S Commission Prozent >> VOVERKZ, << I Overriderskennzeichen >> VOPRZ, << S Overrider Prozent >> REFERENZNR; << X30 Referenznummer >> CAPACITY: 1001; NAME: AUBET,A(0/0); ENTRY:UBET(1); << X26 4X Firma/6X Renr/6X VR/6X RVR/4X Sparte >> CAPACITY: 100; << CAP: AUBET >> NAME: AUBET1,A(0/0); ENTRY:UBET1(1); << X20 4X Firma/6X Renr/6X VR/0000 >> CAPACITY: 100; << CAP: AUBET1 >> NAME: UBETTEMP,D(1/1); ENTRY:UBET(AUBET), << X26 wie AUBET >> UBET1(AUBET1), << X20 wie AUBET1 >> BGSNR, << S Gesellschaft >> BPOL, << X14 Policen-Nr. der Gesellschaft >> REFERENZNR, << X30 Referenznummer >> BANTEIL, << S Anteil in % >> ABWC, << S 1 Courtage / Commision im Unterbet. >> ABWC2, << S 2 Provision / Overrider im Unterbet. >> COMKZ, << I Commision Kz fÏr Brutto/Netto im Unterb. >> OVERKZ, << I Overrider Kz fÏr Brutto/Netto Im Unterb. >> TPRAM, << L Praemie mit Krimi fÏr Buchung >> TCOURT, << L Commission fÏr Buchung >> TCOURT2, << L Overridder fÏr Buchung >> RANTEIL; << S Fak. Anteil fÏr VABR >> CAPACITY:1601; << CAP: UBETTEMP >> $PAGE END.