Index: freexp/xp-d.rq =================================================================== RCS file: /server/cvs/freexp/xp-d.rq,v retrieving revision 1.64 retrieving revision 1.65 diff -u -r1.64 -r1.65 --- freexp/xp-d.rq 6 Jan 2005 16:59:20 -0000 1.64 +++ freexp/xp-d.rq 3 Mar 2005 18:44:33 -0000 1.65 @@ -3,7 +3,7 @@ K (c) 1993-1999 Peter Mandrella K (c) 2000-2001 OpenXP-Team K (c) 2002-2005 FreeXP, http://www.freexp.de -# $Id: xp-d.rq,v 1.64 2005/01/06 16:59:20 mw Exp $ +# $Id: xp-d.rq,v 1.65 2005/03/03 18:44:33 mw Exp $ # Online-Hilfe, Tastenmakros 1 XP.HLP @@ -2317,6 +2317,7 @@ 4 Gebhrenbernahme von cFos 5 deutsche Feiertage bercksichtigen 6 neues Gebhrenmodell +7 Citycarrierzuschlag # Netcall/Spezial + 1024 1 Spezial-Netcall bei: Index: freexp/xp-e.rq =================================================================== RCS file: /server/cvs/freexp/xp-e.rq,v retrieving revision 1.99 retrieving revision 1.100 diff -u -r1.99 -r1.100 --- freexp/xp-e.rq 10 Jan 2005 21:44:48 -0000 1.99 +++ freexp/xp-e.rq 3 Mar 2005 18:44:33 -0000 1.100 @@ -3,7 +3,7 @@ K (c) 1993-1999 Peter Mandrella K (c) 2000-2001 OpenXP-Team K (c) 2002-2005 FreeXP, http://www.freexp.de -# $Id: xp-e.rq,v 1.99 2005/01/10 21:44:48 mf Exp $ +# $Id: xp-e.rq,v 1.100 2005/03/03 18:44:33 mw Exp $ # Online Help File, Key Macros 1 XP-E.HLP @@ -2282,6 +2282,7 @@ 4 cFos phone fee calculation 5 German holidays 6 new phone fee model +7 additional fee for citycarriers # Netcall/Special + 1024 1 Special Netcall to: Index: freexp/xp0.pas =================================================================== RCS file: /server/cvs/freexp/xp0.pas,v retrieving revision 1.74 retrieving revision 1.75 diff -u -r1.74 -r1.75 --- freexp/xp0.pas 6 Jan 2005 16:59:20 -0000 1.74 +++ freexp/xp0.pas 3 Mar 2005 18:44:33 -0000 1.75 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp0.pas,v 1.74 2005/01/06 16:59:20 mw Exp $ } +{ $Id: xp0.pas,v 1.75 2005/03/03 18:44:33 mw Exp $ } { CrossPoint - Deklarationen } @@ -614,6 +614,7 @@ BMdomain : boolean; { UUCP: Brettmanager braucht Domain } maxfsize : smallword; { UUCP: max. Empfangsdateigr”áe / KB } EB_Daemon : boolean; { UUCP: "MAILER-DAEMON" } + citycarrier : boolean; { Citycarrier-Zuschlag mitrechnen ? (T-Com ab 01.05.2005)} end; BoxPtr = ^BoxRec; @@ -1042,6 +1043,7 @@ KeepRequests : boolean; { Requests zurckstellen } waehrung : string[5]; gebnoconn : longint; { Gebhren fr nicht zustandegek. Verb. } + citycarriergeb : real; { Zuschlag für Citycarrier (T-Com ab 01.05.2005)} gebCfos : boolean; { Gebhrenbernahme von cFos } newgeb : boolean; { Neues Gebhrenmodell verwenden } autofeier : boolean; { Feiertage bei Gebhren bercksichtigen } @@ -1258,6 +1260,11 @@ { $Log: xp0.pas,v $ + Revision 1.75 2005/03/03 18:44:33 mw + MW: - Gebhren„nderung zum 01.05.2005: + Die T-Com verlangt fr Terminierung bei einem Citycarrier einen + Aufschlag von 0,2 Cent. + Revision 1.74 2005/01/06 16:59:20 mw MW: - Erweiterte GnuPG-Untersttzung. Index: freexp/xp10.pas =================================================================== RCS file: /server/cvs/freexp/xp10.pas,v retrieving revision 1.14 retrieving revision 1.15 diff -u -r1.14 -r1.15 --- freexp/xp10.pas 1 Jan 2005 11:16:28 -0000 1.14 +++ freexp/xp10.pas 3 Mar 2005 18:44:34 -0000 1.15 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp10.pas,v 1.14 2005/01/01 11:16:28 mw Exp $ } +{ $Id: xp10.pas,v 1.15 2005/03/03 18:44:34 mw Exp $ } { CrossPoint - Timing-Listen, Tastenmakros, Gebhrenzonen, Header, } { Nodelisten, Tarifgruppen } @@ -1961,7 +1961,12 @@ secs:=0 else with zeitbereich[i].tarif[zone] do begin if sekunden<0.01 then break; - if not newgeb then incr(sum,pfennig) else incr(sum,((pfennig/60)*sekunden)); + if BoxPar^.citycarrier then begin + if not newgeb then incr(sum,pfennig+(citycarriergeb*sekunden/60)) else + incr (sum,(((pfennig+citycarriergeb)/60)*sekunden)); + end else begin + if not newgeb then incr(sum,pfennig) else incr(sum,((pfennig/60)*sekunden)); + end; if first then anw:=anwahl; first:=false; secs := secs-sekunden; { berechnete Sekunden abziehen } @@ -2170,6 +2175,11 @@ { $Log: xp10.pas,v $ + Revision 1.15 2005/03/03 18:44:34 mw + MW: - Gebhren„nderung zum 01.05.2005: + Die T-Com verlangt fr Terminierung bei einem Citycarrier einen + Aufschlag von 0,2 Cent. + Revision 1.14 2005/01/01 11:16:28 mw MW: - Willkommen im Jahr 2005 Index: freexp/xp2c.pas =================================================================== RCS file: /server/cvs/freexp/xp2c.pas,v retrieving revision 1.48 retrieving revision 1.49 diff -u -r1.48 -r1.49 --- freexp/xp2c.pas 6 Jan 2005 16:59:20 -0000 1.48 +++ freexp/xp2c.pas 3 Mar 2005 18:44:33 -0000 1.49 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp2c.pas,v 1.48 2005/01/06 16:59:20 mw Exp $ } +{ $Id: xp2c.pas,v 1.49 2005/03/03 18:44:33 mw Exp $ } { CrossPoint - Config bearbeiten } @@ -1365,9 +1365,9 @@ procedure GebuehrOptions; var x,y : byte; brk : boolean; - r : real; + r,c : real; begin - dialog(ival(getres2(1023,0)),6,getres2(1023,1),x,y); { 'Telefonkosten-Einstellungen' } + dialog(ival(getres2(1023,0)),8,getres2(1023,1),x,y); { 'Telefonkosten-Einstellungen' } r:=GebNoconn/100; (* maddreal(3,2,getres2(1023,2),r,8,2,0,99999); { 'Kosten fr nicht zustandegekommene Verbindung ' } mhnr(970); *) @@ -1378,9 +1378,11 @@ mhnr(973); maddbool(24,5,getres2(1023,6),newgeb); { 'neues Gebhrenmodell' } mhnr(974); + maddreal(3,7,getres2(1023,7),citycarriergeb,8,2,0,99999); {'Zuschlag für Citycarrier'} + mhnr(975); readmask(brk); if not brk and mmodified then begin - GebNoconn:=system.round(r*100); + GebNoconn:=system.round(r*100); GlobalModified; end; enddialog; @@ -1549,6 +1551,11 @@ { $Log: xp2c.pas,v $ + Revision 1.49 2005/03/03 18:44:33 mw + MW: - Gebhren„nderung zum 01.05.2005: + Die T-Com verlangt fr Terminierung bei einem Citycarrier einen + Aufschlag von 0,2 Cent. + Revision 1.48 2005/01/06 16:59:20 mw MW: - Erweiterte GnuPG-Untersttzung. Index: freexp/xp2cfg.inc =================================================================== RCS file: /server/cvs/freexp/xp2cfg.inc,v retrieving revision 1.72 retrieving revision 1.73 diff -u -r1.72 -r1.73 --- freexp/xp2cfg.inc 6 Jan 2005 16:59:19 -0000 1.72 +++ freexp/xp2cfg.inc 3 Mar 2005 18:44:33 -0000 1.73 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp2cfg.inc,v 1.72 2005/01/06 16:59:19 mw Exp $ } +{ $Id: xp2cfg.inc,v 1.73 2005/03/03 18:44:33 mw Exp $ } const cfs : array[0..4] of string[5] = ('Z','Shift','Ctrl','Alt','#Z'); saveCFG : boolean = false; @@ -617,6 +617,7 @@ KeepRequests:=true; waehrung:='EUR'; gebnoconn:=0; + citycarriergeb:=0.2; gebCfos:=false; newgeb:=false; autofeier:=true; @@ -1014,6 +1015,7 @@ writeln(t,'MailDelXPost=',jnf(maildelxpost)); writeln(t,'Waehrung=',waehrung); writeln(t,'GebNoconn=',gebnoconn); + writeln(t,'CitycarrierGeb=',citycarriergeb); writeln(t,'GebCfos=',jnf(GebCfos)); writeln(t,'NewGeb=',jnf(newgeb)); writeln(t,'Feiertage=',jnf(autofeier)); @@ -1673,6 +1675,7 @@ getx(su, 'zc-iso',zc_iso) or gets(s,su,'waehrung',waehrung,5) or getl(su, 'gebnoconn',GebNoconn) or + getr(su, 'citycarriergeb',citycarriergeb) or getx(su, 'gebcfos',GebCfos) or getx(su, 'newgeb',newgeb) or getx(su, 'feiertage',autofeier) or @@ -1884,6 +1887,11 @@ { $Log: xp2cfg.inc,v $ + Revision 1.73 2005/03/03 18:44:33 mw + MW: - Gebhren„nderung zum 01.05.2005: + Die T-Com verlangt fr Terminierung bei einem Citycarrier einen + Aufschlag von 0,2 Cent. + Revision 1.72 2005/01/06 16:59:19 mw MW: - Erweiterte GnuPG-Untersttzung. Index: freexp/xp9.inc =================================================================== RCS file: /server/cvs/freexp/xp9.inc,v retrieving revision 1.21 retrieving revision 1.23 diff -u -r1.21 -r1.23 --- freexp/xp9.inc 1 Jan 2005 11:16:27 -0000 1.21 +++ freexp/xp9.inc 3 Mar 2005 19:03:59 -0000 1.23 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp9.inc,v 1.21 2005/01/01 11:16:27 mw Exp $ } +{ $Id: xp9.inc,v 1.23 2005/03/03 19:03:59 mw Exp $ } { --- Bearbeitungs-Routinen fr Boxen-Liste -----------------------} @@ -1229,7 +1229,9 @@ maddstring(3,2,getres2(922,1),gebzone,20,20,''); { 'Tarifzone ' } AppPhoneZones; if nt=nt_Client then mhnr(30210) else mhnr(180); - end; + end; + maddbool(3,3,'Citycarrier',citycarrier); + mhnr(1); maddint(3,iif(crash,2,4),getres2(922,5),conn_time,2,2,0,99); { 'Connect-Dauer: ' } if nt=nt_Client then mhnr(30211) else mhnr(181); maddtext(length(getres2(922,5))+9,iif(crash,2,4),getres2(922,6),0); { 'Sek.' } @@ -2169,6 +2171,14 @@ { $Log: xp9.inc,v $ + Revision 1.23 2005/03/03 19:03:59 mw + MW: - Keine Hilfe fr Citycarrier + + Revision 1.22 2005/03/03 18:44:33 mw + MW: - Gebhren„nderung zum 01.05.2005: + Die T-Com verlangt fr Terminierung bei einem Citycarrier einen + Aufschlag von 0,2 Cent. + Revision 1.21 2005/01/01 11:16:27 mw MW: - Willkommen im Jahr 2005 Index: freexp/xp9bp.pas =================================================================== RCS file: /server/cvs/freexp/xp9bp.pas,v retrieving revision 1.17 retrieving revision 1.18 diff -u -r1.17 -r1.18 --- freexp/xp9bp.pas 1 Jan 2005 11:16:30 -0000 1.17 +++ freexp/xp9bp.pas 3 Mar 2005 18:44:33 -0000 1.18 @@ -8,7 +8,7 @@ { Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der } { Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. } { --------------------------------------------------------------- } -{ $Id: xp9bp.pas,v 1.17 2005/01/01 11:16:30 mw Exp $ } +{ $Id: xp9bp.pas,v 1.18 2005/03/03 18:44:33 mw Exp $ } { CrossPoint - BoxPar verwalten } @@ -112,6 +112,7 @@ redialwait:= 240; redialmax := 100; connectmax:= 5; + citycarrier:=false; packwait := 1200; retrylogin:= 10; conn_time := 5; @@ -120,7 +121,7 @@ bport := 2; params := '8n1'; baud := 19200; - gebzone := 'DTAG T-NET City'; + gebzone := 'T-Com Ort'; o_passwort:= iifs(deutsch,'GEHEIM','SECRET'); o_logfile := ''; MagicNet := 'MagicNET'; @@ -272,6 +273,7 @@ geti(su, 'RedialWait',redialwait) or geti(su, 'RedialMax',redialmax) or geti(su, 'ConnectMax',connectmax) or + getx(su, 'Citycarrier',citycarrier) or geti(su, 'PackWait',packwait) or geti(su, 'RetryLogin',retrylogin) or geti(su, 'ConnectTime',conn_time) or @@ -444,6 +446,7 @@ writeln(t,'UpArcExt=',uparcext); writeln(t,'DownArcExt=',downarcext); writeln(t,'ConnWait=',connwait); + writeln(t,'Citycarrier=', jnf(citycarrier)); writeln(t,'LoginWait=',loginwait); writeln(t,'RedialWait=',redialwait); writeln(t,'RedialMax=',redialmax); @@ -666,6 +669,11 @@ end. { $Log: xp9bp.pas,v $ + Revision 1.18 2005/03/03 18:44:33 mw + MW: - Gebhren„nderung zum 01.05.2005: + Die T-Com verlangt fr Terminierung bei einem Citycarrier einen + Aufschlag von 0,2 Cent. + Revision 1.17 2005/01/01 11:16:30 mw MW: - Willkommen im Jahr 2005 Index: freexp/doc/snapshot.dq =================================================================== RCS file: /server/cvs/freexp/doc/snapshot.dq,v retrieving revision 1.34 retrieving revision 1.35 diff -u -r1.34 -r1.35 --- freexp/doc/snapshot.dq 18 Feb 2005 11:24:52 -0000 1.34 +++ freexp/doc/snapshot.dq 3 Mar 2005 18:47:02 -0000 1.35 @@ -4660,9 +4660,12 @@ Gltig fr T-Net und T-ISDN. XP10P.INC - TODO: - Einbau einen Flags um die Tarif„nderung zum 01.05.2005 - bercksichtigen zu k”nnen (Aufschlag von 0,2 Cent je - Minute bei Gespr„chen zu Telefonanschlssen von - Stadtnetzbetreibern). - +þ 03.03.2005 +------------- +MW: +%+ Citycarrierzuschl„ge k”nnen jetzt mit berechnet werden. +- Die Gebhrenabrechnung kann jetzt auch einen eventuell + f„llig werdenen Citycarrierzuschlag, wie es z.B. die + T-Com ab 01.05.2005 verlangt bercksichtigen. + XP0.PAS, XP2CFG.INC, XP9BP.PAS, XP-D.RQ, XP-E.RQ, + XP2C.PAS, XP9.INC, XP10.PAS, XP.IHQ, XP-E.IHQ Index: freexp/doc/xp-e.ihq =================================================================== RCS file: /server/cvs/freexp/doc/xp-e.ihq,v retrieving revision 1.84 retrieving revision 1.85 diff -u -r1.84 -r1.85 --- freexp/doc/xp-e.ihq 10 Jan 2005 21:39:10 -0000 1.84 +++ freexp/doc/xp-e.ihq 3 Mar 2005 18:47:01 -0000 1.85 @@ -9549,6 +9549,10 @@ <<[x]>> -> XP uses the new phone fee model (costs per minute and fee frequency). @ +975 +Additional fee for termination at citycarriers. +(The german T-Com wants 0,2 Cent per minute) +@ 979 The file <<FEIERTAG.DAT>> holds an arbitrary number of holidays or other special days where deviating phone Index: freexp/doc/xp.ihq =================================================================== RCS file: /server/cvs/freexp/doc/xp.ihq,v retrieving revision 1.76 retrieving revision 1.77 diff -u -r1.76 -r1.77 --- freexp/doc/xp.ihq 6 Jan 2005 17:02:57 -0000 1.76 +++ freexp/doc/xp.ihq 3 Mar 2005 18:47:01 -0000 1.77 @@ -13767,6 +13767,11 @@ <<[x]>> -> XP verwendet das [neue [EMAIL PROTECTED] (Minutenpreis und Abrechnungstakt). @ +975 +Hier wird ein Zuschlag fr Gespr„che zu +Stadtnetzbetreibern eingetragen. +(T-Com verlangt 0,2 Cent pro Minute ab 01.05.2005) +@ 979 In der Datei <<FEIERTAG.DAT>> k”nnen beliebig viele Feiertage oder sonstige spezielle Tage eingetragen
------------------------------------------------------------------------ FreeXP CVS-Mailingliste CVS-List@freexp.de http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list